- 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 Feb 19, 2025@00:01:37 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