INPUT TRANSFORM: K:$L(X)>100!($L(X)<3)!'(X'?1P.E) X
LAST EDITED: OCT 03, 1995
HELP-PROMPT: Answer must be 3-100 characters in length.
CROSS-REFERENCE: 863.2^B
1)= S ^OCXS(863.2,"B",$E(X,1,30),DA)=""
2)= K ^OCXS(863.2,"B",$E(X,1,30),DA)
CROSS-REFERENCE: ^^TRIGGER^863.2^3
1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^OCXS(863.2,D0,"UID")):^("UID"),1:"") S X=$E(Y(1),1,245),X=X S DIU=X K Y X ^DD(863.2,.01,1,2,1.1) X ^DD(863.2,.01,1,2,1.4)
1.1)= S X=DIV S X="" I $T(UID^OCXFMGR)]"",$G(DA) S X=$$UID^OCXFMGR(DIC,DA)
1.4)= S DIH=$S($D(^OCXS(863.2,DIV(0),"UID")):^("UID"),1:""),DIV=X S DE=0-$L(DIH),DIU=$E(DIH,1,245),Y=$E(DIH,246,999),^("UID")=$J("",$S(DE>0:DE,1:0))_DIV_$S(Y?." ":"",1:$J("",245-$L(DIV))_Y),DIH=863.2,DIG=3 D ^DICR:$O(^DD(D
IH,DIG,1,0))>0
2)= Q
CREATE VALUE)= S X="" I $T(UID^OCXFMGR)]"",$G(DA) S X=$$UID^OCXFMGR(DIC,DA)