VSITICL1 ;ISD/dee - Visit Tracking cleanup for VSIT*2.0*1 ;10/22/96
;;2.0;VISIT TRACKING;**1**;Aug 12, 1996
;
Q ; - not an entry point
;
PRE ;
N DIU
D BMES^XPDUTL("Kill file DD and Data.")
D MES^XPDUTL(" ANCILLARY DSS ID #150.1")
S DIU="150.1",DIU(0)="DT" D EN^DIU2 K DIU
;stop lab from being able to make visit
L +^LRO(69,"AA")
Q
;
POST ;
;turn lab back on
L -^LRO(69,"AA")
Q
;
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HVSITICL1 416 printed Dec 13, 2024@02:32:33 Page 2
VSITICL1 ;ISD/dee - Visit Tracking cleanup for VSIT*2.0*1 ;10/22/96
+1 ;;2.0;VISIT TRACKING;**1**;Aug 12, 1996
+2 ;
+3 ; - not an entry point
QUIT
+4 ;
PRE ;
+1 NEW DIU
+2 DO BMES^XPDUTL("Kill file DD and Data.")
+3 DO MES^XPDUTL(" ANCILLARY DSS ID #150.1")
+4 SET DIU="150.1"
SET DIU(0)="DT"
DO EN^DIU2
KILL DIU
+5 ;stop lab from being able to make visit
+6 LOCK +^LRO(69,"AA")
+7 QUIT
+8 ;
POST ;
+1 ;turn lab back on
+2 LOCK -^LRO(69,"AA")
+3 QUIT
+4 ;
