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 ---[H[J[2J[HIBY197PO 1321 printed Oct 16, 2024@18:34:06 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
