Global: ^PRPF(470.9

FileMan FileNo	FileMan Filename	Package
470.9	PATIENT FUNDS ARCHIVE HISTORY	Integrated Patient Fund

Directly Accessed By Routines, Total: 3

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

Package	Total	Routines
Integrated Patient Fund	1	PRPFARC

Field # Name Loc Type Details

Field #	Name	Loc	Type	Details
.01	ARCHIVE DATE	0;1	DATE	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `S %DT="ETX" D ^%DT S X=Y K:Y<1 X` LAST EDITED: `FEB 25, 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)` CROSS-REFERENCE: `470.9^B` `1)= S ^PRPF(470.9,"B",$E(X,1,30),DA)=""` `2)= K ^PRPF(470.9,"B",$E(X,1,30),DA)`
1	TYPE	0;2	SET	'0' FOR ARCHIVE; '1' FOR PURGE; LAST EDITED: `FEB 25, 1997` CROSS-REFERENCE: `470.9^AC^MUMPS` `1)= I X=0 S ^PRPF(470.9,"AC",(10000000-$P(^PRPF(470.9,DA,0),"^")),DA)=""` `2)= K ^PRPF(470.9,"AC",(10000000-$P(^PRPF(470.9,DA,0),"^")),DA)` `This cross reference is used to create a reverse index for date of last archive.`
2	THRU DATE OF PURGE	0;3	DATE	INPUT TRANSFORM: `S %DT="EX" D ^%DT S X=Y K:Y<1 X` LAST EDITED: `MAR 09, 1992`

ARCHIVE DATE

0;1

DATE

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

INPUT TRANSFORM: S %DT="ETX" D ^%DT S X=Y K:Y<1 X
LAST EDITED: FEB 25, 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)
CROSS-REFERENCE: 470.9^B
1)= S ^PRPF(470.9,"B",$E(X,1,30),DA)=""
2)= K ^PRPF(470.9,"B",$E(X,1,30),DA)

TYPE

0;2

SET

LAST EDITED: FEB 25, 1997
CROSS-REFERENCE: 470.9^AC^MUMPS
1)= I X=0 S ^PRPF(470.9,"AC",(10000000-$P(^PRPF(470.9,DA,0),"^")),DA)=""
2)= K ^PRPF(470.9,"AC",(10000000-$P(^PRPF(470.9,DA,0),"^")),DA)
This cross reference is used to create a reverse index for date of last archive.

THRU DATE OF PURGE

0;3

DATE

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

Name	Line Occurrences (* Changed, ! Killed)
^DD("DD"	\|prnt
^DD(470.1	\|dd470.1, \|sort
^DIC(4 - [#4]	\|sort
^DPT - [#2]	\|sort
^PRPF(470 - [#470]	\|inpt*, \|prnt!, \|sort
^PRPF(470.1 - [#470.1]	\|dd470.1*!, \|sort
^PRPF(470.2 - [#470.2]	\|dd470.2!, \|dd470.21!, \|sort
^PRPF(470.3 - [#470.3]	\|dd470.3*!
^PRPF(470.4 - [#470.4]	\|dd470.4*!
^PRPF(470.6 - [#470.6]	\|dd470.6*!
^PRPF(470.9 - [#470.9]	.01(XREF 1S), .01(XREF 1K), 1(XREF 1S), 1(XREF 1K), \|dd470.9*!
^PRPFT(470.5 - [#470.5]	\|dd470.5!, \|inpt

Name	Field # of Occurrence
>> %	\|prnt
>> %DT	.01+1, 2+1, \|dd470.1, \|dd470.5, \|dd470.9*
>> AMT	\|inpt*
>> D	\|dd470.5*
>> D0	\|dd470.1, \|prnt, \|sort, \|sort
>> D1	\|sort
>> DA	.01(XREF 1S), .01(XREF 1K), 1(XREF 1S), 1(XREF 1K), \|dd470.1, \|dd470.2, \|dd470.21, \|dd470.3, \|dd470.4, \|dd470.5 , \|dd470.6, \|dd470.9, \|inpt
>> DA(1	\|dd470.21
>> DEP	\|inpt*
>> DFN	\|inpt, \|prnt*
>> DIC	ID1+1, \|dd470.5*, \|dd470.9
>> DIC(0	\|dd470.5*
>> DINUM	\|dd470.3, \|dd470.4
DIRUT	\|opt!
>> DISX(1	\|sort, \|sort
>> DISX(2	\|sort*
>> DISX(3	\|sort*
>> DISX(4	\|sort*
>> DISX(5	\|sort*
DTOUT	\|opt!
DUOUT	\|opt!
>> FORM	\|inpt*
IOM	\|prnt
>> PRGRAT	\|inpt*
>> PRPF("KILL"	\|inpt*
>> PRPFFR	\|prnt
>> PRPFT(10	\|inpt
>> PRPFTO	\|prnt
>> PRPVT	\|inpt*
>> PRTOT	\|inpt*
U	\|dd470.1, \|dd470.2, \|dd470.6, \|sort, \|sort
X	.01+1!, .01(XREF 1S), .01(XREF 1K), 1(XREF 1S), 2+1!, \|dd470.1!, \|dd470.2!, \|dd470.21!, \|dd470.3!, \|dd470.4! , \|dd470.5!, \|dd470.6!, \|dd470.9!, \|inpt, \|sort, \|sort
X(2	\|sort*
>> X1	\|dd470.1*
>> X2	\|dd470.1*
>> XUMF	.01LAYGO1+1, \|dd470.1, \|dd470.2, \|dd470.3, \|dd470.5, \|dd470.6, \|dd470.9
XX	\|inpt*!
>> Y	.01+1, 2+1, \|dd470.1, \|dd470.5, \|dd470.9, \|inpt, \|prnt*
>> Y(	\|dd470.1*
>> Y(0	\|dd470.1*
>> Y(1	\|sort, \|sort
ZD	\|dd470.5*!
ZI	\|prnt*!