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

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

initial load of WorldVistAEHR

File size: 882 bytes
Line 
1PX10164P ;HERN/BDB - Post-init routine for PX*1.0*164 ;11/10/2005
2 ;;1.0;PCE PATIENT CARE ENCOUNTER;**164**;Aug 12, 1996
3 ;
4 Q
5EN ;This patch will update the Visit Tracking Parameters File for
6 ;the Order Entry/Results Reporting Package
7 ;
8 N DIC,X,Y
9 D BMES^XPDUTL(">>> Updating Order Entry/Results Reporting entry")
10 D MES^XPDUTL(" in the Visit Tracking Parameters file.")
11 S DIC="^DIC(150.9,1,3,",DA(1)=1,DIC(0)="L",X="ORDER ENTRY/RESULTS REPORTING"
12 D ^DIC
13 I +Y'>0 G ERROR
14 N DIE,DA
15 S DIE="^DIC(150.9,1,3,",DA(1)=1,DA=+Y,DR="4////1"
16 D ^DIE
17 D BMES^XPDUTL(" Order Entry/Results Reporting package updated")
18 D MES^XPDUTL(" in Visit Tracking Parameters file.")
19 Q
20ERROR ;
21 D BMES^XPDUTL(">>> Order Entry/Result Reporting failed to be added to the")
22 D MES^XPDUTL(" Visit Tracking Parameters file. Please contact IRM.")
23 Q
24VTFQ ;
25 D BMES^XPDUTL(">>> Done")
26 Q
Note: See TracBrowser for help on using the repository browser.