VSITIPRE.m

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 ---VSITIPRE   540     printed  Apr 09, 2024@21:27:31                                                                                                                                                                                                     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      ;