INPUT TRANSFORM: K:$L(X)>30!($L(X)<3)!'(X'?1P.E) X K:'$D(^XTV(8989.51,"B",X)) X
LAST EDITED: AUG 27, 2013
HELP-PROMPT: Answer must be 3-30 characters and match a PARAMETER DEFINITION file entry.
DESCRIPTION:
This is a text string corresponding to the name of the PARAMETER DEFINITION file (file #8989.51) entry being audited.
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
CROSS-REFERENCE: 9002026.02^B
1)= S ^BXPA(9002026.02,"B",$E(X,1,30),DA)=""
2)= K ^BXPA(9002026.02,"B",$E(X,1,30),DA)
CROSS-REFERENCE: ^^TRIGGER^9002026.02^1
1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^BXPA(9002026.02,D0,0)):^(0),1:"") S X=$P(Y(1),U,2),X=X S DIU=X K Y S X=DIV D NOW^%DTC S X=% S DIH=$G(^BXPA(9002026.02,DIV(0),0)),DIV=X S $P(^(0),U,2)=DIV,DIH=9002026.02,DIG=1
D ^DICR
2)= Q
3)= PACKAGE-CONTROLLED ENTRY ONLY.
CREATE VALUE)= D NOW^%DTC S X=%
DELETE VALUE)= NO EFFECT
FIELD)= DATE_TIME ADDED
CROSS-REFERENCE: ^^TRIGGER^9002026.02^2
1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^BXPA(9002026.02,D0,0)):^(0),1:"") S X=$P(Y(1),U,3),X=X S DIU=X K Y S X=DIV S X=DUZ S DIH=$G(^BXPA(9002026.02,DIV(0),0)),DIV=X S $P(^(0),U,3)=DIV,DIH=9002026.02,DIG=2 D ^DICR