Sub-Field: 440.512

Parent File	Name	Number	Package
PURCHASE CARD INFORMATION(#440.5)	SURROGATE USER	440.512	IFCAP

Details

Field # Name Loc Type Details

Field #	Name	Loc	Type	Details
.01	SURROGATE USER	0;1	POINTER TO NEW PERSON FILE (#200)	NEW PERSON(#200) INPUT TRANSFORM: `S DIC("S")="I $D(^PRC(420,PRC(""SITE""),1,+$P(^PRC(440.5,DA(1),0),U,2),1,+Y))" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X S:+$G(X) DINUM=X` LAST EDITED: `MAR 01, 2012` HELP-PROMPT: `Please enter an alternate purchase card user` DESCRIPTION: `A user who has the ability to act as a surrogate for the card holder.` TECHNICAL DESCR: `The surrogate MUST have access to the FCP linked to the Purchase Card.` SCREEN: `S DIC("S")="I $D(^PRC(420,PRC(""SITE""),1,+$P(^PRC(440.5,DA(1),0),U,2),1,+Y))"` EXPLANATION: `Cannot be surrogate if no access to PCard FCP` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER` CROSS-REFERENCE: `440.512^B` `1)= S ^PRC(440.5,DA(1),1,"B",$E(X,1,30),DA)=""` `2)= K ^PRC(440.5,DA(1),1,"B",$E(X,1,30),DA)` CROSS-REFERENCE: `440.5^C` `1)= S ^PRC(440.5,"C",$E(X,1,30),DA(1),DA)=""` `2)= K ^PRC(440.5,"C",$E(X,1,30),DA(1),DA)`

SURROGATE USER

0;1

POINTER TO NEW PERSON FILE (#200)

INPUT TRANSFORM: S DIC("S")="I $D(^PRC(420,PRC(""SITE""),1,+$P(^PRC(440.5,DA(1),0),U,2),1,+Y))" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X S:+$G(X) DINUM=X
LAST EDITED: MAR 01, 2012
HELP-PROMPT: Please enter an alternate purchase card user
DESCRIPTION:
A user who has the ability to act as a surrogate for the card holder.
TECHNICAL DESCR:
The surrogate MUST have access to the FCP linked to the Purchase Card.
SCREEN: S DIC("S")="I $D(^PRC(420,PRC(""SITE""),1,+$P(^PRC(440.5,DA(1),0),U,2),1,+Y))"
EXPLANATION: Cannot be surrogate if no access to PCard FCP
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
CROSS-REFERENCE: 440.512^B
1)= S ^PRC(440.5,DA(1),1,"B",$E(X,1,30),DA)=""
2)= K ^PRC(440.5,DA(1),1,"B",$E(X,1,30),DA)
CROSS-REFERENCE: 440.5^C
1)= S ^PRC(440.5,"C",$E(X,1,30),DA(1),DA)=""
2)= K ^PRC(440.5,"C",$E(X,1,30),DA(1),DA)