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 ---[H[J[2J[HIBY716PO 988 printed Dec 13, 2024@02:35:09 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
