PRCABIL1 ;SF-ISC/RSD - ENTER BILL INFO ;10/16/96 7:04 PM
V ;;4.5;Accounts Receivable;**57,64,109,147,220,276,315,338**;Mar 20, 1995;Build 69
;;Per VA Directive 6402, this routine should not be modified.
;
EN1 ;ENTER NEW BILL
D ST Q:'% N CP
EN10 D EN^PRCABIL2 G Q:'$D(PRCABN) S $P(^PRCA(430,PRCABN,0),"^",8)=$O(^PRCA(430.3,"AC",201,0)) D EN G EN10
EN2 ;EDIT BILL
EN20 D SVC^PRCABIL Q:'$D(PRCAP("S")) S DIC("S")="S Z0=$S($D(^PRCA(430.3,+$P(^(0),U,8),0)):$P(^(0),U,3),1:0) I Z0>199,Z0<210,'$P($G(^PRCA(430,Y,3)),U,3),+$P($G(^(100)),U,2)="_PRCAP("S")
D BILLN^PRCAUTL G Q:'$D(PRCABN) D EN G EN20
EN4 ;CANCEL BILL
EN40 D SVC^PRCABIL Q:'$D(PRCAP("S")) S DIC("S")="S Z0=$S($D(^PRCA(430.3,+$P(^(0),U,8),0)):$P(^(0),U,3),1:0) I Z0>199,Z0<210,$D(^PRCA(430,Y,100)),+$P(^(100),U,2)="_PRCAP("S")
D BILLN^PRCAUTL G Q:'$D(PRCABN)
YN S %=2 W !," Sure you want to cancel this Bill" D YN^DICN
I %=0 W !,*7,"Answer 'Yes' or 'No' " G YN
I %'=1 D Q G EN40
S $P(^PRCA(430,PRCABN,0),"^",14)=DT,$P(^(0),"^",17)=DUZ,$P(^(9),"^",6)=$P(^(0),"^",8),PRCA("STATUS")=$O(^PRCA(430.3,"AC",210,0)) D UPSTATS^PRCAUT2 K PRCA("STATUS") D Q G EN40
EN K PRCADFM S DA=PRCABN D LCK G Q:'$D(DA)
S DIE="^PRCA(430,"
I $D(RCAMEND) S X=+^PRCA(430,DA,100) I X?1N,X<4,X>0 G FORM
S DR="100" D ^DIE G:X'?1N Q
FORM N PRCACAT,PRCAFUND,PRCABENE,PRCACA,PRCATYP,PRCAADD,PRCAAD1D,PRCAAD2D,PRCAAD3D,PRCACD,PRCASTD
N PRCAZPD,PRCAPHD,PREND
S PRCABENE=0
S DR="[PRCA BILL "_$P("1081^1080^1114","^",X)_"]",PRCABT=X D ^DIE
S:$D(DUZ) $P(^PRCA(430,PRCABN,9),U,8)=DUZ
S PRCACAT=$P(^PRCA(430,PRCABN,0),U,2)
;PRCA*4.5*315 New Prompt for Beneficiary Travel if Category is VENDOR
I PRCACAT=17 D I $G(PREND)=1 Q
.W !!
.S DIR("A")="IS THIS FOR VETERANS BENEFICIARY TRAVEL? "
.S DIR("?")="Please answer Yes or No."
.S DIR("B")="NO",DIR(0)="YA^^"
.D ^DIR K DIR
.I '$D(Y(0)) S PREND=1 Q
.I Y(0)="YES" D
..S PRCABENE=1
..S PRCACA=$O(^RC(342.1,"B","AGENT CASHIER",0))
..S PRCATYP=$P(^RC(342.1,PRCACA,0),U,2)
..S PRCAADD=$$SADD^RCFN01(PRCATYP)
..I $G(PRCAADD)'="" D
...S PRCAAD1D=$P(PRCAADD,U),PRCAAD2D=$P(PRCAADD,U,2),PRCAAD3D=$P(PRCAADD,U,3),PRCACD=$P(PRCAADD,U,4)
...S PRCASTD=$P(PRCAADD,U,5),PRCAZPD=$P(PRCAADD,U,6),PRCAPHD=$P(PRCAADD,U,7)
I PRCACAT>39,PRCACAT<45 D
.S X=PRCACAT,PRCAFUND=$S(X=40:"05",X=41:"06",X=42:"07",X=43:"08",1:"10"),PRCAFUND=5287_PRCAFUND
.S DR="259////"_"09;203////^S X=PRCAFUND"
.D ^DIE
.K Y,X
.Q
I PRCACAT=47 D ;315
.N FUND
.S FUND="0160R1" ; patch PRCA*4.5*338
.S DR="259////"_"02;203////^S X=FUND"
.D ^DIE
.K Y,X
.Q
I $P(^PRCA(430,PRCABN,0),U,9)=""!('$D(^(100))!('$D(^(101)))) D MESG W !,"Bill is incomplete and must be re-edited !",*7 G Q
D EN4^PRCABIL S PRCAMT1=0,PRCAMTY=0,DIK="^PRCA(430,PRCABN,2,"
F PRCAI=0:0 S PRCAI=$O(^PRCA(430,PRCABN,2,PRCAI)) Q:'PRCAI I $D(^(PRCAI,0)) S X=^(0) I $P(X,"^",8)]"" S PRCAMT1=PRCAMT1+$P(X,"^",8),PRCAMTY=PRCAMTY+1
I 'PRCAMT1 W !!,"Fiscal Year Amount was not entered ! Bill is incomplete",*7 G Q
I PRCAMTY>1 W !!,"Multiple Fiscal Years are not allowed at this time !",!,"Bill is incomplete and must be re-edited.",*7 G Q
I PRCAMT1'=PRCAMT,PRCABT'=1 W !!,"Fiscal Year Amounts do not equal the total bill amount !",!,"Bill is incomplete and must be re-edited !",*7 G Q
I PRCAMT1'=PRCAMT,PRCABT=1 D ;
. N DIE,DA,DR
. S PRCAMT1=PRCAMT
. S DIE="^PRCA(430,PRCABN,2,"
. S DA(1)=PRCABN
. S DA=+$O(^PRCA(430,PRCABN,2,0))
. S DR="1///"_PRCAMT1
. QUIT:'DA
. ;
. DO ^DIE
;
S Y=$P(^PRCA(430,PRCABN,0),"^",9),Y=Y_"^"_$P(^RCD(340,Y,0),"^",1)
G:$P(Y,";",2)="DPT("!($P(Y,";",2)="DIC(36,") CONT
S PRCANODE=.11 S:$P(Y,";",2)="DIC(4," PRCANODE=1 S PRCANODE="^"_$P(Y,";",2)_+$P(Y,"^",2)_","_PRCANODE_")",PRCANODE=$G(@PRCANODE)
I $P(PRCANODE,"^",1)="" S DR=$P(Y,"^",2),%=1 W !," (No Street Address) Edit Debtor Address: " D YN^DICN,EN1^RCAM(DR):%=1 K DIE,DR,DA
CONT S Y=^PRCA(430,PRCABN,0),$P(Y,"^",3)=PRCAMT,PRCA("STATUS")=$O(^PRCA(430.3,"AC",205,0)),^PRCA(430,PRCABN,0)=Y,$P(^PRCA(430,PRCABN,7),"^")=PRCAMT
I '$D(RCAMEND) S DIE="^PRCA(430,",DA=PRCABN,DR="8////"_PRCA("STATUS")_"" D ^DIE K DIE,DR,DA
DISP S %=1,PRCADFM=1 W !," Display/Print Bill:"
K IOP D YN^DICN
I %=0 W !,*7,"Answer 'Yes' or 'No' " G DISP
D ^PRCABD:%=1
Q L -^PRCA(430,+$G(PRCABN),0)
K %,%Y,A,B,C,D0,DA,DIC,DIE,DIK,DR,I,PRCA,PRCABC,PRCABN,PRCABT,PRCADFM,PRCAI,PRCAKCT,PRCARN,PRCATIME,PRCAMT,PRCAMTY,PRCANODE,PRCAMT1,PRCAMT2,PRCAQ,PRCAP,PRCAT,PRCATY,PRCAX,X,Y,Z0,ZRTN,ZTSK Q
LCK L +^PRCA(430,DA,0):0 I Q
W !,"ANOTHER USER IS EDITING THIS ENTRY !" K DA Q
CP ;CONTROL POINT LOOK-UP
N DIC,PRC,DIE,DA,DR,X,Y,PRCSIP,PRCSI
S PRC("SITE")=$S($G(PRCA("SITE")):PRCA("SITE"),1:$$SITE^RCMSITE)
S DIC("B")=$P($G(^PRCA(430,PRCABN,11)),U)
D CP^PRCSUT I '$G(PRC("CP")) Q
I PRC("CP")<0 Q
S $P(^PRCA(430,PRCABN,11),U)=PRC("CP")
Q
BENEPRT ;PRCA*4.5*315 Beneficiary Travel Notice of Rights and Responsibilities
I $G(PRCABENE) D
.N LINE,BENELTR,DIWF,DIWL,DIWR,IOSLSAVE,PRNT
.S BENELTR=$O(^RC(343,"B","BENEFICIARY TRAVEL NOTICE",0))
.K ^UTILITY($J) ;print main body text from 343
.S ^UTILITY($J,1)="W "_IOF
.S IOSLSAVE=IOSL,IOSL=140
.U IO
.W #
.F LINE=0:0 S LINE=$O(^RC(343,BENELTR,1,LINE)) Q:'LINE S X=$G(^(LINE,0)) I X]"" W:($Y+2)>IOSL @IOF S DIWL=1,DIWR=80,DIWF="N" D ^DIWP
.D ^DIWW S:$G(PRNT)="FL" PRNT=1 K ^UTILITY($J)
.S IOSL=IOSLSAVE
.W !,"Local Agent Cashier Contact Information"
.W !," Office Phone: ",$G(PRCAPHD)
.W !,"Mailing Address: ",$G(PRCAAD1D)
.I $G(PRCAAD2D)'="" W !," ",$G(PRCAAD2D)
.I $G(PRCAAD3D)'="" W !," ",$G(PRCAAD3D)
.W !," ",PRCACD_", "_PRCASTD_" "_PRCAZPD
Q
;
ST D CKSITE^PRCAUDT S %=$D(PRCA("CKSITE")) Q
ST1 D SVC^PRCABIL S %=$S($D(PRCAP("S")):1,1:0) Q:%
K PRCAP Q
DIP D SVC^PRCABIL Q:'$D(PRCAP("S"))
; PRCA*4.5*276 - add '@' to BILL NO. in the 'BY' paramter so that printout does not show it as a sorting field.
S FR=PRCAP("S")_",?,@",TO=PRCAP("S")_",?",L=0,DIC="^PRCA(430,",FLDS="[PRCA BILL LIST]",BY="@INTERNAL(SERVICE),@BILL NO.,FORM TYPE" D EN1^DIP K BY,DHD,DIC,FLDS,FR,L,PRCAP,TO Q
MESG I $P(^PRCA(430,PRCABN,0),U,9)="" W !,?3,"Debtor (or Payer) data is missing."
I '$D(^PRCA(430,PRCABN,100)) W !,?3,"Service (or Section) , Form type or Voucher number data is missing."
I '$D(^PRCA(430,PRCABN,101)) W !,?3,"Date of Charge data does not exist."
W ! Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HPRCABIL1 6395 printed Apr 09, 2024@20:47:36 Page 2
PRCABIL1 ;SF-ISC/RSD - ENTER BILL INFO ;10/16/96 7:04 PM
V ;;4.5;Accounts Receivable;**57,64,109,147,220,276,315,338**;Mar 20, 1995;Build 69
+1 ;;Per VA Directive 6402, this routine should not be modified.
+2 ;
EN1 ;ENTER NEW BILL
+1 DO ST
if '%
QUIT
NEW CP
EN10 DO EN^PRCABIL2
if '$DATA(PRCABN)
GOTO Q
SET $PIECE(^PRCA(430,PRCABN,0),"^",8)=$ORDER(^PRCA(430.3,"AC",201,0))
DO EN
GOTO EN10
EN2 ;EDIT BILL
EN20 DO SVC^PRCABIL
if '$DATA(PRCAP("S"))
QUIT
SET DIC("S")="S Z0=$S($D(^PRCA(430.3,+$P(^(0),U,8),0)):$P(^(0),U,3),1:0) I Z0>199,Z0<210,'$P($G(^PRCA(430,Y,3)),U,3),+$P($G(^(100)),U,2)="_PRCAP("S")
+1 DO BILLN^PRCAUTL
if '$DATA(PRCABN)
GOTO Q
DO EN
GOTO EN20
EN4 ;CANCEL BILL
EN40 DO SVC^PRCABIL
if '$DATA(PRCAP("S"))
QUIT
SET DIC("S")="S Z0=$S($D(^PRCA(430.3,+$P(^(0),U,8),0)):$P(^(0),U,3),1:0) I Z0>199,Z0<210,$D(^PRCA(430,Y,100)),+$P(^(100),U,2)="_PRCAP("S")
+1 DO BILLN^PRCAUTL
if '$DATA(PRCABN)
GOTO Q
YN SET %=2
WRITE !," Sure you want to cancel this Bill"
DO YN^DICN
+1 IF %=0
WRITE !,*7,"Answer 'Yes' or 'No' "
GOTO YN
+2 IF %'=1
DO Q
GOTO EN40
+3 SET $PIECE(^PRCA(430,PRCABN,0),"^",14)=DT
SET $PIECE(^(0),"^",17)=DUZ
SET $PIECE(^(9),"^",6)=$PIECE(^(0),"^",8)
SET PRCA("STATUS")=$ORDER(^PRCA(430.3,"AC",210,0))
DO UPSTATS^PRCAUT2
KILL PRCA("STATUS")
DO Q
GOTO EN40
EN KILL PRCADFM
SET DA=PRCABN
DO LCK
if '$DATA(DA)
GOTO Q
+1 SET DIE="^PRCA(430,"
+2 IF $DATA(RCAMEND)
SET X=+^PRCA(430,DA,100)
IF X?1N
IF X<4
IF X>0
GOTO FORM
+3 SET DR="100"
DO ^DIE
if X'?1N
GOTO Q
FORM NEW PRCACAT,PRCAFUND,PRCABENE,PRCACA,PRCATYP,PRCAADD,PRCAAD1D,PRCAAD2D,PRCAAD3D,PRCACD,PRCASTD
+1 NEW PRCAZPD,PRCAPHD,PREND
+2 SET PRCABENE=0
+3 SET DR="[PRCA BILL "_$PIECE("1081^1080^1114","^",X)_"]"
SET PRCABT=X
DO ^DIE
+4 if $DATA(DUZ)
SET $PIECE(^PRCA(430,PRCABN,9),U,8)=DUZ
+5 SET PRCACAT=$PIECE(^PRCA(430,PRCABN,0),U,2)
+6 ;PRCA*4.5*315 New Prompt for Beneficiary Travel if Category is VENDOR
+7 IF PRCACAT=17
Begin DoDot:1
+8 WRITE !!
+9 SET DIR("A")="IS THIS FOR VETERANS BENEFICIARY TRAVEL? "
+10 SET DIR("?")="Please answer Yes or No."
+11 SET DIR("B")="NO"
SET DIR(0)="YA^^"
+12 DO ^DIR
KILL DIR
+13 IF '$DATA(Y(0))
SET PREND=1
QUIT
+14 IF Y(0)="YES"
Begin DoDot:2
+15 SET PRCABENE=1
+16 SET PRCACA=$ORDER(^RC(342.1,"B","AGENT CASHIER",0))
+17 SET PRCATYP=$PIECE(^RC(342.1,PRCACA,0),U,2)
+18 SET PRCAADD=$$SADD^RCFN01(PRCATYP)
+19 IF $GET(PRCAADD)'=""
Begin DoDot:3
+20 SET PRCAAD1D=$PIECE(PRCAADD,U)
SET PRCAAD2D=$PIECE(PRCAADD,U,2)
SET PRCAAD3D=$PIECE(PRCAADD,U,3)
SET PRCACD=$PIECE(PRCAADD,U,4)
+21 SET PRCASTD=$PIECE(PRCAADD,U,5)
SET PRCAZPD=$PIECE(PRCAADD,U,6)
SET PRCAPHD=$PIECE(PRCAADD,U,7)
End DoDot:3
End DoDot:2
End DoDot:1
IF $GET(PREND)=1
QUIT
+22 IF PRCACAT>39
IF PRCACAT<45
Begin DoDot:1
+23 SET X=PRCACAT
SET PRCAFUND=$SELECT(X=40:"05",X=41:"06",X=42:"07",X=43:"08",1:"10")
SET PRCAFUND=5287_PRCAFUND
+24 SET DR="259////"_"09;203////^S X=PRCAFUND"
+25 DO ^DIE
+26 KILL Y,X
+27 QUIT
End DoDot:1
+28 ;315
IF PRCACAT=47
Begin DoDot:1
+29 NEW FUND
+30 ; patch PRCA*4.5*338
SET FUND="0160R1"
+31 SET DR="259////"_"02;203////^S X=FUND"
+32 DO ^DIE
+33 KILL Y,X
+34 QUIT
End DoDot:1
+35 IF $PIECE(^PRCA(430,PRCABN,0),U,9)=""!('$DATA(^(100))!('$DATA(^(101))))
DO MESG
WRITE !,"Bill is incomplete and must be re-edited !",*7
GOTO Q
+36 DO EN4^PRCABIL
SET PRCAMT1=0
SET PRCAMTY=0
SET DIK="^PRCA(430,PRCABN,2,"
+37 FOR PRCAI=0:0
SET PRCAI=$ORDER(^PRCA(430,PRCABN,2,PRCAI))
if 'PRCAI
QUIT
IF $DATA(^(PRCAI,0))
SET X=^(0)
IF $PIECE(X,"^",8)]""
SET PRCAMT1=PRCAMT1+$PIECE(X,"^",8)
SET PRCAMTY=PRCAMTY+1
+38 IF 'PRCAMT1
WRITE !!,"Fiscal Year Amount was not entered ! Bill is incomplete",*7
GOTO Q
+39 IF PRCAMTY>1
WRITE !!,"Multiple Fiscal Years are not allowed at this time !",!,"Bill is incomplete and must be re-edited.",*7
GOTO Q
+40 IF PRCAMT1'=PRCAMT
IF PRCABT'=1
WRITE !!,"Fiscal Year Amounts do not equal the total bill amount !",!,"Bill is incomplete and must be re-edited !",*7
GOTO Q
+41 ;
IF PRCAMT1'=PRCAMT
IF PRCABT=1
Begin DoDot:1
+42 NEW DIE,DA,DR
+43 SET PRCAMT1=PRCAMT
+44 SET DIE="^PRCA(430,PRCABN,2,"
+45 SET DA(1)=PRCABN
+46 SET DA=+$ORDER(^PRCA(430,PRCABN,2,0))
+47 SET DR="1///"_PRCAMT1
+48 if 'DA
QUIT
+49 ;
+50 DO ^DIE
End DoDot:1
+51 ;
+52 SET Y=$PIECE(^PRCA(430,PRCABN,0),"^",9)
SET Y=Y_"^"_$PIECE(^RCD(340,Y,0),"^",1)
+53 if $PIECE(Y,";",2)="DPT("!($PIECE(Y,";",2)="DIC(36,")
GOTO CONT
+54 SET PRCANODE=.11
if $PIECE(Y,";",2)="DIC(4,"
SET PRCANODE=1
SET PRCANODE="^"_$PIECE(Y,";",2)_+$PIECE(Y,"^",2)_","_PRCANODE_")"
SET PRCANODE=$GET(@PRCANODE)
+55 IF $PIECE(PRCANODE,"^",1)=""
SET DR=$PIECE(Y,"^",2)
SET %=1
WRITE !," (No Street Address) Edit Debtor Address: "
DO YN^DICN
if %=1
DO EN1^RCAM(DR)
KILL DIE,DR,DA
CONT SET Y=^PRCA(430,PRCABN,0)
SET $PIECE(Y,"^",3)=PRCAMT
SET PRCA("STATUS")=$ORDER(^PRCA(430.3,"AC",205,0))
SET ^PRCA(430,PRCABN,0)=Y
SET $PIECE(^PRCA(430,PRCABN,7),"^")=PRCAMT
+1 IF '$DATA(RCAMEND)
SET DIE="^PRCA(430,"
SET DA=PRCABN
SET DR="8////"_PRCA("STATUS")_""
DO ^DIE
KILL DIE,DR,DA
DISP SET %=1
SET PRCADFM=1
WRITE !," Display/Print Bill:"
+1 KILL IOP
DO YN^DICN
+2 IF %=0
WRITE !,*7,"Answer 'Yes' or 'No' "
GOTO DISP
+3 if %=1
DO ^PRCABD
Q LOCK -^PRCA(430,+$GET(PRCABN),0)
+1 KILL %,%Y,A,B,C,D0,DA,DIC,DIE,DIK,DR,I,PRCA,PRCABC,PRCABN,PRCABT,PRCADFM,PRCAI,PRCAKCT,PRCARN,PRCATIME,PRCAMT,PRCAMTY,PRCANODE,PRCAMT1,PRCAMT2,PRCAQ,PRCAP,PRCAT,PRCATY,PRCAX,X,Y,Z0,ZRTN,ZTSK
QUIT
LCK LOCK +^PRCA(430,DA,0):0
IF $TEST
QUIT
+1 WRITE !,"ANOTHER USER IS EDITING THIS ENTRY !"
KILL DA
QUIT
CP ;CONTROL POINT LOOK-UP
+1 NEW DIC,PRC,DIE,DA,DR,X,Y,PRCSIP,PRCSI
+2 SET PRC("SITE")=$SELECT($GET(PRCA("SITE")):PRCA("SITE"),1:$$SITE^RCMSITE)
+3 SET DIC("B")=$PIECE($GET(^PRCA(430,PRCABN,11)),U)
+4 DO CP^PRCSUT
IF '$GET(PRC("CP"))
QUIT
+5 IF PRC("CP")<0
QUIT
+6 SET $PIECE(^PRCA(430,PRCABN,11),U)=PRC("CP")
+7 QUIT
BENEPRT ;PRCA*4.5*315 Beneficiary Travel Notice of Rights and Responsibilities
+1 IF $GET(PRCABENE)
Begin DoDot:1
+2 NEW LINE,BENELTR,DIWF,DIWL,DIWR,IOSLSAVE,PRNT
+3 SET BENELTR=$ORDER(^RC(343,"B","BENEFICIARY TRAVEL NOTICE",0))
+4 ;print main body text from 343
KILL ^UTILITY($JOB)
+5 SET ^UTILITY($JOB,1)="W "_IOF
+6 SET IOSLSAVE=IOSL
SET IOSL=140
+7 USE IO
+8 WRITE #
+9 FOR LINE=0:0
SET LINE=$ORDER(^RC(343,BENELTR,1,LINE))
if 'LINE
QUIT
SET X=$GET(^(LINE,0))
IF X]""
if ($Y+2)>IOSL
WRITE @IOF
SET DIWL=1
SET DIWR=80
SET DIWF="N"
DO ^DIWP
+10 DO ^DIWW
if $GET(PRNT)="FL"
SET PRNT=1
KILL ^UTILITY($JOB)
+11 SET IOSL=IOSLSAVE
+12 WRITE !,"Local Agent Cashier Contact Information"
+13 WRITE !," Office Phone: ",$GET(PRCAPHD)
+14 WRITE !,"Mailing Address: ",$GET(PRCAAD1D)
+15 IF $GET(PRCAAD2D)'=""
WRITE !," ",$GET(PRCAAD2D)
+16 IF $GET(PRCAAD3D)'=""
WRITE !," ",$GET(PRCAAD3D)
+17 WRITE !," ",PRCACD_", "_PRCASTD_" "_PRCAZPD
End DoDot:1
+18 QUIT
+19 ;
ST DO CKSITE^PRCAUDT
SET %=$DATA(PRCA("CKSITE"))
QUIT
ST1 DO SVC^PRCABIL
SET %=$SELECT($DATA(PRCAP("S")):1,1:0)
if %
QUIT
+1 KILL PRCAP
QUIT
DIP DO SVC^PRCABIL
if '$DATA(PRCAP("S"))
QUIT
+1 ; PRCA*4.5*276 - add '@' to BILL NO. in the 'BY' paramter so that printout does not show it as a sorting field.
+2 SET FR=PRCAP("S")_",?,@"
SET TO=PRCAP("S")_",?"
SET L=0
SET DIC="^PRCA(430,"
SET FLDS="[PRCA BILL LIST]"
SET BY="@INTERNAL(SERVICE),@BILL NO.,FORM TYPE"
DO EN1^DIP
KILL BY,DHD,DIC,FLDS,FR,L,PRCAP,TO
QUIT
MESG IF $PIECE(^PRCA(430,PRCABN,0),U,9)=""
WRITE !,?3,"Debtor (or Payer) data is missing."
+1 IF '$DATA(^PRCA(430,PRCABN,100))
WRITE !,?3,"Service (or Section) , Form type or Voucher number data is missing."
+2 IF '$DATA(^PRCA(430,PRCABN,101))
WRITE !,?3,"Date of Charge data does not exist."
+3 WRITE !
QUIT
