diff --git a/VPRJDSTATUS.m b/VPRJDSTATUS.m index 256af72..a43c2e2 100644 --- 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