IBY716PO.m

IBY716PO ;YMG/EDE - IB*2.0*716 POST INSTALL;;NOV 23 2021

 ;;2.0;Integrated Billing;**716**;21-MAR-94;Build 19

 ;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*716")

 D NEWCANC

 D BMES^XPDUTL(" >>  End of the Post-Initialization routine for IB*2.0*716")

 Q

 ;

NEWCANC ; add new cancellation reason to file 350.3

 N FDA

 D MES^XPDUTL("     -> Adding new Cancellation Reason to file 350.3...")

 I $$FIND1^DIC(350.3,,"X","INDIAN ATTESTATION","B") D  Q

 .D MES^XPDUTL("        Already exists.")

 .Q

 S FDA(350.3,"+1,",.01)="INDIAN ATTESTATION"  ; name

 S FDA(350.3,"+1,",.02)="NAI"                 ; abbreviation

 S FDA(350.3,"+1,",.03)=3                     ; limit

 S FDA(350.3,"+1,",.04)=1                     ; can cancel UC

 S FDA(350.3,"+1,",.05)=2                     ; UC visit processing

 D UPDATE^DIE("","FDA")

 D MES^XPDUTL("        Done.")

 Q

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---IBY716PO   988     printed  Apr 09, 2024@21:24:33                                                                                                                                                                                                     Page 2

IBY716PO  ;YMG/EDE - IB*2.0*716 POST INSTALL;;NOV 23 2021

 +1       ;;2.0;Integrated Billing;**716**;21-MAR-94;Build 19

 +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*716")

 +2        DO NEWCANC

 +3        DO BMES^XPDUTL(" >>  End of the Post-Initialization routine for IB*2.0*716")

 +4        QUIT 

 +5       ;

NEWCANC   ; add new cancellation reason to file 350.3

 +1        NEW FDA

 +2        DO MES^XPDUTL("     -> Adding new Cancellation Reason to file 350.3...")

 +3        IF $$FIND1^DIC(350.3,,"X","INDIAN ATTESTATION","B")

               Begin DoDot:1

 +4                DO MES^XPDUTL("        Already exists.")

 +5                QUIT 

               End DoDot:1

               QUIT 

 +6       ; name

           SET FDA(350.3,"+1,",.01)="INDIAN ATTESTATION"

 +7       ; abbreviation

           SET FDA(350.3,"+1,",.02)="NAI"

 +8       ; limit

           SET FDA(350.3,"+1,",.03)=3

 +9       ; can cancel UC

           SET FDA(350.3,"+1,",.04)=1

 +10      ; UC visit processing

           SET FDA(350.3,"+1,",.05)=2

 +11       DO UPDATE^DIE("","FDA")

 +12       DO MES^XPDUTL("        Done.")

 +13       QUIT