PRCA350P ;ALB/YG - POST INSTALL ;04/15/19 3:34 PM
;;4.5;Accounts Receivable;**350**;Mar 20, 1995;Build 66
;;Per VA Directive 6402, this routine should not be modified.
POSTINIT ;
;
D BMES^XPDUTL(" >> Starting the Post-Initialization routine ...")
D MES^XPDUTL(" ")
I '$D(^PRCA(430.3,"B","CS RE-REFER BILL REQUEST")) D
. S DIC="^PRCA(430.3,",DIC(0)="",DLAYGO=430.3 K D0
. S X="CS RE-REFER BILL REQUEST"
. S DIC("DR")="1///RR;2///63;5///0"
. D FILE^DICN
I '$D(^PRCA(430.3,"B","CS DEBTOR RE-REFER BILL")) D
. S DIC="^PRCA(430.3,",DIC(0)="",DLAYGO=430.3 K D0
. S X="CS DEBTOR RE-REFER BILL"
. S DIC("DR")="1///RS;2///64;5///0"
. D FILE^DICN
I '$D(^PRCA(430.3,"B","CS RE-REFER BILL CANCEL")) D
. S DIC="^PRCA(430.3,",DIC(0)="",DLAYGO=430.3 K D0
. S X="CS RE-REFER BILL CANCEL"
. S DIC("DR")="1///RC;2///65;5///0"
. D FILE^DICN
D MES^XPDUTL(" >> End of the Post-Initialization routine ...")
Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HPRCA350P 935 printed Dec 13, 2024@01:38:43 Page 2
PRCA350P ;ALB/YG - POST INSTALL ;04/15/19 3:34 PM
+1 ;;4.5;Accounts Receivable;**350**;Mar 20, 1995;Build 66
+2 ;;Per VA Directive 6402, this routine should not be modified.
POSTINIT ;
+1 ;
+2 DO BMES^XPDUTL(" >> Starting the Post-Initialization routine ...")
+3 DO MES^XPDUTL(" ")
+4 IF '$DATA(^PRCA(430.3,"B","CS RE-REFER BILL REQUEST"))
Begin DoDot:1
+5 SET DIC="^PRCA(430.3,"
SET DIC(0)=""
SET DLAYGO=430.3
KILL D0
+6 SET X="CS RE-REFER BILL REQUEST"
+7 SET DIC("DR")="1///RR;2///63;5///0"
+8 DO FILE^DICN
End DoDot:1
+9 IF '$DATA(^PRCA(430.3,"B","CS DEBTOR RE-REFER BILL"))
Begin DoDot:1
+10 SET DIC="^PRCA(430.3,"
SET DIC(0)=""
SET DLAYGO=430.3
KILL D0
+11 SET X="CS DEBTOR RE-REFER BILL"
+12 SET DIC("DR")="1///RS;2///64;5///0"
+13 DO FILE^DICN
End DoDot:1
+14 IF '$DATA(^PRCA(430.3,"B","CS RE-REFER BILL CANCEL"))
Begin DoDot:1
+15 SET DIC="^PRCA(430.3,"
SET DIC(0)=""
SET DLAYGO=430.3
KILL D0
+16 SET X="CS RE-REFER BILL CANCEL"
+17 SET DIC("DR")="1///RC;2///65;5///0"
+18 DO FILE^DICN
End DoDot:1
+19 DO MES^XPDUTL(" >> End of the Post-Initialization routine ...")
+20 QUIT
