PX10164P ;HERN/BDB - Post-init routine for PX*1.0*164 ;11/10/2005
;;1.0;PCE PATIENT CARE ENCOUNTER;**164**;Aug 12, 1996
;
Q
EN ;This patch will update the Visit Tracking Parameters File for
;the Order Entry/Results Reporting Package
;
N DIC,X,Y
D BMES^XPDUTL(">>> Updating Order Entry/Results Reporting entry")
D MES^XPDUTL(" in the Visit Tracking Parameters file.")
S DIC="^DIC(150.9,1,3,",DA(1)=1,DIC(0)="L",X="ORDER ENTRY/RESULTS REPORTING"
D ^DIC
I +Y'>0 G ERROR
N DIE,DA
S DIE="^DIC(150.9,1,3,",DA(1)=1,DA=+Y,DR="4////1"
D ^DIE
D BMES^XPDUTL(" Order Entry/Results Reporting package updated")
D MES^XPDUTL(" in Visit Tracking Parameters file.")
Q
ERROR ;
D BMES^XPDUTL(">>> Order Entry/Result Reporting failed to be added to the")
D MES^XPDUTL(" Visit Tracking Parameters file. Please contact IRM.")
Q
VTFQ ;
D BMES^XPDUTL(">>> Done")
Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HPX10164P 908 printed Dec 13, 2024@02:25:32 Page 2
PX10164P ;HERN/BDB - Post-init routine for PX*1.0*164 ;11/10/2005
+1 ;;1.0;PCE PATIENT CARE ENCOUNTER;**164**;Aug 12, 1996
+2 ;
+3 QUIT
EN ;This patch will update the Visit Tracking Parameters File for
+1 ;the Order Entry/Results Reporting Package
+2 ;
+3 NEW DIC,X,Y
+4 DO BMES^XPDUTL(">>> Updating Order Entry/Results Reporting entry")
+5 DO MES^XPDUTL(" in the Visit Tracking Parameters file.")
+6 SET DIC="^DIC(150.9,1,3,"
SET DA(1)=1
SET DIC(0)="L"
SET X="ORDER ENTRY/RESULTS REPORTING"
+7 DO ^DIC
+8 IF +Y'>0
GOTO ERROR
+9 NEW DIE,DA
+10 SET DIE="^DIC(150.9,1,3,"
SET DA(1)=1
SET DA=+Y
SET DR="4////1"
+11 DO ^DIE
+12 DO BMES^XPDUTL(" Order Entry/Results Reporting package updated")
+13 DO MES^XPDUTL(" in Visit Tracking Parameters file.")
+14 QUIT
ERROR ;
+1 DO BMES^XPDUTL(">>> Order Entry/Result Reporting failed to be added to the")
+2 DO MES^XPDUTL(" Visit Tracking Parameters file. Please contact IRM.")
+3 QUIT
VTFQ ;
+1 DO BMES^XPDUTL(">>> Done")
+2 QUIT
