IBY181PO.m

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 ---IBY181PO   914     printed  Apr 09, 2024@21:27:02                                                                                                                                                                                                     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