Select the objects that you wish to see in the downloaded PDF
Info Desc Directly Accessed By Routines Pointer To FileMan Files Fields External References Global Variables Directly Accessed Naked Globals Local Variables
INPUT TRANSFORM: K:$L(X)>50!($L(X)<3)!'(X'?1P.E) X
LAST EDITED: AUG 19, 2002
HELP-PROMPT: Answer must be 3-50 characters in length.
CROSS-REFERENCE: 8980.2^B
1)= S ^XUSSPKI(8980.2,"B",$E(X,1,30),DA)=""
2)= K ^XUSSPKI(8980.2,"B",$E(X,1,30),DA)
CROSS-REFERENCE: ^^TRIGGER^8980.2^.05
1)= X ^DD(8980.2,.01,1,2,1.3) I X S X=DIV S Y(1)=$S($D(^XUSSPKI(8980.2,D0,0)):^(0),1:"") S X=$P(Y(1),U,5),X=X S DIU=X K Y S X=DIV N %I,%H,% D NOW^%DTC S X=% X ^DD(8980.2,.01,1,2,1.4)
1.3)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S Y(1)=$S($D(^XUSSPKI(8980.2,D0,0)):^(0),1:"") S X=$P(Y(1),U,5)=""
1.4)= S DIH=$G(^XUSSPKI(8980.2,DIV(0),0)),DIV=X S $P(^(0),U,5)=DIV,DIH=8980.2,DIG=.05 D ^DICR
2)= Q
3)= FILEDATE
CREATE CONDITION)= FILEDATE=""
CREATE VALUE)= NOW
DELETE VALUE)= NO EFFECT
FIELD)= FILE
This X-ref set the FILEDATE FIELD with todays date/time.