IB20P356 ;BP/TJH - Preinit routine for IB*2.0*356 ; 6/14/2006
;;2.0;INTEGRATED BILLING;**356**;21-MAR-94
;
Q
EN ; entry point
;
DELERR ; delete old error code from file 350.8
;
D BMES^XPDUTL("Deleting entry IB315 from IB ERROR file...")
S X="IB315",DIC(0)="",DIC="^IBE(350.8," D ^DIC
I Y>0 S DA=+Y,DIK="^IBE(350.8," D ^DIK
D BMES^XPDUTL("IB315 error code removal complete.")
;
FORMFLD ; change TOTAL OUTSIDE LAB CHARGES, record 783, to OUTPUT
;
D BMES^XPDUTL("TOTAL OUTSIDE LAB CHARGES changing from CALCULATE ONLY to OUTPUT...")
S DIE="^IBA(364.6,",DA=783,DR=".11////0" D ^DIE
D BMES^XPDUTL("TOTAL OUTSIDE LAB CHARGES change complete.")
;
Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HIB20P356 678 printed Nov 22, 2024@17:12:27 Page 2
IB20P356 ;BP/TJH - Preinit routine for IB*2.0*356 ; 6/14/2006
+1 ;;2.0;INTEGRATED BILLING;**356**;21-MAR-94
+2 ;
+3 QUIT
EN ; entry point
+1 ;
DELERR ; delete old error code from file 350.8
+1 ;
+2 DO BMES^XPDUTL("Deleting entry IB315 from IB ERROR file...")
+3 SET X="IB315"
SET DIC(0)=""
SET DIC="^IBE(350.8,"
DO ^DIC
+4 IF Y>0
SET DA=+Y
SET DIK="^IBE(350.8,"
DO ^DIK
+5 DO BMES^XPDUTL("IB315 error code removal complete.")
+6 ;
FORMFLD ; change TOTAL OUTSIDE LAB CHARGES, record 783, to OUTPUT
+1 ;
+2 DO BMES^XPDUTL("TOTAL OUTSIDE LAB CHARGES changing from CALCULATE ONLY to OUTPUT...")
+3 SET DIE="^IBA(364.6,"
SET DA=783
SET DR=".11////0"
DO ^DIE
+4 DO BMES^XPDUTL("TOTAL OUTSIDE LAB CHARGES change complete.")
+5 ;
+6 QUIT
