IBY547PO ;ALB/GEF - Post install routine for patch 547 ; 7-JUN-15
;;2.0;INTEGRATED BILLING;**547**;21-MAR-94;Build 119
;;Per VA Directive 6402, this routine should not be modified.
;
; XPDUTL calls are DBIA#10141
;
DOC ;
; POINDX^IBY547PO will run post-install to set new CROSS-REFERENCES for
; existing fields 3.02 & 3.04 in file 36.
;
; NEWRCS^IBY547PO sets the new multi-field in file #350.9 with the default Revenue Code Exclusions on the
; Printed Claims Report (FUNC REQ: 2.6.4.8, SDD REQ: 6.2.2.2.4.8)
;
; RFAI sets the initial values in fields 52.01 (null) & 52.02 (20 days) in file #350.9
;
EN ; start post-install activities
D POINDX
D NEWRCS
D AC
D RFAI
D RIT
Q
;
POINDX ; POST-INSTALL comes here to set new x-refs
; run triggers on new cross-refs for fields 3.02 & 3.04 (AEI & AEP)
D MES^XPDUTL("Setting new EDI cross-references in INSURANCE COMPANY file ")
N DIK,FLD
; file 36, top level
S DIK="^DIC(36,"
F FLD=3.02,3.04 S DIK(1)=FLD D ENALL^DIK
Q
;
NEWRCS ; POST-INSTALL comes here to set new multi=field (#15) in file #350.9 for the default
; Revenue Code Exclusions on the Printed Claims Report.
D MES^XPDUTL("Setting Default Revenue Code Exclusions in IB SITE PARAMETER file ")
N DIE,DIC,DA,DR,IREVCD,REVCD,FDA,ERRMSG,RETIEN
F REVCD=270:1:279,290:1:299 D
. S IREVCD=$$FIND1^DIC(399.2,,"X",REVCD) Q:'IREVCD
. I $D(^IBE(350.9,1,15,"B",IREVCD)) Q
. K FDA,ERRMSG,RETIEN
. S FDA(350.9399,"+1,1,",.01)=IREVCD
. D UPDATE^DIE("","FDA","RETIEN","ERRMSG")
D MES^XPDUTL("........Default Revenue Code Exclusions set. ")
Q
;
AC ; set initial values in new multiple (#81) in file #350.9 to the default Administrative Contractors for Medicare.
D MES^XPDUTL("Setting Default Administrative Contractor in IB SITE PARAMETER file ")
N FDA,ERRMSG,RETIEN
;
; lookup or add to the pointed to file (adds the first time, lookups the rest)
S FDA(355.98,"?+1,",.01)="DME"
D UPDATE^DIE("E","FDA","RETIEN","ERRMSG") ; returns RETIEN(1) with the value to add or ERRMSG if not found
;
I $D(ERRMSG) Q ;if you can't find the entry in the pointed to file, might as well quit
K ERRMSG,FDA
;
; lookup or add to the multiple.
S FDA(350.981,"?+1,1,",.01)=RETIEN(1)
K RETIEN
D UPDATE^DIE("","FDA","RETIEN","ERRMSG")
D MES^XPDUTL("........Default Administrative Contractor 'DME' set. ")
Q
;
RFAI ; set initial values in fields 52.01 & 52.02 in file #350.9
N DA,DIE,DR,IBNL
D MES^XPDUTL("Setting Default RFAI Purge Days in IB SITE PARAMETER file ")
S IBNL="",DA=1,DIE=350.9,DR="52.01///^S X=IBNL" D ^DIE K DR
D MES^XPDUTL("........Default RFAI Transaction Purge Days (#52.01) set to null for 'no purge'. ")
S DR="52.02///20" D ^DIE
D MES^XPDUTL("........Default RFAI Worklist Purge Days (#52.02) set to 20 days. ")
K DA,DIE,DR
Q
;
RIT ; recompile billing screen templates
N X,Y,DMAX,IBN
D MES^XPDUTL("Recompiling Input Templates for Billing Screens ...")
F IBN=1:1:9,"10","102","10H" D
.S X="IBXS"_$S(IBN=10:"A",IBN="102":"A2",IBN="10H":"AH",1:IBN),Y=$$FIND1^DIC(.402,,"X","IB SCREEN"_IBN,"B"),DMAX=$$ROUSIZE^DILF
.I Y D EN^DIEZ
D MES^XPDUTL(" Done.")
Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HIBY547PO 3190 printed Dec 13, 2024@02:34:30 Page 2
IBY547PO ;ALB/GEF - Post install routine for patch 547 ; 7-JUN-15
+1 ;;2.0;INTEGRATED BILLING;**547**;21-MAR-94;Build 119
+2 ;;Per VA Directive 6402, this routine should not be modified.
+3 ;
+4 ; XPDUTL calls are DBIA#10141
+5 ;
DOC ;
+1 ; POINDX^IBY547PO will run post-install to set new CROSS-REFERENCES for
+2 ; existing fields 3.02 & 3.04 in file 36.
+3 ;
+4 ; NEWRCS^IBY547PO sets the new multi-field in file #350.9 with the default Revenue Code Exclusions on the
+5 ; Printed Claims Report (FUNC REQ: 2.6.4.8, SDD REQ: 6.2.2.2.4.8)
+6 ;
+7 ; RFAI sets the initial values in fields 52.01 (null) & 52.02 (20 days) in file #350.9
+8 ;
EN ; start post-install activities
+1 DO POINDX
+2 DO NEWRCS
+3 DO AC
+4 DO RFAI
+5 DO RIT
+6 QUIT
+7 ;
POINDX ; POST-INSTALL comes here to set new x-refs
+1 ; run triggers on new cross-refs for fields 3.02 & 3.04 (AEI & AEP)
+2 DO MES^XPDUTL("Setting new EDI cross-references in INSURANCE COMPANY file ")
+3 NEW DIK,FLD
+4 ; file 36, top level
+5 SET DIK="^DIC(36,"
+6 FOR FLD=3.02,3.04
SET DIK(1)=FLD
DO ENALL^DIK
+7 QUIT
+8 ;
NEWRCS ; POST-INSTALL comes here to set new multi=field (#15) in file #350.9 for the default
+1 ; Revenue Code Exclusions on the Printed Claims Report.
+2 DO MES^XPDUTL("Setting Default Revenue Code Exclusions in IB SITE PARAMETER file ")
+3 NEW DIE,DIC,DA,DR,IREVCD,REVCD,FDA,ERRMSG,RETIEN
+4 FOR REVCD=270:1:279,290:1:299
Begin DoDot:1
+5 SET IREVCD=$$FIND1^DIC(399.2,,"X",REVCD)
if 'IREVCD
QUIT
+6 IF $DATA(^IBE(350.9,1,15,"B",IREVCD))
QUIT
+7 KILL FDA,ERRMSG,RETIEN
+8 SET FDA(350.9399,"+1,1,",.01)=IREVCD
+9 DO UPDATE^DIE("","FDA","RETIEN","ERRMSG")
End DoDot:1
+10 DO MES^XPDUTL("........Default Revenue Code Exclusions set. ")
+11 QUIT
+12 ;
AC ; set initial values in new multiple (#81) in file #350.9 to the default Administrative Contractors for Medicare.
+1 DO MES^XPDUTL("Setting Default Administrative Contractor in IB SITE PARAMETER file ")
+2 NEW FDA,ERRMSG,RETIEN
+3 ;
+4 ; lookup or add to the pointed to file (adds the first time, lookups the rest)
+5 SET FDA(355.98,"?+1,",.01)="DME"
+6 ; returns RETIEN(1) with the value to add or ERRMSG if not found
DO UPDATE^DIE("E","FDA","RETIEN","ERRMSG")
+7 ;
+8 ;if you can't find the entry in the pointed to file, might as well quit
IF $DATA(ERRMSG)
QUIT
+9 KILL ERRMSG,FDA
+10 ;
+11 ; lookup or add to the multiple.
+12 SET FDA(350.981,"?+1,1,",.01)=RETIEN(1)
+13 KILL RETIEN
+14 DO UPDATE^DIE("","FDA","RETIEN","ERRMSG")
+15 DO MES^XPDUTL("........Default Administrative Contractor 'DME' set. ")
+16 QUIT
+17 ;
RFAI ; set initial values in fields 52.01 & 52.02 in file #350.9
+1 NEW DA,DIE,DR,IBNL
+2 DO MES^XPDUTL("Setting Default RFAI Purge Days in IB SITE PARAMETER file ")
+3 SET IBNL=""
SET DA=1
SET DIE=350.9
SET DR="52.01///^S X=IBNL"
DO ^DIE
KILL DR
+4 DO MES^XPDUTL("........Default RFAI Transaction Purge Days (#52.01) set to null for 'no purge'. ")
+5 SET DR="52.02///20"
DO ^DIE
+6 DO MES^XPDUTL("........Default RFAI Worklist Purge Days (#52.02) set to 20 days. ")
+7 KILL DA,DIE,DR
+8 QUIT
+9 ;
RIT ; recompile billing screen templates
+1 NEW X,Y,DMAX,IBN
+2 DO MES^XPDUTL("Recompiling Input Templates for Billing Screens ...")
+3 FOR IBN=1:1:9,"10","102","10H"
Begin DoDot:1
+4 SET X="IBXS"_$SELECT(IBN=10:"A",IBN="102":"A2",IBN="10H":"AH",1:IBN)
SET Y=$$FIND1^DIC(.402,,"X","IB SCREEN"_IBN,"B")
SET DMAX=$$ROUSIZE^DILF
+5 IF Y
DO EN^DIEZ
End DoDot:1
+6 DO MES^XPDUTL(" Done.")
+7 QUIT
