IBY714PO ;YMG/EDE - IB*2.0*714 POST INSTALL;;DEC 17 2021
;;2.0;Integrated Billing;**714**;21-MAR-94;Build 8
;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*714")
D UPDCANC
D BMES^XPDUTL(" >> End of the Post-Initialization routine for IB*2.0*714")
Q
;
UPDCANC ; update cancellation reason in file 350.3
N FDA,IEN
D MES^XPDUTL(" -> Updating Cancellation Reason in file 350.3...")
S IEN=+$$FIND1^DIC(350.3,,"X","COMPACT","B")
I IEN D
.S FDA(350.3,IEN_",",.05)=2 ; UC visit processing
.D FILE^DIE("","FDA")
.Q
D MES^XPDUTL(" Done.")
Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HIBY714PO 693 printed Dec 13, 2024@02:35:08 Page 2
IBY714PO ;YMG/EDE - IB*2.0*714 POST INSTALL;;DEC 17 2021
+1 ;;2.0;Integrated Billing;**714**;21-MAR-94;Build 8
+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*714")
+2 DO UPDCANC
+3 DO BMES^XPDUTL(" >> End of the Post-Initialization routine for IB*2.0*714")
+4 QUIT
+5 ;
UPDCANC ; update cancellation reason in file 350.3
+1 NEW FDA,IEN
+2 DO MES^XPDUTL(" -> Updating Cancellation Reason in file 350.3...")
+3 SET IEN=+$$FIND1^DIC(350.3,,"X","COMPACT","B")
+4 IF IEN
Begin DoDot:1
+5 ; UC visit processing
SET FDA(350.3,IEN_",",.05)=2
+6 DO FILE^DIE("","FDA")
+7 QUIT
End DoDot:1
+8 DO MES^XPDUTL(" Done.")
+9 QUIT
