STANDARD DATA DICTIONARY #470 -- PATIENT FUNDS FILE 3/24/25 PAGE 1
STORED IN ^PRPF(470, *** NO DATA STORED YET *** SITE: WWW.BMIRWIN.COM UCI: VISTA,VISTA (VERSION 3.0)
DATA NAME GLOBAL DATA
ELEMENT TITLE LOCATION TYPE
-----------------------------------------------------------------------------------------------------------------------------------
Primary file used for the storage of patient specific information from the Patient Funds package.
WR ACCESS: ^
DEL ACCESS: ^
LAYGO ACCESS: ^
IDENTIFIED BY: STATION NAME (#73)
"DEAD": I $D(^DPT(+Y,.35)),$P(^(.35),U)]"" W " PATIENT HAS EXPIRED",*7
POINTED TO BY: PATIENT NAME field (#1) of the PATIENT FUNDS MASTER TRANSACTION File (#470.1)
PATIENT NAME field (#1) of the PATIENT FUNDS TEMPORARY TRANSACTION File (#470.5)
CROSS
REFERENCED BY: ACCOUNT STATUS(AC), CARD TO BE PRINTED?(AD), ON DORMANT ACCOUNT LIST(AE), ON MIN/MAX1 LIST(AF),
ON MIN/MAX2 LIST(AG), ACCOUNT OUT OF BALANCE(AH), ON SUSPENSE DISPLAY LIST(AI), ON ACTIVE ACCOUNT LIST(AJ),
PRINT ON OVERDUE LIST?(AK), NAME(B), SUSPENSE DATE(C)
470,.01 NAME 0;1 POINTER TO PATIENT FILE (#2) (Required)
INPUT TRANSFORM: S DINUM=X
LAST EDITED: JUN 12, 1997
HELP-PROMPT:
DELETE TEST: 1,0)= D EN^DDIOL("Deletions are not allowed due to PFOP Migration!!","","!?5,$C(7)") I 1
LAYGO TEST: 1,0)= D:'$G(XUMF) EN^DDIOL("Additions are not allowed due to PFOP Migration!!","","!?5,$C(7)") I +$
G(XUMF)
UNEDITABLE
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
CROSS-REFERENCE: 470^B
1)= S ^PRPF(470,"B",$E(X,1,30),DA)=""
2)= K ^PRPF(470,"B",$E(X,1,30),DA)
CROSS-REFERENCE: ^^TRIGGER^470^10.9
1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^PRPF(470,D0,0)):^(0),1:"") S X=$P(Y(1),U,14),X=X S
DIU=X K Y S X=DIV S X="YES" X ^DD(470,.01,1,2,1.4)
1.4)= S DIH=$S($D(^PRPF(470,DIV(0),0)):^(0),1:""),DIV=X S $P(^(0),U,14)=DIV,DIH=470,DIG=10.9 D ^DIC
R:$O(^DD(DIH,DIG,1,0))>0
2)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^PRPF(470,D0,0)):^(0),1:"") S X=$P(Y(1),U,14),X=X S
DIU=X K Y S X=DIV S X="YES" X ^DD(470,.01,1,2,2.4)
2.4)= S DIH=$S($D(^PRPF(470,DIV(0),0)):^(0),1:""),DIV=X S $P(^(0),U,14)=DIV,DIH=470,DIG=10.9 D ^DIC
R:$O(^DD(DIH,DIG,1,0))>0
CREATE VALUE)= "YES"
DELETE VALUE)= "YES"
FIELD)= #10.9
This trigger will assure that if a provider conversion is accidentally run, that the provider field
will not be changed.
470,1 ACCOUNT STATUS 0;2 SET
'A' FOR ACTIVE;
'I' FOR INACTIVE;
INPUT TRANSFORM: D CKINACT^PRPFED
LAST EDITED: JUL 13, 1987
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
CROSS-REFERENCE: 470^AC
1)= S ^PRPF(470,"AC",$E(X,1,30),DA)=""
2)= K ^PRPF(470,"AC",$E(X,1,30),DA)
470,2 PATIENT TYPE 0;3 SET
'L' FOR LIMITED UNRESTRICTED;
'R' FOR RESTRICTED;
'U' FOR UNRESTRICTED;
'X' FOR UNKNOWN;
LAST EDITED: MAR 09, 1987
470,3 PATIENT STATUS 0;4 SET
'A' FOR ADJUDGED INCOMPETENT;
'R' FOR RATED INCOMPETENT;
'C' FOR COMPETENT;
'N' FOR NOT RATED;
'X' FOR UNKNOWN;
LAST EDITED: MAR 09, 1987
470,4 INDIGENT 0;5 SET
'Y' FOR YES;
'N' FOR NO;
LAST EDITED: MAR 09, 1987
470,5 APPORTIONEE $ 0;6 NUMBER
INPUT TRANSFORM: S:X["$" X=$P(X,"$",2) K:+X'=X&(X'?.N1"."2N)!(X>999999)!(X<0) X
LAST EDITED: MAR 09, 1987
HELP-PROMPT: TYPE A NUMBER BETWEEN 0 AND 999999
470,6 GUARDIAN $ 0;7 NUMBER
INPUT TRANSFORM: S:X["$" X=$P(X,"$",2) K:+X'=X&(X'?.N1"."2N)!(X>999999)!(X<0) X
HELP-PROMPT: TYPE A NUMBER BETWEEN 0 AND 999999
470,7 INSTITUTIONAL AWARD 0;8 NUMBER
INPUT TRANSFORM: S:X["$" X=$P(X,"$",2) K:+X'=X&(X'?.N1"."2N)!(X>999999)!(X<0) X
HELP-PROMPT: TYPE A NUMBER BETWEEN 0 AND 999999
470,8 REGIONAL OFFICE 0;9 POINTER TO INSTITUTION FILE (#4)
LAST EDITED: MAR 09, 1987
470,9 OTHER ASSETS 0;10 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>999999)!(X<0)!(X?.E1"."1N.N) X
LAST EDITED: MAR 09, 1987
HELP-PROMPT: TYPE A WHOLE NUMBER BETWEEN 0 AND 999999
470,10 DATE OF LAST TRANSACTION 0;11 DATE
INPUT TRANSFORM: S %DT="ETX" D ^%DT S X=Y K:Y<1 X
LAST EDITED: MAR 09, 1987
470,10.5 DATE OF CURRENT RESTRICTION 0;12 DATE
INPUT TRANSFORM: S %DT="EX" D ^%DT S X=Y K:Y<1 X
LAST EDITED: MAR 09, 1987
470,10.7 PROVIDER AUTH RESTRICT 0;13 POINTER TO NEW PERSON FILE (#200)
INPUT TRANSFORM: S DIC("S")="I $D(^VA(200,""AK.PROVIDER"",$P(^(0),U,1)))" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
LAST EDITED: APR 28, 1995
SCREEN: S DIC("S")="I $D(^VA(200,""AK.PROVIDER"",$P(^(0),U,1)))"
EXPLANATION: Allows user only to select active providers.
470,10.9 PROVIDER CONVERTED 0;14 SET
'1' FOR YES;
LAST EDITED: JUN 12, 1997
DESCRIPTION: This field contains a flag indicating that the Provider Authorizing Restriction field has been
converted from pointing to file 6 to pointing to file 200.
NOTES: TRIGGERED by the NAME field of the PATIENT FUNDS File
470,11 BALANCE CARRIED FORWARD 1;1 NUMBER
INPUT TRANSFORM: S:X["$" X=$P(X,"$",2) K:+X'=X&(X'?.N1"."2N)!(X>9999999)!(X<0) X
LAST EDITED: MAR 09, 1987
HELP-PROMPT: TYPE A NUMBER BETWEEN 0 AND 9999999
470,12 PVT SOURCE CARRIED FORWARD 1;2 NUMBER
INPUT TRANSFORM: S:X["$" X=$P(X,"$",2) K:+X'=X&(X'?.N1"."2N)!(X>9999999)!(X<0) X
LAST EDITED: MAR 09, 1987
HELP-PROMPT: TYPE A NUMBER BETWEEN 0 AND 9999999
470,13 GRATUITOUS CARRIED FORWARD 1;3 NUMBER
INPUT TRANSFORM: S:X["$" X=$P(X,"$",2) K:+X'=X&(X'?.N1"."2N)!(X>9999999)!(X<0) X
HELP-PROMPT: TYPE A NUMBER BETWEEN 0 AND 9999999
470,14 STORED BALANCE 1;4 NUMBER
INPUT TRANSFORM: S:X["$" X=$P(X,"$",2) K:+X'=X&(X'?."-".N1"."2N)!(X>9999999)!(X<-9999999) X
LAST EDITED: MAR 09, 1987
HELP-PROMPT: TYPE A NUMBER BETWEEN -9999999 AND 9999999
470,14.5 COMPUTED BALANCE ; COMPUTED
MUMPS CODE: X ^DD(470,14.5,9.2) X "F D1=0:0 S D1=$O(^PRPF(470,D0,3,D1)) Q:D1'>0 S Y(470,14.5,102)=Y(470,14.5,1
02)+$S($D(^(D1,0)):$P(^(0),U,3),1:"""")" S D(1)=D1 S X=Y(470,14.5,102) S D0=Y(470,14.5,80) S D1=Y(4
70,14.5,81)
9.2 = S Y(470,14.5,80)=$S($D(D0):D0,1:""),Y(470,14.5,81)=$S($D(D1):D1,1:""),Y(470,14.5,102)=""
ALGORITHM: TOTAL(PATIENT TRANSACTION:TRANSACTION AMOUNT)
LAST EDITED: FEB 24, 1997
470,15 STORED PRIVATE SOURCE 1;5 NUMBER
INPUT TRANSFORM: S:X["$" X=$P(X,"$",2) K:+X'=X&(X'?."-".N1"."2N)!(X>9999999)!(X<-9999999) X
HELP-PROMPT: TYPE A NUMBER BETWEEN -9999999 AND 9999999
470,15.5 COMPUTED PRIVATE SOURCE ; COMPUTED
MUMPS CODE: X ^DD(470,15.5,9.2) X "F D1=0:0 S D1=$O(^PRPF(470,D0,3,D1)) Q:D1'>0 S Y(470,15.5,102)=Y(470,15.5,1
02)+$S($D(^(D1,0)):$P(^(0),U,4),1:"""")" S D(1)=D1 S X=Y(470,15.5,102) S D0=Y(470,15.5,80) S D1=Y(4
70,15.5,81)
9.2 = S Y(470,15.5,80)=$S($D(D0):D0,1:""),Y(470,15.5,81)=$S($D(D1):D1,1:""),Y(470,15.5,102)=""
ALGORITHM: TOTAL(PATIENT TRANSACTION:PRIVATE SOURCE AMOUNT)
LAST EDITED: FEB 24, 1997
470,16 STORED GRATUITOUS 1;6 NUMBER
INPUT TRANSFORM: S:X["$" X=$P(X,"$",2) K:+X'=X&(X'?."-".N1"."2N)!(X>9999999)!(X<-9999999) X
HELP-PROMPT: TYPE A NUMBER BETWEEN -9999999 AND 9999999
470,16.5 COMPUTED GRATUITOUS ; COMPUTED
MUMPS CODE: X ^DD(470,16.5,9.2) X "F D1=0:0 S D1=$O(^PRPF(470,D0,3,D1)) Q:D1'>0 S Y(470,16.5,102)=Y(470,16.5,1
02)+$S($D(^(D1,0)):$P(^(0),U,5),1:"""")" S D(1)=D1 S X=Y(470,16.5,102) S D0=Y(470,16.5,80) S D1=Y(4
70,16.5,81)
9.2 = S Y(470,16.5,80)=$S($D(D0):D0,1:""),Y(470,16.5,81)=$S($D(D1):D1,1:""),Y(470,16.5,102)=""
ALGORITHM: TOTAL(PATIENT TRANSACTION:GRATUITOUS AMOUNT)
LAST EDITED: FEB 24, 1997
470,17 AMOUNT RESTRICTED PER MONTH 1;7 NUMBER
INPUT TRANSFORM: S:X["$" X=$P(X,"$",2) K:+X'=X&(X'?.N1"."2N)!(X>99999)!(X<0) X
LAST EDITED: MAR 09, 1987
HELP-PROMPT: TYPE A NUMBER BETWEEN 0 AND 99999
470,18 AMOUNT RESTRICTED PER WEEK 1;8 NUMBER
INPUT TRANSFORM: S:X["$" X=$P(X,"$",2) K:+X'=X&(X'?.N1"."2N)!(X>99999)!(X<0) X
HELP-PROMPT: TYPE A NUMBER BETWEEN 0 AND 99999
470,19 RESTRICTION MONTH 1;9 DATE
INPUT TRANSFORM: S %DT="E" D ^%DT S X=Y K:Y<1 X
LAST EDITED: MAR 09, 1987
470,20 RESTRICTION WEEK # 1;10 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>9999)!(X<1)!(X?.E1"."1N.N) X
LAST EDITED: MAR 09, 1987
HELP-PROMPT: TYPE A WHOLE NUMBER BETWEEN 1 AND 9999
470,21 MONTHLY RESTRICTION BALANCE 1;11 NUMBER
INPUT TRANSFORM: S:X["$" X=$P(X,"$",2) K:+X'=X&(X'?."-".N1"."2N)!(X>99999)!(X<-99999) X
LAST EDITED: MAR 09, 1987
HELP-PROMPT: TYPE A NUMBER BETWEEN -99999 AND 99999
470,22 WEEKLY RESTRICTION BALANCE 1;12 NUMBER
INPUT TRANSFORM: S:X["$" X=$P(X,"$",2) K:+X'=X&(X'?."-".N1"."2N)!(X>99999)!(X<-99999) X
HELP-PROMPT: TYPE A NUMBER BETWEEN -99999 AND 99999
470,23 MINIMUM BALANCE #1 2;1 NUMBER
INPUT TRANSFORM: S:X["$" X=$P(X,"$",2) K:+X'=X&(X'?.N1"."2N)!(X>999999)!(X<0) X
LAST EDITED: MAR 09, 1987
HELP-PROMPT: TYPE A NUMBER BETWEEN 0 AND 999999
470,24 MAXIMUM BALANCE #1 2;2 NUMBER
INPUT TRANSFORM: S:X["$" X=$P(X,"$",2) K:+X'=X&(X'?.N1"."2N)!(X>999999)!(X<0) X
HELP-PROMPT: TYPE A NUMBER BETWEEN 0 AND 999999
470,25 MINIMUM BALANCE #2 2;3 NUMBER
INPUT TRANSFORM: S:X["$" X=$P(X,"$",2) K:+X'=X&(X'?.N1"."2N)!(X>999999)!(X<0) X
HELP-PROMPT: TYPE A NUMBER BETWEEN 0 AND 999999
470,26 MAXIMUM BALANCE #2 2;4 NUMBER
INPUT TRANSFORM: S:X["$" X=$P(X,"$",2) K:+X'=X&(X'?.N1"."2N)!(X>999999)!(X<0) X
HELP-PROMPT: TYPE A NUMBER BETWEEN 0 AND 999999
470,30 PATIENT TRANSACTION 3;0 POINTER Multiple #470.01
DESCRIPTION: This field stores the current master transactions affecting a patient account. As archiving
becomes available, the data contained in this field will only be a subset of all the master
transactions affecting a specific veteran.
470.01,.01 PATIENT TRANSACTION 0;1 POINTER TO PATIENT FUNDS MASTER TRANSACTION FILE (#470.1) (Required)
TRANS #
LAST EDITED: SEP 01, 1987
HELP-PROMPT:
CROSS-REFERENCE: 470.01^B
1)= S ^PRPF(470,DA(1),3,"B",$E(X,1,30),DA)=""
2)= K ^PRPF(470,DA(1),3,"B",$E(X,1,30),DA)
470.01,1 TRANSACTION DATE 0;2 DATE (Required)
INPUT TRANSFORM: S %DT="EX" D ^%DT S X=Y K:Y<1 X
LAST EDITED: SEP 01, 1987
CROSS-REFERENCE: 470.01^AC
1)= S ^PRPF(470,DA(1),3,"AC",$E(X,1,30),DA)=""
2)= K ^PRPF(470,DA(1),3,"AC",$E(X,1,30),DA)
470.01,2 TRANSACTION AMOUNT 0;3 NUMBER
AMOUNT
INPUT TRANSFORM: S:X["$" X=$P(X,"$",2) K:+X'=X&(X'?."-".N1"."2N)!(X>9999999)!(X<-9999999) X
LAST EDITED: MAR 09, 1987
HELP-PROMPT: TYPE A NUMBER BETWEEN -9999999 AND 9999999
470.01,3 PRIVATE SOURCE AMOUNT 0;4 NUMBER
INPUT TRANSFORM: S:X["$" X=$P(X,"$",2) K:+X'=X&(X'?."-".N1"."2N)!(X>9999999)!(X<-9999999) X
HELP-PROMPT: TYPE A NUMBER BETWEEN -9999999 AND 9999999
470.01,4 GRATUITOUS AMOUNT 0;5 NUMBER
INPUT TRANSFORM: S:X["$" X=$P(X,"$",2) K:+X'=X&(X'?."-".N1"."2N)!(X>9999999)!(X<-9999999) X
LAST EDITED: MAR 09, 1987
HELP-PROMPT: TYPE A NUMBER BETWEEN -9999999 AND 9999999
470.01,5 BALANCE 0;6 NUMBER
INPUT TRANSFORM: S:X["$" X=$P(X,"$",2) K:+X'=X&(X'?."-".N1"."2N)!(X>9999999)!(X<-9999999) X
LAST EDITED: MAR 09, 1987
HELP-PROMPT: TYPE A NUMBER BETWEEN -9999999 AND 9999999
470.01,7 VERIFY AMOUNT ; COMPUTED
MUMPS CODE: X ^DD(470.01,7,9.2) S D0=$P(Y(470.01,7,1),U,1) S:'$D(^PRPF(470.1,+D0,0)) D0=-1 S Y(470.01,7,101)=$S
($D(^PRPF(470.1,D0,0)):^(0),1:"") S X=$P(Y(470.01,7,101),U,4) S D0=Y(470.01,7,80) S D1=Y(470.01,7,8
1)
9.2 = S Y(470.01,7,81)=$S($D(D1):D1,1:""),Y(470.01,7,80)=$S($D(D0):D0,1:""),Y(470.01,7,1)=$S($D(^PR
PF(470,D0,3,D1,0)):^(0),1:"")
ALGORITHM: PATIENT TRANSACTION:AMOUNT
470.01,8 TRANSACTION DATE ; COMPUTED DATE
MUMPS CODE: X ^DD(470.01,8,9.2) S D0=$P(Y(470.01,8,1),U,1) S:'$D(^PRPF(470.1,+D0,0)) D0=-1 S Y(470.01,8,101)=$S
($D(^PRPF(470.1,D0,0)):^(0),1:"") S X=$P(Y(470.01,8,101),U,5) S D0=Y(470.01,8,80) S D1=Y(470.01,8,8
1)
9.2 = S Y(470.01,8,81)=$S($D(D1):D1,1:""),Y(470.01,8,80)=$S($D(D0):D0,1:""),Y(470.01,8,1)=$S($D(^PR
PF(470,D0,3,D1,0)):^(0),1:"")
ALGORITHM: PATIENT TRANSACTION:TRANSACTION DATE
470.01,9 DATE ENTERED ; COMPUTED
DATE
MUMPS CODE: X ^DD(470.01,9,9.3) S:X X=$E(X,4,5)_"/"_$E(X,6,7)_"/"_(1700+$E(X,1,3)) S X=X S D0=Y(470.01,9,80) S
D1=Y(470.01,9,81)
9.2 = S Y(470.01,9,81)=$S($D(D1):D1,1:""),Y(470.01,9,80)=$S($D(D0):D0,1:""),Y(470.01,9,1)=$S($D(^PR
PF(470,D0,3,D1,0)):^(0),1:"")
9.3 = X ^DD(470.01,9,9.2) S D0=$P(Y(470.01,9,1),U,1) S:'$D(^PRPF(470.1,+D0,0)) D0=-1 S Y(470.01,9,1
01)=$S($D(^PRPF(470.1,D0,0)):^(0),1:"") S X=$P(Y(470.01,9,101),U,6)
ALGORITHM: NUMDATE4(PATIENT TRANSACTION:DATE TRANSACTION ENTERED)
LAST EDITED: FEB 25, 1998
470.01,10 REFERENCE ; COMPUTED
MUMPS CODE: X ^DD(470.01,10,9.2) S D0=$P(Y(470.01,10,1),U,1) S:'$D(^PRPF(470.1,+D0,0)) D0=-1 S Y(470.01,10,101)
=$S($D(^PRPF(470.1,D0,0)):^(0),1:"") S X=$P(Y(470.01,10,101),U,7) S D0=Y(470.01,10,80) S D1=Y(470.0
1,10,81)
9.2 = S Y(470.01,10,81)=$S($D(D1):D1,1:""),Y(470.01,10,80)=$S($D(D0):D0,1:""),Y(470.01,10,1)=$S($D(
^PRPF(470,D0,3,D1,0)):^(0),1:"")
ALGORITHM: PATIENT TRANSACTION:REFERENCE
470.01,11 DEP/WIT ; COMPUTED
D/W
MUMPS CODE: X ^DD(470.01,11,9.3) S X=X S X=X S D0=Y(470.01,11,80) S D1=Y(470.01,11,81)
9.2 = S Y(470.01,11,81)=$S($D(D1):D1,1:""),Y(470.01,11,80)=$S($D(D0):D0,1:""),Y(470.01,11,1)=$S($D(
^PRPF(470,D0,3,D1,0)):^(0),1:"")
9.3 = X ^DD(470.01,11,9.2) S D0=$P(Y(470.01,11,1),U,1) S:'$D(^PRPF(470.1,+D0,0)) D0=-1 S Y(470.01,1
1,101)=$S($D(^PRPF(470.1,D0,0)):^(0),1:"") S X=$P(Y(470.01,11,101),U,8)
ALGORITHM: INTERNAL(PATIENT TRANSACTION:DEPOSIT/WITHDRAWAL)
LAST EDITED: JUL 06, 1987
470.01,12 CA/CK/OTH ; COMPUTED
MUMPS CODE: X ^DD(470.01,12,9.3) S Y(470.01,12,101)=$S($D(^PRPF(470.1,D0,0)):^(0),1:"") S X=$P($P(Y(470.01,12,1
02),$C(59)_$P(Y(470.01,12,101),U,9)_":",2),$C(59),1) S D0=Y(470.01,12,80) S D1=Y(470.01,12,81)
9.2 = S Y(470.01,12,81)=$S($D(D1):D1,1:""),Y(470.01,12,80)=$S($D(D0):D0,1:""),Y(470.01,12,1)=$S($D(
^PRPF(470,D0,3,D1,0)):^(0),1:"")
9.3 = X ^DD(470.01,12,9.2) S D0=$P(Y(470.01,12,1),U,1) S:'$D(^PRPF(470.1,+D0,0)) D0=-1 S Y(470.01,1
2,102)=$C(59)_$S($D(^DD(470.1,8,0)):$P(^(0),U,3),1:"")
ALGORITHM: PATIENT TRANSACTION:CASH/CHECK/OTHER
470.01,13 P/G ; COMPUTED
MUMPS CODE: X ^DD(470.01,13,9.3) S X=X S X=X S D0=Y(470.01,13,80) S D1=Y(470.01,13,81)
9.2 = S Y(470.01,13,81)=$S($D(D1):D1,1:""),Y(470.01,13,80)=$S($D(D0):D0,1:""),Y(470.01,13,1)=$S($D(
^PRPF(470,D0,3,D1,0)):^(0),1:"")
9.3 = X ^DD(470.01,13,9.2) S D0=$P(Y(470.01,13,1),U,1) S:'$D(^PRPF(470.1,+D0,0)) D0=-1 S Y(470.01,1
3,101)=$S($D(^PRPF(470.1,D0,0)):^(0),1:"") S X=$P(Y(470.01,13,101),U,10)
ALGORITHM: INTERNAL(PATIENT TRANSACTION:SOURCE)
LAST EDITED: JUL 06, 1987
470.01,14 FORM ; COMPUTED
MUMPS CODE: X ^DD(470.01,14,9.3) S X=$S('$D(^PRPF(470.2,+$P(Y(470.01,14,101),U,11),0)):"",1:$P(^(0),U,1)) S D0=
Y(470.01,14,80) S D1=Y(470.01,14,81)
9.2 = S Y(470.01,14,81)=$S($D(D1):D1,1:""),Y(470.01,14,80)=$S($D(D0):D0,1:""),Y(470.01,14,1)=$S($D(
^PRPF(470,D0,3,D1,0)):^(0),1:"")
9.3 = X ^DD(470.01,14,9.2) S D0=$P(Y(470.01,14,1),U,1) S:'$D(^PRPF(470.1,+D0,0)) D0=-1 S Y(470.01,1
4,101)=$S($D(^PRPF(470.1,D0,0)):^(0),1:"")
ALGORITHM: PATIENT TRANSACTION:FORM
470.01,15 CLERK ; COMPUTED
MUMPS CODE: X ^DD(470.01,15,9.3) S X=$S('$D(^VA(200,+$P(Y(470.01,15,101),U,14),0)):"",1:$P(^(0),U,1)) S D0=Y(47
0.01,15,80) S D1=Y(470.01,15,81)
9.2 = S Y(470.01,15,81)=$S($D(D1):D1,1:""),Y(470.01,15,80)=$S($D(D0):D0,1:""),Y(470.01,15,1)=$S($D(
^PRPF(470,D0,3,D1,0)):^(0),1:"")
9.3 = X ^DD(470.01,15,9.2) S D0=$P(Y(470.01,15,1),U,1) S:'$D(^PRPF(470.1,+D0,0)) D0=-1 S Y(470.01,1
5,101)=$S($D(^PRPF(470.1,D0,0)):^(0),1:"")
ALGORITHM: PATIENT TRANSACTION:PATIENT FUNDS CLERK
LAST EDITED: FEB 13, 1997
470.01,16 REMARKS ; COMPUTED
MUMPS CODE: X ^DD(470.01,16,9.2) S D0=$P(Y(470.01,16,1),U,1) S:'$D(^PRPF(470.1,+D0,0)) D0=-1 S Y(470.01,16,101)
=$S($D(^PRPF(470.1,D0,0)):^(0),1:"") S X=$P(Y(470.01,16,101),U,16) S D0=Y(470.01,16,80) S D1=Y(470.
01,16,81)
9.2 = S Y(470.01,16,81)=$S($D(D1):D1,1:""),Y(470.01,16,80)=$S($D(D0):D0,1:""),Y(470.01,16,1)=$S($D(
^PRPF(470,D0,3,D1,0)):^(0),1:"")
ALGORITHM: PATIENT TRANSACTION:REMARKS
470,30.5 DEFERRED BALANCE ; COMPUTED
MUMPS CODE: X ^DD(470,30.5,9.2) X "F D1=0:0 S D1=$O(^PRPF(470,D0,4,D1)) Q:D1'>0 S Y(470,30.5,102)=Y(470,30.5,1
02)+$S($D(^(D1,0)):$P(^(0),U,3),1:"""")" S D(1)=D1 S X=Y(470,30.5,102) S D0=Y(470,30.5,80) S D1=Y(4
70,30.5,81)
9.2 = S Y(470,30.5,80)=$S($D(D0):D0,1:""),Y(470,30.5,81)=$S($D(D1):D1,1:""),Y(470,30.5,102)=""
ALGORITHM: TOTAL(#31:#2)
LAST EDITED: FEB 24, 1997
470,31 DEFERRED CREDIT REF # 4;0 Multiple #470.02 (Add New Entry without Asking)
470.02,.01 DEFERRED CREDIT REF # 0;1 FREE TEXT
INPUT TRANSFORM: K:$L(X)>15!($L(X)<1) X
LAST EDITED: MAY 15, 1987
HELP-PROMPT: ANSWER MUST BE 1-15 CHARACTERS IN LENGTH
470.02,1 DEFERRED DATE 0;2 DATE
INPUT TRANSFORM: S %DT="EX" D ^%DT S X=Y K:Y<1 X
LAST EDITED: MAR 09, 1987
470.02,2 AMOUNT 0;3 NUMBER
INPUT TRANSFORM: S:X["$" X=$P(X,"$",2) K:+X'=X&(X'?.N1"."2N)!(X>9999999)!(X<0) X
LAST EDITED: MAR 09, 1987
HELP-PROMPT: TYPE A NUMBER BETWEEN 0 AND 9999999
470.02,3 PATIENT TRANSACTION # 0;4 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>99999)!(X<1)!(X?.E1"."1N.N) X
LAST EDITED: MAR 09, 1987
HELP-PROMPT: TYPE A WHOLE NUMBER BETWEEN 1 AND 99999
470,32 SUSPENSE DATE 5;0 DATE Multiple #470.03
470.03,.01 SUSPENSE DATE 0;1 DATE (Multiply asked)
INPUT TRANSFORM: S %DT="EX" D ^%DT S X=Y K:Y<1 X
LAST EDITED: AUG 21, 1987
HELP-PROMPT:
CROSS-REFERENCE: 470^C
1)= S ^PRPF(470,"C",$E(X,1,30),DA(1),DA)=""
2)= K ^PRPF(470,"C",$E(X,1,30),DA(1),DA)
470.03,1 ID 1;0 Multiple #470.04 (Add New Entry without Asking)
470.04,.01 ITEM ID 0;1 FREE TEXT (Multiply asked)
INPUT TRANSFORM: K:$L(X)>40!($L(X)<1) X
LAST EDITED: SEP 02, 1987
HELP-PROMPT: ENTER A SHORT DESCRIPTION OF THIS SUSPENSE ITEM DO NOT EXCEED 40 CHARACTERS
CROSS-REFERENCE: 470.04^B
1)= S ^PRPF(470,DA(2),5,DA(1),1,"B",$E(X,1,30),DA)=""
2)= K ^PRPF(470,DA(2),5,DA(1),1,"B",$E(X,1,30),DA)
470.04,1 FULL DESCRIPTION 1;0 WORD-PROCESSING #470.07
LAST EDITED: AUG 24, 1987
470,33 INCOME SOURCE 6;0 Multiple #470.05
470.05,.01 INCOME SOURCE 0;1 FREE TEXT (Multiply asked)
INPUT TRANSFORM: K:$L(X)>25!($L(X)<1) X
LAST EDITED: DEC 11, 1987
HELP-PROMPT: Enter a person/type of income for this patient. Do not exceed 25 characters.
CROSS-REFERENCE: 470.05^B
1)= S ^PRPF(470,DA(1),6,"B",$E(X,1,30),DA)=""
2)= K ^PRPF(470,DA(1),6,"B",$E(X,1,30),DA)
470.05,1 PAYEE 0;2 FREE TEXT (Required)
INPUT TRANSFORM: K:$L(X)>20!($L(X)<1) X
LAST EDITED: DEC 11, 1987
HELP-PROMPT: Enter the name of the individual to whom the check is made payable.
470.05,2 AMOUNT 0;3 NUMBER (Required)
INPUT TRANSFORM: S:X["$" X=$P(X,"$",2) K:+X'=X&(X'?.N1"."2N)!(X>99999)!(X<1) X
LAST EDITED: MAR 09, 1987
HELP-PROMPT: TYPE A NUMBER BETWEEN 1 AND 99999
470.05,3 FREQUENCY 0;4 SET
'D' FOR DAILY;
'W' FOR WEEKLY;
'M' FOR MONTHLY;
'Y' FOR YEARLY;
'X' FOR UNKNOWN;
'V' FOR VARIABLE;
'O' FOR OTHER;
LAST EDITED: JUL 06, 1987
470,34 GENERAL INFORMATION/REMARKS 7;0 WORD-PROCESSING #470.06
LAST EDITED: NOV 09, 1987
470,35 SPECIAL REMARKS 8;0 WORD-PROCESSING #470.035
DESCRIPTION: This field is designed to store those remarks which are to be viewed by Patient Funds Personnel
ONLY.
LAST EDITED: OCT 13, 1987
470,50 SSN ; COMPUTED
MUMPS CODE: X ^DD(470,50,9.2) S X=$P(Y(470,50,101),U,9) S D0=Y(470,50,80)
9.2 = S Y(470,50,80)=$S($D(D0):D0,1:""),Y(470,50,1)=$S($D(^PRPF(470,D0,0)):^(0),1:""),D0=$P(Y(470,5
0,1),U,1) S:'$D(^DPT(+D0,0)) D0=-1 S Y(470,50,101)=$S($D(^DPT(D0,0)):^(0),1:"")
ALGORITHM: NAME:SSN
470,51 DOB ; COMPUTED DATE
MUMPS CODE: X ^DD(470,51,9.2) S X=$P(Y(470,51,101),U,3) S D0=Y(470,51,80)
9.2 = S Y(470,51,80)=$S($D(D0):D0,1:""),Y(470,51,1)=$S($D(^PRPF(470,D0,0)):^(0),1:""),D0=$P(Y(470,5
1,1),U,1) S:'$D(^DPT(+D0,0)) D0=-1 S Y(470,51,101)=$S($D(^DPT(D0,0)):^(0),1:"")
ALGORITHM: NAME:DOB
470,52 WARD ; COMPUTED
MUMPS CODE: S X="",DFN=$S($D(DA):DA,$D(D0):D0,1:"") I DFN["" D DGINPW^PRPFU1 S X=DFN(.1) K DFN(.1)
9.2 = S Y(470,52,80)=$S($D(D0):D0,1:""),Y(470,52,1)=$S($D(^PRPF(470,D0,0)):^(0),1:""),D0=$P(Y(470,5
2,1),U,1) S:'$D(^DPT(+D0,0)) D0=-1 S Y(470,52,101)=$S($D(^DPT(D0,.1)):^(.1),1:"")
ALGORITHM: S X="",DFN=$S($D(DA):DA,$D(D0):D0,1:"") I DFN["" D DGINPW^PRPFU1 S X=DFN(.1) K DFN(.1)
LAST EDITED: FEB 19, 1992
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
470,53 CLAIM NUMBER ; COMPUTED
MUMPS CODE: X ^DD(470,53,9.2) S X=$P(Y(470,53,101),U,3) S D0=Y(470,53,80)
9.2 = S Y(470,53,80)=$S($D(D0):D0,1:""),Y(470,53,1)=$S($D(^PRPF(470,D0,0)):^(0),1:""),D0=$P(Y(470,5
3,1),U,1) S:'$D(^DPT(+D0,0)) D0=-1 S Y(470,53,101)=$S($D(^DPT(D0,.31)):^(.31),1:"")
ALGORITHM: NAME:CLAIM NUMBER
470,54 STREET ADDRESS ; COMPUTED
MUMPS CODE: X ^DD(470,54,9.2) S X=$P(Y(470,54,101),U,1) S D0=Y(470,54,80)
9.2 = S Y(470,54,80)=$S($D(D0):D0,1:""),Y(470,54,1)=$S($D(^PRPF(470,D0,0)):^(0),1:""),D0=$P(Y(470,5
4,1),U,1) S:'$D(^DPT(+D0,0)) D0=-1 S Y(470,54,101)=$S($D(^DPT(D0,.11)):^(.11),1:"")
ALGORITHM: NAME:STREET ADDRESS
470,55 STREET ADDRESS 2 ; COMPUTED
MUMPS CODE: X ^DD(470,55,9.2) S X=$P(Y(470,55,101),U,2) S D0=Y(470,55,80)
9.2 = S Y(470,55,80)=$S($D(D0):D0,1:""),Y(470,55,1)=$S($D(^PRPF(470,D0,0)):^(0),1:""),D0=$P(Y(470,5
5,1),U,1) S:'$D(^DPT(+D0,0)) D0=-1 S Y(470,55,101)=$S($D(^DPT(D0,.11)):^(.11),1:"")
ALGORITHM: NAME:STREET ADDRESS 2
470,56 STREET ADDRESS 3 ; COMPUTED
MUMPS CODE: X ^DD(470,56,9.2) S X=$P(Y(470,56,101),U,3) S D0=Y(470,56,80)
9.2 = S Y(470,56,80)=$S($D(D0):D0,1:""),Y(470,56,1)=$S($D(^PRPF(470,D0,0)):^(0),1:""),D0=$P(Y(470,5
6,1),U,1) S:'$D(^DPT(+D0,0)) D0=-1 S Y(470,56,101)=$S($D(^DPT(D0,.11)):^(.11),1:"")
ALGORITHM: NAME:STREET ADDRESS 3
470,57 CITY ; COMPUTED
MUMPS CODE: X ^DD(470,57,9.2) S X=$P(Y(470,57,101),U,4) S D0=Y(470,57,80)
9.2 = S Y(470,57,80)=$S($D(D0):D0,1:""),Y(470,57,1)=$S($D(^PRPF(470,D0,0)):^(0),1:""),D0=$P(Y(470,5
7,1),U,1) S:'$D(^DPT(+D0,0)) D0=-1 S Y(470,57,101)=$S($D(^DPT(D0,.11)):^(.11),1:"")
ALGORITHM: NAME:CITY
470,58 STATE ; COMPUTED
MUMPS CODE: X ^DD(470,58,9.2) S X=$S('$D(^DIC(5,+$P(Y(470,58,101),U,5),0)):"",1:$P(^(0),U,1)) S D0=Y(470,58,80)
9.2 = S Y(470,58,80)=$S($D(D0):D0,1:""),Y(470,58,1)=$S($D(^PRPF(470,D0,0)):^(0),1:""),D0=$P(Y(470,5
8,1),U,1) S:'$D(^DPT(+D0,0)) D0=-1 S Y(470,58,101)=$S($D(^DPT(D0,.11)):^(.11),1:"")
ALGORITHM: NAME:STATE
LAST EDITED: MAR 11, 1987
470,59 ZIP CODE ; COMPUTED
MUMPS CODE: X ^DD(470,59,9.2) S X=$P(Y(470,59,101),U,6) S D0=Y(470,59,80)
9.2 = S Y(470,59,80)=$S($D(D0):D0,1:""),Y(470,59,1)=$S($D(^PRPF(470,D0,0)):^(0),1:""),D0=$P(Y(470,5
9,1),U,1) S:'$D(^DPT(+D0,0)) D0=-1 S Y(470,59,101)=$S($D(^DPT(D0,.11)):^(.11),1:"")
ALGORITHM: NAME:ZIP CODE
470,60 CARD TO BE PRINTED? 1;13 SET (Required)
'Y' FOR YES;
LAST EDITED: JAN 27, 1989
UNEDITABLE
CROSS-REFERENCE: 470^AD
1)= S ^PRPF(470,"AD",$E(X,1,30),DA)=""
2)= K ^PRPF(470,"AD",$E(X,1,30),DA)
470,61 ON DORMANT ACCOUNT LIST 1;14 SET (Required)
'Y' FOR YES;
LAST EDITED: JAN 27, 1989
UNEDITABLE
CROSS-REFERENCE: 470^AE
1)= S ^PRPF(470,"AE",$E(X,1,30),DA)=""
2)= K ^PRPF(470,"AE",$E(X,1,30),DA)
470,62 ON MIN/MAX1 LIST 1;15 SET (Required)
'Y' FOR YES;
LAST EDITED: JAN 27, 1989
UNEDITABLE
CROSS-REFERENCE: 470^AF
1)= S ^PRPF(470,"AF",$E(X,1,30),DA)=""
2)= K ^PRPF(470,"AF",$E(X,1,30),DA)
470,63 ON MIN/MAX2 LIST 1;16 SET (Required)
'Y' FOR YES;
LAST EDITED: JAN 27, 1989
UNEDITABLE
CROSS-REFERENCE: 470^AG
1)= S ^PRPF(470,"AG",$E(X,1,30),DA)=""
2)= K ^PRPF(470,"AG",$E(X,1,30),DA)
470,64 ACCOUNT OUT OF BALANCE 1;17 SET (Required)
'Y' FOR YES;
LAST EDITED: JAN 27, 1989
UNEDITABLE
CROSS-REFERENCE: 470^AH
1)= S ^PRPF(470,"AH",$E(X,1,30),DA)=""
2)= K ^PRPF(470,"AH",$E(X,1,30),DA)
470,65 ON SUSPENSE DISPLAY LIST 1;18 SET (Required)
'Y' FOR YES;
LAST EDITED: JAN 27, 1989
HELP-PROMPT:
UNEDITABLE
CROSS-REFERENCE: 470^AI
1)= S ^PRPF(470,"AI",$E(X,1,30),DA)=""
2)= K ^PRPF(470,"AI",$E(X,1,30),DA)
470,66 ON ACTIVE ACCOUNT LIST 1;19 SET (Required)
'Y' FOR YES;
LAST EDITED: JAN 27, 1989
HELP-PROMPT:
UNEDITABLE
CROSS-REFERENCE: 470^AJ
1)= S ^PRPF(470,"AJ",$E(X,1,30),DA)=""
2)= K ^PRPF(470,"AJ",$E(X,1,30),DA)
470,67 PRINT ON OVERDUE LIST? 1;20 SET (Required)
'Y' FOR YES;
LAST EDITED: JAN 27, 1989
HELP-PROMPT:
UNEDITABLE
CROSS-REFERENCE: 470^AK
1)= S ^PRPF(470,"AK",$E(X,1,30),DA)=""
2)= K ^PRPF(470,"AK",$E(X,1,30),DA)
470,68 RECORD LOCKED 9;1 SET
'1' FOR YES;
'0' FOR NO;
LAST EDITED: MAR 02, 1988
470,69 RECORD LOCKED BY 9;2 POINTER TO NEW PERSON FILE (#200)
LAST EDITED: SEP 19, 1995
470,70 RECORD LOCKED TERMINAL 9;3 FREE TEXT
INPUT TRANSFORM: K:$L(X)>15!($L(X)<1) X
LAST EDITED: MAR 01, 1988
HELP-PROMPT: ANSWER MUST BE 1-15 CHARACTERS IN LENGTH
470,71 FUTURE MONTH 10;0 DATE Multiple #470.071 (Add New Entry without Asking)
470.071,.01 FUTURE MONTH 0;1 DATE
INPUT TRANSFORM: S %DT="E" D ^%DT S (X,DINUM)=Y K:Y<1 X,DINUM
LAST EDITED: JAN 27, 1989
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
470.071,1 PENDING AMOUNT 0;2 NUMBER
INPUT TRANSFORM: S:X["$" X=$P(X,"$",2) K:X'?."-".N.1".".2N!(X>999999999)!(X<-999999999) X
LAST EDITED: JAN 27, 1989
HELP-PROMPT: Type a Dollar Amount between -999999999 and 999999999, 2 Decimal Digits
470,72 FUTURE WEEK 11;0 Multiple #470.072 (Add New Entry without Asking)
470.072,.01 FUTURE WEEK 0;1 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>999999999)!(X<1)!(X?.E1"."1N.N) X I $D(X) S DINUM=X
LAST EDITED: JAN 27, 1989
HELP-PROMPT: Type a Number between 1 and 999999999, 0 Decimal Digits
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
470.072,1 PENDING AMOUNT 0;2 NUMBER
INPUT TRANSFORM: S:X["$" X=$P(X,"$",2) K:X'?."-".N.1".".2N!(X>999999999)!(X<-999999999) X
LAST EDITED: JAN 27, 1989
HELP-PROMPT: Type a Dollar Amount between -999999999 and 999999999, 2 Decimal Digits
470,73 STATION NAME 12;1 POINTER TO INSTITUTION FILE (#4)
LAST EDITED: JUN 06, 2002
HELP-PROMPT: Answer must be 3-5 characters in length
DESCRIPTION:
This field will be used to store the primary Station Name that a patient is officially assigned to.
FILES POINTED TO FIELDS
INSTITUTION (#4) REGIONAL OFFICE (#8)
STATION NAME (#73)
NEW PERSON (#200) PROVIDER AUTH RESTRICT (#10.7)
RECORD LOCKED BY (#69)
PATIENT (#2) NAME (#.01)
PATIENT FUNDS MASTER TRANSACTI
(#470.1) PATIENT TRANSACTION:PATIENT TRANSACTION (#.01)
INPUT TEMPLATE(S):
PRPF DEFERRAL EDIT AUG 24, 1987 USER #0
PRPF INACTIVE/ACTIVE MAY 09, 2002@09:06 USER #0
PRPF LONG REGISTRATION MAY 14, 2002@11:30 USER #0
PRPF SELECTED DATA EDIT NOV 27, 1987 USER #0
PRPF SHORT REGISTRATION MAY 14, 2002@11:30 USER #0
PRPF SUSPENSE ENTER EDIT AUG 24, 1987 USER #0
PRINT TEMPLATE(S):
PRPF BALANCE IN ACCOUNTS AUG 05, 2002@10:57 USER #0 PATIENT FUNDS BALANCE IN ALL ACCOUNTS
PRPF CARD PRINT FEB 26, 1988 USER #0 @
PRPF CURRENT BAL SEP 11, 1991@12:15 USER #0 CURRENT PATIENT BALANCES AND TOTAL IN ACCOUNTS
PRPF DORMANT ACCOUNT LIST MAY 10, 2002@16:44 USER #0 PATIENT FUNDS DORMANT ACCOUNT LISTING
PRPF INACTIVE ACCOUNTS DEC 31, 1987 USER #0 PATIENT FUNDS INACTIVE ACCOUNT LISTING
PRPF INDIGENT LIST MAY 13, 2002@18:11 USER #0 PATIENT FUNDS INDIGENT LIST
PRPF MIN/MAX1 MAY 10, 2002@16:56 USER #0 PATIENT FUNDS MIN/MAX #1 REPORT
PRPF MIN/MAX2 MAY 10, 2002@16:57 USER #0 PATIENT FUNDS MIN/MAX #2 REPORT
PRPF NEGATIVE BALANCES MAY 10, 2002@17:19 USER #0 PATIENT FUNDS NEGATIVE BALANCE LIST
PRPF NEW ACCOUNT STATUS DEC 31, 1987 USER #0 PATIENT FUNDS LISTING OF UPDATED ACCOUNT STATUS
PRPF OUT OF BALANCE MAY 10, 2002@17:17 USER #0 PATIENT FUNDS OUT OF BALANCE REPORT
PRPF OVERDUE PRINT MAY 15, 2002@13:09 USER #0 PATIENT FUNDS LISTING OF OUT OF DATE RESTRICTIONS
PRPF PATIENT LIST MAY 13, 2002@17:21 USER #0 PATIENT FUNDS LIST
PRPF PATIENT SUMMARY APR 25, 2002@19:40 USER #0 PATIENT FUNDS DAILY SUMMARY
PRPF RANGE OF CARDS MAR 02, 1990@14:23 USER #0 @
PRPF SUSPENSE DISPLAY SEP 02, 1987 USER #0 PATIENT FUNDS SUSPENSE REVIEW
PRPF SUSPENSE LIST DEC 31, 1987 USER #0 PATIENT FUNDS SUSPENSE LIST
PRPF TRANSACTION DISPLAY JUL 07, 1987 USER #0 PATIENT FUNDS V3 LIST
PRPF UNASSIGNED STATION LIST AUG 02, 2002@09:49 USER #0 UNASSIGNED STATION NAME LISTING
SORT TEMPLATE(S):
PRPF BALANCE IN ACCOUNTS MAR 22, 1988 USER #0
SORT BY: ]+ACCOUNT STATUS;S3//
PRPF BY PATIENT JUL 13, 1987 USER #0
SORT BY: ]NAME// (NAME not null)
PRPF CURRENT BAL SEP 10, 1991@22:48 USER #0
SORT BY: @NAME// (NAME not null)
WITHIN NAME, SORT BY: @ACCOUNT STATUS// (ACCOUNT STATUS equals A)
PRPF DORMANT ACCOUNT LIST DEC 14, 1987 USER #0
SORT BY: ]@ON DORMANT ACCOUNT LIST// (ON DORMANT ACCOUNT LIST)
WITHIN ON DORMANT ACCOUNT LIST, SORT BY: NAME// (NAME not null)
PRPF INACTIVE ACCOUNTS JUL 13, 1987 USER #0
SORT BY: ]ACCOUNT STATUS// From 'I'
WITHIN ACCOUNT STATUS, SORT BY: NAME//
PRPF INDIGENT LIST FEB 19, 1998@15:23 USER #0
SORT BY: ]INDIGENT// (INDIGENT from Y (YES))
WITHIN INDIGENT, SORT BY: ACCOUNT STATUS// (ACCOUNT STATUS equals A (ACTIVE))
WITHIN ACCOUNT STATUS, SORT BY: NAME// (NAME not null)
Select all Active Indigent patients.
PRPF LIST DEC 14, 1987 USER #0 NAME NOT NULL
PRPF PATIENT SUMMARY JAN 06, 1988 USER #0
SORT BY: @ACCOUNT STATUS// (ACCOUNT STATUS)
WITHIN ACCOUNT STATUS, SORT BY: NAME// (NAME not null)
PRPF RANGE OF CARDS MAR 02, 1990@14:22 USER #0
SORT BY: ]NAME// (User is asked range)
PRPF SUSPENSE DISPLAY APR 28, 1995@12:09 USER #0
SORT BY: NAME// (NAME not null)
WITHIN NAME, SORT BY: SUSPENSE DATE;S//
SUSPENSE DATE SUB-FIELD: SUSPENSE DATE// (User is asked range)
PRPF SUSPENSE LIST SEP 02, 1987 USER #0
SORT BY: ]SUSPENSE DATE;S//
SUSPENSE DATE SUB-FIELD: SUSPENSE DATE// (User is asked range)
WITHIN SUSPENSE DATE, SORT BY: NAME// (NAME not null)
PRPF UNASSIGNED STATION LIST MAY 15, 2002@17:44 USER #0
SORT BY: @STATION NAME// (STATION NAME is null)
WITHIN STATION NAME, SORT BY: NAME// (NAME not null)
THIS TEMPLATE WILL SEARCH FOR PATIENTS WITH OUT A STATION ASSIGNED TO THEM
FORM(S)/BLOCK(S):