IBY197PO.m

IBY197PO ;ALB/JEH - IB*2*197 POST-INSTALL ;07-NOV-02

 ;;2.0;INTEGRATED BILLING;**197**;21-MAR-94

 ;

POST ; Set up check point for post-init

 N %

 S %=$$NEWCP^XPDUTL("UP364","UP364^IBY197PO")

 S %=$$NEWCP^XPDUTL("UP3646","UP3646^IBY197PO")

 S %=$$NEWCP^XPDUTL("END","END^IBY197PO")

 Q

 ;

UP364 ; Update transmission status in file 364

 N IBZ,Z0

 D BMES^XPDUTL("Updating existing TRANSMISSION STATUS (#.03) field entries in file 364 to closed for messages flagged as Auto filed - No review")

 S IBZ=0 F  S IBZ=$O(^IBM(361,"ANR",1,IBZ)) Q:IBZ=""  S Z0=$P($G(^IBM(361,IBZ,0)),U,11) I Z0,$$PRINTUPD^IBCEU0($G(^IBM(361,IBZ,1,1,0)),+Z0)

 D COMPLETE

 Q

UP3646 ; Update file 364.6

 ; Update Local Override Allowed field to YES for IEN #184

 ; Update Short Description field for IEN #945

 N DA,DIE,DR,IBDESC

 D BMES^XPDUTL("Updating the Local Override Allowed field for IEN #184 in the IB FORM SKELETON DEFINITION FILE")

 S DA=184,DIE="^IBA(364.6,",DR=".07////1" D ^DIE

 D COMPLETE

 D BMES^XPDUTL("Updating Short Description field for IEN #945 in the IB FORM SKELETON DEFINITION FILE")

 S IBDESC="REND PROV INS SPECIFIC ID"

 S DA=945,DIE="^IBA(364.6,",DR=".1///^S X=IBDESC" 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 ---IBY197PO   1321     printed  Mar 13, 2025@21:38:40                                                                                                                                                                                                    Page 2

IBY197PO  ;ALB/JEH - IB*2*197 POST-INSTALL ;07-NOV-02

 +1       ;;2.0;INTEGRATED BILLING;**197**;21-MAR-94

 +2       ;

POST      ; Set up check point for post-init

 +1        NEW %

 +2        SET %=$$NEWCP^XPDUTL("UP364","UP364^IBY197PO")

 +3        SET %=$$NEWCP^XPDUTL("UP3646","UP3646^IBY197PO")

 +4        SET %=$$NEWCP^XPDUTL("END","END^IBY197PO")

 +5        QUIT 

 +6       ;

UP364     ; Update transmission status in file 364

 +1        NEW IBZ,Z0

 +2        DO BMES^XPDUTL("Updating existing TRANSMISSION STATUS (#.03) field entries in file 364 to closed for messages flagged as Auto filed - No review")

 +3        SET IBZ=0

           FOR 

               SET IBZ=$ORDER(^IBM(361,"ANR",1,IBZ))

               if IBZ=""

                   QUIT 

               SET Z0=$PIECE($GET(^IBM(361,IBZ,0)),U,11)

               IF Z0

                   IF $$PRINTUPD^IBCEU0($GET(^IBM(361,IBZ,1,1,0)),+Z0)

 +4        DO COMPLETE

 +5        QUIT 

UP3646    ; Update file 364.6

 +1       ; Update Local Override Allowed field to YES for IEN #184

 +2       ; Update Short Description field for IEN #945

 +3        NEW DA,DIE,DR,IBDESC

 +4        DO BMES^XPDUTL("Updating the Local Override Allowed field for IEN #184 in the IB FORM SKELETON DEFINITION FILE")

 +5        SET DA=184

           SET DIE="^IBA(364.6,"

           SET DR=".07////1"

           DO ^DIE

 +6        DO COMPLETE

 +7        DO BMES^XPDUTL("Updating Short Description field for IEN #945 in the IB FORM SKELETON DEFINITION FILE")

 +8        SET IBDESC="REND PROV INS SPECIFIC ID"

 +9        SET DA=945

           SET DIE="^IBA(364.6,"

           SET DR=".1///^S X=IBDESC"

           DO ^DIE

 +10       DO COMPLETE

 +11       QUIT 

COMPLETE  ;

 +1        DO BMES^XPDUTL("Step Complete.")

 +2        QUIT 

 +3       ;

END       ;

 +1        DO BMES^XPDUTL("Post-install Complete.")

 +2        QUIT