Global: ^PRPF(470.3

Information

FileMan FileNo	FileMan Filename	Package
470.3	PATIENT FUNDS TRANSACTION COUNTER	Integrated Patient Fund

Field # Name Loc Type Details

Field #	Name	Loc	Type	Details
.01	NAME	0;1	NUMBER	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `K:+X'=X!(X>470.1)!(X<470.1)!(X?.E1"."2N.N) X I $D(X) S DINUM=X` LAST EDITED: `JAN 07, 1988` HELP-PROMPT: `Type a Number between 470.1 and 470.1, 1 Decimal Digit` 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)` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER` CROSS-REFERENCE: `470.3^B` `1)= S ^PRPF(470.3,"B",$E(X,1,30),DA)=""` `2)= K ^PRPF(470.3,"B",$E(X,1,30),DA)`
1	COUNTER VALUE	0;2	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>999999999)!(X<0)!(X?.E1"."1N.N) X` LAST EDITED: `MAR 04, 1988` HELP-PROMPT: `Type a Number between 0 and 999999999, 0 Decimal Digits`

NAME

0;1

NUMBER

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

INPUT TRANSFORM: K:+X'=X!(X>470.1)!(X<470.1)!(X?.E1"."2N.N) X I $D(X) S DINUM=X
LAST EDITED: JAN 07, 1988
HELP-PROMPT: Type a Number between 470.1 and 470.1, 1 Decimal Digit
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)
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
CROSS-REFERENCE: 470.3^B
1)= S ^PRPF(470.3,"B",$E(X,1,30),DA)=""
2)= K ^PRPF(470.3,"B",$E(X,1,30),DA)

COUNTER VALUE

0;2

NUMBER