IBY782PO ;YMG/EDE - IB*2.0*782 POST INSTALL;DEC 21 2023
;;2.0;Integrated Billing;**782**;21-MAR-94;Build 9
;Per VA Directive 6402, this routine should not be modified.
;
Q
;
EN ; entry point
D BMES^XPDUTL(" >> Starting the Post-Initialization routine for IB*2.0*782")
D UPDCANC
D UPDOPT
D BMES^XPDUTL(" >> End of the Post-Initialization routine for IB*2.0*782")
Q
UPDCANC ; update cancellation reason in file 350.3
N FDA,IBREAS,IENS
D MES^XPDUTL(" -> Updating Cancellation Reason in file 350.3...")
S IBREAS=+$$FIND1^DIC(350.3,,"X","INDIAN ATTESTATION","B")
I IBREAS>0 D
.S IENS=IBREAS_","
.S FDA(350.3,IENS,.01)="AI/AN VERIFIED"
.S FDA(350.3,IENS,.02)="AI/AN"
.D FILE^DIE("","FDA")
.Q
D MES^XPDUTL(" Done.")
Q
;
UPDOPT ; Update IB INDIAN EXEMPTION REPORT option synonym
N FDA,IENS,MIEN,OIEN
D MES^XPDUTL(" -> Updating option synonym in file 19...")
S MIEN=+$$LKOPT^XPDMENU("IB OUTPUT PATIENT REPORT MENU")
I MIEN D
.S IENS=","_MIEN_","
.S OIEN=+$$FIND1^DIC(19.01,IENS,"X","IB INDIAN EXEMPTION REPORT","B")
.I OIEN S IENS=OIEN_IENS,FDA(19.01,IENS,2)="AIAN" D FILE^DIE("","FDA")
.Q
D MES^XPDUTL(" Done.")
Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HIBY782PO 1198 printed Oct 16, 2024@18:36:06 Page 2
IBY782PO ;YMG/EDE - IB*2.0*782 POST INSTALL;DEC 21 2023
+1 ;;2.0;Integrated Billing;**782**;21-MAR-94;Build 9
+2 ;Per VA Directive 6402, this routine should not be modified.
+3 ;
+4 QUIT
+5 ;
EN ; entry point
+1 DO BMES^XPDUTL(" >> Starting the Post-Initialization routine for IB*2.0*782")
+2 DO UPDCANC
+3 DO UPDOPT
+4 DO BMES^XPDUTL(" >> End of the Post-Initialization routine for IB*2.0*782")
+5 QUIT
UPDCANC ; update cancellation reason in file 350.3
+1 NEW FDA,IBREAS,IENS
+2 DO MES^XPDUTL(" -> Updating Cancellation Reason in file 350.3...")
+3 SET IBREAS=+$$FIND1^DIC(350.3,,"X","INDIAN ATTESTATION","B")
+4 IF IBREAS>0
Begin DoDot:1
+5 SET IENS=IBREAS_","
+6 SET FDA(350.3,IENS,.01)="AI/AN VERIFIED"
+7 SET FDA(350.3,IENS,.02)="AI/AN"
+8 DO FILE^DIE("","FDA")
+9 QUIT
End DoDot:1
+10 DO MES^XPDUTL(" Done.")
+11 QUIT
+12 ;
UPDOPT ; Update IB INDIAN EXEMPTION REPORT option synonym
+1 NEW FDA,IENS,MIEN,OIEN
+2 DO MES^XPDUTL(" -> Updating option synonym in file 19...")
+3 SET MIEN=+$$LKOPT^XPDMENU("IB OUTPUT PATIENT REPORT MENU")
+4 IF MIEN
Begin DoDot:1
+5 SET IENS=","_MIEN_","
+6 SET OIEN=+$$FIND1^DIC(19.01,IENS,"X","IB INDIAN EXEMPTION REPORT","B")
+7 IF OIEN
SET IENS=OIEN_IENS
SET FDA(19.01,IENS,2)="AIAN"
DO FILE^DIE("","FDA")
+8 QUIT
End DoDot:1
+9 DO MES^XPDUTL(" Done.")
+10 QUIT
