VSITICL1.m

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 ---VSITICL1   416     printed  Apr 09, 2024@21:31:51                                                                                                                                                                                                     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       ;