VSITIPRE ;ISL/dee - Visit Tracking PRE INIT rtn ;8/12/96
;;1.0;PCE PATIENT CARE ENCOUNTER;**76**;Aug 12, 1996
; Patch PX*1*76 changes the 2nd line of all VSIT* routines to reflect
; the incorporation of the module into PCE. For historical reference,
; the old (VISIT TRACKING) 2nd line is included below to reference VSIT
; patches.
;
;;2.0;VISIT TRACKING;;Aug 12, 1996
;
N DIC,Y,X,DD,DO,DA,DR,DIE
S X="VISIT TRACKING"
S DIC="^DIC(9.4,"
S DIC(0)="X"
D ^DIC
Q:Y>0
S DIC("DR")="1///VSIT"
D FILE^DICN
Q
;
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HVSITIPRE 540 printed Dec 13, 2024@02:32:36 Page 2
VSITIPRE ;ISL/dee - Visit Tracking PRE INIT rtn ;8/12/96
+1 ;;1.0;PCE PATIENT CARE ENCOUNTER;**76**;Aug 12, 1996
+2 ; Patch PX*1*76 changes the 2nd line of all VSIT* routines to reflect
+3 ; the incorporation of the module into PCE. For historical reference,
+4 ; the old (VISIT TRACKING) 2nd line is included below to reference VSIT
+5 ; patches.
+6 ;
+7 ;;2.0;VISIT TRACKING;;Aug 12, 1996
+8 ;
+9 NEW DIC,Y,X,DD,DO,DA,DR,DIE
+10 SET X="VISIT TRACKING"
+11 SET DIC="^DIC(9.4,"
+12 SET DIC(0)="X"
+13 DO ^DIC
+14 if Y>0
QUIT
+15 SET DIC("DR")="1///VSIT"
+16 DO FILE^DICN
+17 QUIT
+18 ;
