PRPFDR6 ;BAYPINES/MJE VPFS DATA MIGRATION ROUTINE 6 ;05/15/03
;;3.0;PATIENT FUNDS DIAG V5.9;**15**;JUNE 1, 1989
;ENTRY AT LINETAG ONLY
Q
XSUM1 ;THIS ENTRY POINT FOR SUMMARY INFO
S PRPFCNTR=PRPFCNTR+1 S ^TMP("PRPF_DIAGVL",$J,CNTSEG,PRPFCNTR)="*#33 RESTRCT AMT ER Restrict Mnthly amount < weekly amt "_CNTERR(33)
D SEG^PRPFDR3
S PRPFCNTR=PRPFCNTR+1 S ^TMP("PRPF_DIAGVL",$J,CNTSEG,PRPFCNTR)="*#34 MINIMUM BAL Minimum balance #1 invalid or < $0 or > $99,999 "_CNTERR(34)
D SEG^PRPFDR3
S PRPFCNTR=PRPFCNTR+1 S ^TMP("PRPF_DIAGVL",$J,CNTSEG,PRPFCNTR)="*#35 MAXIMUM BAL Maximum balance #1 invalid or < $0 or > $99,999 "_CNTERR(35)
D SEG^PRPFDR3
S PRPFCNTR=PRPFCNTR+1 S ^TMP("PRPF_DIAGVL",$J,CNTSEG,PRPFCNTR)="*#36 NO BALANCE REC Balance record missing for account "_CNTERR(36)
D SEG^PRPFDR3
S PRPFCNTR=PRPFCNTR+1 S ^TMP("PRPF_DIAGVL",$J,CNTSEG,PRPFCNTR)="*#37 INCOME PAYEE Income payee blank, Income source present "_CNTERR(37)
D SEG^PRPFDR3
S PRPFCNTR=PRPFCNTR+1 S ^TMP("PRPF_DIAGVL",$J,CNTSEG,PRPFCNTR)="*#38 INCOME AMOUNT Income amount error, Income source present "_CNTERR(38)
D SEG^PRPFDR3
S PRPFCNTR=PRPFCNTR+1 S ^TMP("PRPF_DIAGVL",$J,CNTSEG,PRPFCNTR)="*#39 INCOME AMOUNT Income amount < $1 or > $99,999 "_CNTERR(39)
D SEG^PRPFDR3
S PRPFCNTR=PRPFCNTR+1 S ^TMP("PRPF_DIAGVL",$J,CNTSEG,PRPFCNTR)="*#40 INCOME FREQCY Income frequency not D,W,M,Y,X,V,O,Blank="_PRPFBC40_$P(" "," ",1,6-$L(PRPFBC40))_" "_CNTERR(40)
D SEG^PRPFDR3
S PRPFCNTR=PRPFCNTR+1 S ^TMP("PRPF_DIAGVL",$J,CNTSEG,PRPFCNTR)="*#41 STATION ID Station ID blank or unassigned "_CNTERR(41)
D SEG^PRPFDR3
S PRPFCNTR=PRPFCNTR+1 S ^TMP("PRPF_DIAGVL",$J,CNTSEG,PRPFCNTR)=" #42 STATION ID Station ID invalid "_CNTERR(42)
D SEG^PRPFDR3
S PRPFCNTR=PRPFCNTR+1 S ^TMP("PRPF_DIAGVL",$J,CNTSEG,PRPFCNTR)="*#43 SUSPENSE DATE Suspense date has invalid date "_CNTERR(43)
D SEG^PRPFDR3
S PRPFCNTR=PRPFCNTR+1 S ^TMP("PRPF_DIAGVL",$J,CNTSEG,PRPFCNTR)="*#44 SUSPENSE ID Suspense ID has Invalid data "_CNTERR(44)
D SEG^PRPFDR3
S PRPFCNTR=PRPFCNTR+1 S ^TMP("PRPF_DIAGVL",$J,CNTSEG,PRPFCNTR)="*#45 SUSPENSE TEXT Suspense text is < 1 or > 255 characters "_CNTERR(45)
D SEG^PRPFDR3
S PRPFCNTR=PRPFCNTR+1 S ^TMP("PRPF_DIAGVL",$J,CNTSEG,PRPFCNTR)="*#46 DEFERRED TRANS There are "_PRPFDEFR_" deferred transactions "_PRPFDEFR
D SEG^PRPFDR3
S PRPFCNTR=PRPFCNTR+1 S ^TMP("PRPF_DIAGVL",$J,CNTSEG,PRPFCNTR)="*#47 TRANSACTION REC Transaction record missing, blank or ID invalid "_CNTERR(47)
D SEG^PRPFDR3
S PRPFCNTR=PRPFCNTR+1 S ^TMP("PRPF_DIAGVL",$J,CNTSEG,PRPFCNTR)="*#48 PATIENT NAME Patient name does not match deferred trans "_CNTERR(48)
D SEG^PRPFDR3
S PRPFCNTR=PRPFCNTR+1 S ^TMP("PRPF_DIAGVL",$J,CNTSEG,PRPFCNTR)="*#49 PATIENT TRANS # Patient transaction # invalid "_CNTERR(49)
D SEG^PRPFDR3
S PRPFCNTR=PRPFCNTR+1 S ^TMP("PRPF_DIAGVL",$J,CNTSEG,PRPFCNTR)="*#50 DEFR AMOUNT Deferred amount invalid "_CNTERR(50)
D SEG^PRPFDR3
S PRPFCNTR=PRPFCNTR+1 S ^TMP("PRPF_DIAGVL",$J,CNTSEG,PRPFCNTR)="*#51 TRANSACTN DATE Transaction date Invalid "_CNTERR(51)
D SEG^PRPFDR3
S PRPFCNTR=PRPFCNTR+1 S ^TMP("PRPF_DIAGVL",$J,CNTSEG,PRPFCNTR)="*#52 DT TRAN ENTD Date transaction entered Invalid "_CNTERR(52)
D SEG^PRPFDR3
S PRPFCNTR=PRPFCNTR+1 S ^TMP("PRPF_DIAGVL",$J,CNTSEG,PRPFCNTR)="*#53 REFERENCE Reference Invalid < 1 or > 10 in length "_CNTERR(53)
D SEG^PRPFDR3
S PRPFCNTR=PRPFCNTR+1 S ^TMP("PRPF_DIAGVL",$J,CNTSEG,PRPFCNTR)="*#54 DEPOSIT/WTHDRWL Deposit/Withdrawal status Invalid "_CNTERR(54)
D SEG^PRPFDR3
S PRPFCNTR=PRPFCNTR+1 S ^TMP("PRPF_DIAGVL",$J,CNTSEG,PRPFCNTR)="*#55 CASH/CHECK/OTR Cash/Check/Other status Invalid "_CNTERR(55)
D SEG^PRPFDR3
S PRPFCNTR=PRPFCNTR+1 S ^TMP("PRPF_DIAGVL",$J,CNTSEG,PRPFCNTR)="*#56 SOURCE Transaction source invalid "_CNTERR(56)
D SEG^PRPFDR3
S PRPFCNTR=PRPFCNTR+1 S ^TMP("PRPF_DIAGVL",$J,CNTSEG,PRPFCNTR)="*#57 FORM Form does not match "_CNTERR(57)
D SEG^PRPFDR3
S PRPFCNTR=PRPFCNTR+1 S ^TMP("PRPF_DIAGVL",$J,CNTSEG,PRPFCNTR)="*#58 PRVT SOURCE AMT Private source amount invalid or < 0 or > 99999 "_CNTERR(58)
D SEG^PRPFDR3
S PRPFCNTR=PRPFCNTR+1 S ^TMP("PRPF_DIAGVL",$J,CNTSEG,PRPFCNTR)="*#59 GRATUITOUS AMT Gratuitous amount invalid or < 0 or > 99999 "_CNTERR(59)
D SEG^PRPFDR3
S PRPFCNTR=PRPFCNTR+1 S ^TMP("PRPF_DIAGVL",$J,CNTSEG,PRPFCNTR)="*#60 PFUNDS CLERK PFunds clerk invalid "_CNTERR(60)
D SEG^PRPFDR3
S PRPFCNTR=PRPFCNTR+1 S ^TMP("PRPF_DIAGVL",$J,CNTSEG,PRPFCNTR)="**************************************************************************#DETAIL#"
D SEG^PRPFDR3
Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HPRPFDR6 5083 printed Nov 22, 2024@17:11:44 Page 2
PRPFDR6 ;BAYPINES/MJE VPFS DATA MIGRATION ROUTINE 6 ;05/15/03
+1 ;;3.0;PATIENT FUNDS DIAG V5.9;**15**;JUNE 1, 1989
+2 ;ENTRY AT LINETAG ONLY
+3 QUIT
XSUM1 ;THIS ENTRY POINT FOR SUMMARY INFO
+1 SET PRPFCNTR=PRPFCNTR+1
SET ^TMP("PRPF_DIAGVL",$JOB,CNTSEG,PRPFCNTR)="*#33 RESTRCT AMT ER Restrict Mnthly amount < weekly amt "_CNTERR(33)
+2 DO SEG^PRPFDR3
+3 SET PRPFCNTR=PRPFCNTR+1
SET ^TMP("PRPF_DIAGVL",$JOB,CNTSEG,PRPFCNTR)="*#34 MINIMUM BAL Minimum balance #1 invalid or < $0 or > $99,999 "_CNTERR(34)
+4 DO SEG^PRPFDR3
+5 SET PRPFCNTR=PRPFCNTR+1
SET ^TMP("PRPF_DIAGVL",$JOB,CNTSEG,PRPFCNTR)="*#35 MAXIMUM BAL Maximum balance #1 invalid or < $0 or > $99,999 "_CNTERR(35)
+6 DO SEG^PRPFDR3
+7 SET PRPFCNTR=PRPFCNTR+1
SET ^TMP("PRPF_DIAGVL",$JOB,CNTSEG,PRPFCNTR)="*#36 NO BALANCE REC Balance record missing for account "_CNTERR(36)
+8 DO SEG^PRPFDR3
+9 SET PRPFCNTR=PRPFCNTR+1
SET ^TMP("PRPF_DIAGVL",$JOB,CNTSEG,PRPFCNTR)="*#37 INCOME PAYEE Income payee blank, Income source present "_CNTERR(37)
+10 DO SEG^PRPFDR3
+11 SET PRPFCNTR=PRPFCNTR+1
SET ^TMP("PRPF_DIAGVL",$JOB,CNTSEG,PRPFCNTR)="*#38 INCOME AMOUNT Income amount error, Income source present "_CNTERR(38)
+12 DO SEG^PRPFDR3
+13 SET PRPFCNTR=PRPFCNTR+1
SET ^TMP("PRPF_DIAGVL",$JOB,CNTSEG,PRPFCNTR)="*#39 INCOME AMOUNT Income amount < $1 or > $99,999 "_CNTERR(39)
+14 DO SEG^PRPFDR3
+15 SET PRPFCNTR=PRPFCNTR+1
SET ^TMP("PRPF_DIAGVL",$JOB,CNTSEG,PRPFCNTR)="*#40 INCOME FREQCY Income frequency not D,W,M,Y,X,V,O,Blank="_PRPFBC40_$PIECE(" "," ",1,6-$LENGTH(PRPFBC40))_" "_CNTERR(40)
+16 DO SEG^PRPFDR3
+17 SET PRPFCNTR=PRPFCNTR+1
SET ^TMP("PRPF_DIAGVL",$JOB,CNTSEG,PRPFCNTR)="*#41 STATION ID Station ID blank or unassigned "_CNTERR(41)
+18 DO SEG^PRPFDR3
+19 SET PRPFCNTR=PRPFCNTR+1
SET ^TMP("PRPF_DIAGVL",$JOB,CNTSEG,PRPFCNTR)=" #42 STATION ID Station ID invalid "_CNTERR(42)
+20 DO SEG^PRPFDR3
+21 SET PRPFCNTR=PRPFCNTR+1
SET ^TMP("PRPF_DIAGVL",$JOB,CNTSEG,PRPFCNTR)="*#43 SUSPENSE DATE Suspense date has invalid date "_CNTERR(43)
+22 DO SEG^PRPFDR3
+23 SET PRPFCNTR=PRPFCNTR+1
SET ^TMP("PRPF_DIAGVL",$JOB,CNTSEG,PRPFCNTR)="*#44 SUSPENSE ID Suspense ID has Invalid data "_CNTERR(44)
+24 DO SEG^PRPFDR3
+25 SET PRPFCNTR=PRPFCNTR+1
SET ^TMP("PRPF_DIAGVL",$JOB,CNTSEG,PRPFCNTR)="*#45 SUSPENSE TEXT Suspense text is < 1 or > 255 characters "_CNTERR(45)
+26 DO SEG^PRPFDR3
+27 SET PRPFCNTR=PRPFCNTR+1
SET ^TMP("PRPF_DIAGVL",$JOB,CNTSEG,PRPFCNTR)="*#46 DEFERRED TRANS There are "_PRPFDEFR_" deferred transactions "_PRPFDEFR
+28 DO SEG^PRPFDR3
+29 SET PRPFCNTR=PRPFCNTR+1
SET ^TMP("PRPF_DIAGVL",$JOB,CNTSEG,PRPFCNTR)="*#47 TRANSACTION REC Transaction record missing, blank or ID invalid "_CNTERR(47)
+30 DO SEG^PRPFDR3
+31 SET PRPFCNTR=PRPFCNTR+1
SET ^TMP("PRPF_DIAGVL",$JOB,CNTSEG,PRPFCNTR)="*#48 PATIENT NAME Patient name does not match deferred trans "_CNTERR(48)
+32 DO SEG^PRPFDR3
+33 SET PRPFCNTR=PRPFCNTR+1
SET ^TMP("PRPF_DIAGVL",$JOB,CNTSEG,PRPFCNTR)="*#49 PATIENT TRANS # Patient transaction # invalid "_CNTERR(49)
+34 DO SEG^PRPFDR3
+35 SET PRPFCNTR=PRPFCNTR+1
SET ^TMP("PRPF_DIAGVL",$JOB,CNTSEG,PRPFCNTR)="*#50 DEFR AMOUNT Deferred amount invalid "_CNTERR(50)
+36 DO SEG^PRPFDR3
+37 SET PRPFCNTR=PRPFCNTR+1
SET ^TMP("PRPF_DIAGVL",$JOB,CNTSEG,PRPFCNTR)="*#51 TRANSACTN DATE Transaction date Invalid "_CNTERR(51)
+38 DO SEG^PRPFDR3
+39 SET PRPFCNTR=PRPFCNTR+1
SET ^TMP("PRPF_DIAGVL",$JOB,CNTSEG,PRPFCNTR)="*#52 DT TRAN ENTD Date transaction entered Invalid "_CNTERR(52)
+40 DO SEG^PRPFDR3
+41 SET PRPFCNTR=PRPFCNTR+1
SET ^TMP("PRPF_DIAGVL",$JOB,CNTSEG,PRPFCNTR)="*#53 REFERENCE Reference Invalid < 1 or > 10 in length "_CNTERR(53)
+42 DO SEG^PRPFDR3
+43 SET PRPFCNTR=PRPFCNTR+1
SET ^TMP("PRPF_DIAGVL",$JOB,CNTSEG,PRPFCNTR)="*#54 DEPOSIT/WTHDRWL Deposit/Withdrawal status Invalid "_CNTERR(54)
+44 DO SEG^PRPFDR3
+45 SET PRPFCNTR=PRPFCNTR+1
SET ^TMP("PRPF_DIAGVL",$JOB,CNTSEG,PRPFCNTR)="*#55 CASH/CHECK/OTR Cash/Check/Other status Invalid "_CNTERR(55)
+46 DO SEG^PRPFDR3
+47 SET PRPFCNTR=PRPFCNTR+1
SET ^TMP("PRPF_DIAGVL",$JOB,CNTSEG,PRPFCNTR)="*#56 SOURCE Transaction source invalid "_CNTERR(56)
+48 DO SEG^PRPFDR3
+49 SET PRPFCNTR=PRPFCNTR+1
SET ^TMP("PRPF_DIAGVL",$JOB,CNTSEG,PRPFCNTR)="*#57 FORM Form does not match "_CNTERR(57)
+50 DO SEG^PRPFDR3
+51 SET PRPFCNTR=PRPFCNTR+1
SET ^TMP("PRPF_DIAGVL",$JOB,CNTSEG,PRPFCNTR)="*#58 PRVT SOURCE AMT Private source amount invalid or < 0 or > 99999 "_CNTERR(58)
+52 DO SEG^PRPFDR3
+53 SET PRPFCNTR=PRPFCNTR+1
SET ^TMP("PRPF_DIAGVL",$JOB,CNTSEG,PRPFCNTR)="*#59 GRATUITOUS AMT Gratuitous amount invalid or < 0 or > 99999 "_CNTERR(59)
+54 DO SEG^PRPFDR3
+55 SET PRPFCNTR=PRPFCNTR+1
SET ^TMP("PRPF_DIAGVL",$JOB,CNTSEG,PRPFCNTR)="*#60 PFUNDS CLERK PFunds clerk invalid "_CNTERR(60)
+56 DO SEG^PRPFDR3
+57 SET PRPFCNTR=PRPFCNTR+1
SET ^TMP("PRPF_DIAGVL",$JOB,CNTSEG,PRPFCNTR)="**************************************************************************#DETAIL#"
+58 DO SEG^PRPFDR3
+59 QUIT
