source: FOIAVistA/trunk/r/PCE_PATIENT_CARE_ENCOUNTER-AUTN-EFDP-PX-VSIT--PXRM/VSITIPRE.m@ 1757

Last change on this file since 1757 was 628, checked in by George Lilly, 15 years ago

initial load of FOIAVistA 6/30/08 version

File size: 521 bytes
Line 
1VSITIPRE ;ISL/dee - Visit Tracking PRE INIT rtn ;8/12/96
2 ;;1.0;PCE PATIENT CARE ENCOUNTER;**76**;Aug 12, 1996
3 ; Patch PX*1*76 changes the 2nd line of all VSIT* routines to reflect
4 ; the incorporation of the module into PCE. For historical reference,
5 ; the old (VISIT TRACKING) 2nd line is included below to reference VSIT
6 ; patches.
7 ;
8 ;;2.0;VISIT TRACKING;;Aug 12, 1996
9 ;
10 N DIC,Y,X,DD,DO,DA,DR,DIE
11 S X="VISIT TRACKING"
12 S DIC="^DIC(9.4,"
13 S DIC(0)="X"
14 D ^DIC
15 Q:Y>0
16 S DIC("DR")="1///VSIT"
17 D FILE^DICN
18 Q
19 ;
Note: See TracBrowser for help on using the repository browser.