source: FOIAVistA/tag/r/PCE_PATIENT_CARE_ENCOUNTER-AUTN-EFDP-PX-VSIT--PXRM/PXIPREI.m@ 628

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

initial load of FOIAVistA 6/30/08 version
File size: 246 bytes
Line 
1PXIPREI ;ISL/dee - PCE PRE INIT rtn ;8/12/96
2 ;;1.0;PCE PATIENT CARE ENCOUNTER;;Aug 12, 1996
3 ;
4 N DIC,Y,X,DD,DO,DA,DR,DIE
5 S X="PCE PATIENT CARE ENCOUNTER"
6 S DIC="^DIC(9.4,"
7 S DIC(0)="X"
8 D ^DIC
9 Q:Y>0
10 S DIC("DR")="1///PX"
11 D FILE^DICN
12 Q
13 ;
Note: See TracBrowser for help on using the repository browser.