Missing Quit. Christopher!

KRMAssociatesInc · Jun 11, 2017 · e6589f3 · e6589f3
1 parent f52c469
commit e6589f3
Showing 1 changed file with 2 additions and 1 deletion.
diff --git a/VPRJDSTATUS.m b/VPRJDSTATUS.m
@@ -1,4 +1,4 @@
-VPRJDSTATUS ;KRM/CJE -- Handle Operational Data Sync Status operations ; 10/20/2015
+VPRJDSTATUS ;KRM/CJE -- Handle Operational Data Sync Status operations ;2017-06-11  4:28 PM
  ; No entry from top
  Q
  ;
@@ -239,6 +239,7 @@ D DATA(RESULT,ARGS("id"),DETAILED,.CLAUSES)
  . S:$G(^VPRSTATUSOD(SOURCE,"syncCompleteAsOf"))'="" @BUILD@("sourceMetaStamp",SSOURCE,"syncCompleteAsOf")=$G(^VPRSTATUSOD(SOURCE,"syncCompleteAsOf"))
  . M @RESULT@("inProgress")=@BUILD
  K @BUILD
+ QUIT
  ;
 DEL(RESULT,ARGS) ; Delete all sync status data
  ; If we are passed an id only kill that site's sync status