IBY181PO ;ALB/JEH - IB*2*181 POST-INSTALL ;01-MAY-02
;;2.0;INTEGRATED BILLING;**181**;21-MAR-94
;
POST ; Set up check points for post-init
N %
S %=$$NEWCP^XPDUTL("UP3646","UP3646^IBY181PO")
S %=$$NEWCP^XPDUTL("UPD3643","UP3643^IBY181PO")
S %=$$NEWCP^XPDUTL("END","END^IBY181PO")
Q
;
UP3646 ; Update NDC CODE # field in file 364.6
N DA,DIE,DR
D BMES^XPDUTL("Updating the LENGTH Field of the NDC CODE # entry in the IB FORM SKELETON DEFINITION File")
S DA=135,DIE="^IBA(364.6,",DR=".09////11" D ^DIE
D COMPLETE
Q
UP3643 ; Delete entries in Mailgroup to Notify field in file 364.3
N Z,DA,DIE,DR
D BMES^XPDUTL("Updating MAILGROUP TO NOTIFY Field of the IB MESSAGE ROUTER File")
S DIE="^IBE(364.3,",DR=".02///@" S Z=0 F S Z=$O(^IBE(364.3,Z)) Q:'Z S DA=Z D ^DIE
D COMPLETE
Q
COMPLETE ;
D BMES^XPDUTL("Step complete.")
Q
END ;
D BMES^XPDUTL("Post-install complete.")
Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HIBY181PO 914 printed Dec 13, 2024@02:33:27 Page 2
IBY181PO ;ALB/JEH - IB*2*181 POST-INSTALL ;01-MAY-02
+1 ;;2.0;INTEGRATED BILLING;**181**;21-MAR-94
+2 ;
POST ; Set up check points for post-init
+1 NEW %
+2 SET %=$$NEWCP^XPDUTL("UP3646","UP3646^IBY181PO")
+3 SET %=$$NEWCP^XPDUTL("UPD3643","UP3643^IBY181PO")
+4 SET %=$$NEWCP^XPDUTL("END","END^IBY181PO")
+5 QUIT
+6 ;
UP3646 ; Update NDC CODE # field in file 364.6
+1 NEW DA,DIE,DR
+2 DO BMES^XPDUTL("Updating the LENGTH Field of the NDC CODE # entry in the IB FORM SKELETON DEFINITION File")
+3 SET DA=135
SET DIE="^IBA(364.6,"
SET DR=".09////11"
DO ^DIE
+4 DO COMPLETE
+5 QUIT
UP3643 ; Delete entries in Mailgroup to Notify field in file 364.3
+1 NEW Z,DA,DIE,DR
+2 DO BMES^XPDUTL("Updating MAILGROUP TO NOTIFY Field of the IB MESSAGE ROUTER File")
+3 SET DIE="^IBE(364.3,"
SET DR=".02///@"
SET Z=0
FOR
SET Z=$ORDER(^IBE(364.3,Z))
if 'Z
QUIT
SET DA=Z
DO ^DIE
+4 DO COMPLETE
+5 QUIT
COMPLETE ;
+1 DO BMES^XPDUTL("Step complete.")
+2 QUIT
END ;
+1 DO BMES^XPDUTL("Post-install complete.")
+2 QUIT
