PRCA350P.m

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 ---PRCA350P   935     printed  Mar 13, 2025@20:43:23                                                                                                                                                                                                     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