Global: ^PRPF(470.6

FileMan FileNo	FileMan Filename	Package
470.6	PATIENT FUNDS REMARKS CODE	Integrated Patient Fund

Directly Accessed By Routines, Total: 2

Package	Total	Routines
Integrated Patient Fund	2	^PRPF(470.6 ^PRPF(470.9

Package	Total	Routines
Integrated Patient Fund	1	PRPFED1

Field # Name Loc Type Details

Field #	Name	Loc	Type	Details
.001	NUMBER		NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>99)!(X<1)!(X?.E1"."1N.N) X` LAST EDITED: `JUL 12, 1988` HELP-PROMPT: `Type a Number between 1 and 99, 0 Decimal Digits`
.01	NAME	0;1	FREE TEXT	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `K:$L(X)>3!($L(X)<1)!'(X'?1P.E) X` LAST EDITED: `JUL 12, 1988` HELP-PROMPT: `Enter the Code to be used to lookup a standard remark` 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)` CROSS-REFERENCE: `470.6^B` `1)= S ^PRPF(470.6,"B",$E(X,1,30),DA)=""` `2)= K ^PRPF(470.6,"B",$E(X,1,30),DA)`
1	FULL REMARK	0;2	FREE TEXT	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `K:X[""""!($A(X)=45) X I $D(X) K:$L(X)>35!($L(X)<3) X` LAST EDITED: `JUL 13, 1988` HELP-PROMPT: `Enter the full remark to be entered in the Patient Funds system when this item is selected`

NUMBER

NAME

0;1

FREE TEXT

************************REQUIRED FIELD************************

INPUT TRANSFORM: K:$L(X)>3!($L(X)<1)!'(X'?1P.E) X
LAST EDITED: JUL 12, 1988
HELP-PROMPT: Enter the Code to be used to lookup a standard remark
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)
CROSS-REFERENCE: 470.6^B
1)= S ^PRPF(470.6,"B",$E(X,1,30),DA)=""
2)= K ^PRPF(470.6,"B",$E(X,1,30),DA)

FULL REMARK

0;2

FREE TEXT

************************REQUIRED FIELD************************

INPUT TRANSFORM: K:X[""""!($A(X)=45) X I $D(X) K:$L(X)>35!($L(X)<3) X
LAST EDITED: JUL 13, 1988
HELP-PROMPT: Enter the full remark to be entered in the Patient Funds system when this item is selected

Name	Field # of Occurrence
EN^DDIOL	.01DEL1+1, .01LAYGO1+1

Name	Line Occurrences (* Changed, ! Killed)
^PRPF(470.6 - [#470.6]	.01(XREF 1S), .01(XREF 1K)

Name	Field # of Occurrence
^(0	ID1+1