source: WorldVistAEHR/trunk/r/PCE_PATIENT_CARE_ENCOUNTER-AUTN-EFDP-PX-VSIT--PXRM/PXPTPOST.m@ 1581

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

initial load of WorldVistAEHR

File size: 592 bytes
RevLine 
[613]1PXPTPOST ;ISL/MKB,DLT,dee - Patient/IHS install post-init ;8/10/96
2 ;;1.0;PCE PATIENT CARE ENCOUNTER;;Aug 12, 1996
3 ;;1.0;PCE Patient/IHS Subset;;Nov 01, 1994
4EN ; entry point (not used)
5 D LOC,MASTER,QUE
6 Q
7 ;
8LOC ;Populate LOCATION file (#9999999.06)
9 D LOC^PXPT
10 Q
11 ;
12MASTER ;Populate the PXPT fields $501 & #502 in PCE PARAMETERS file (#815)
13 D MASTER^PXPT
14 ;
15 D BMES^XPDUTL("Now remove the old PCC MASTER CONTROL file (#9001000)")
16 N DIU
17 S DIU=9001000
18 S DIU(0)="DT"
19 D EN^DIU2
20 Q
21 ;
22QUE ; Queue job to populate IHS Patient File #9000001
23 D QUE^PXPT
24 Q
25 ;
26 ;
27GETLOC D GETLOC^PXPT
28 Q
29 ;
Note: See TracBrowser for help on using the repository browser.