STANDARD DATA DICTIONARY #863.6 -- OCX MDD METHOD FILE 3/24/25 PAGE 1
STORED IN ^OCXS(863.6, (39 ENTRIES) SITE: WWW.BMIRWIN.COM UCI: VISTA,VISTA (VERSION 3.0)
DATA NAME GLOBAL DATA
ELEMENT TITLE LOCATION TYPE
-----------------------------------------------------------------------------------------------------------------------------------
CROSS
REFERENCED BY: CLASS FILE(AC), PARAMETER NAME(APAR), NAME(B), MESSAGE(C), UNIQUE OBJECT IDENTIFIER(UID)
863.6,.01 NAME 0;1 FREE TEXT (Required)
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.
DELETE TEST: 1,0)= I $L(X),$D(^OCXS(863.5,"B",+DA)) W !!,*7,"Delete instances of this method class FIRST !!",!!
CROSS-REFERENCE: 863.6^B
1)= S ^OCXS(863.6,"B",$E(X,1,100),DA)=""
2)= K ^OCXS(863.6,"B",$E(X,1,100),DA)
CROSS-REFERENCE: ^^TRIGGER^863.6^4
1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^OCXS(863.6,D0,"UID")):^("UID"),1:"") S X=$E(Y(1),1,
245),X=X S DIU=X K Y X ^DD(863.6,.01,1,2,1.1) X ^DD(863.6,.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.6,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.
6,DIG=4 D ^DICR:$O(^DD(DIH,DIG,1,0))>0
2)= Q
CREATE VALUE)= S X="" I $T(UID^OCXFMGR)]"",$G(DA) S X=$$UID^OCXFMGR(DIC,DA)
DELETE VALUE)= NO EFFECT
FIELD)= U
Triggers a unique ID.
863.6,.02 MESSAGE 0;2 FREE TEXT
INPUT TRANSFORM: K:$L(X)>30!($L(X)<1) X
LAST EDITED: DEC 28, 1994
HELP-PROMPT: Answer must be 1-30 characters in length.
CROSS-REFERENCE: 863.6^C
1)= S ^OCXS(863.6,"C",$E(X,1,30),DA)=""
2)= K ^OCXS(863.6,"C",$E(X,1,30),DA)
Message back pointer
863.6,.03 CLASS FILE 0;3 POINTER TO OCX MDD CLASS FILE (#863)
LAST EDITED: AUG 30, 1995
SCREEN: S DIC("S")="I Y>860,Y<865"
EXPLANATION: Select an MDD "class" file
CROSS-REFERENCE: 863.6^AC
1)= S ^OCXS(863.6,"AC",$E(X,1,30),DA)=""
2)= K ^OCXS(863.6,"AC",$E(X,1,30),DA)
Rapidly identify all methods associated with a given class
863.6,.04 TYPE OF EXECUTABLE 0;4 SET
'R' FOR ROUTINE;
'X' FOR EXECUTABLE CODE STRING;
'T' FOR TEMPLATE;
LAST EDITED: DEC 12, 1994
863.6,1 DESCRIPTION DESC;0 WORD-PROCESSING #863.61
LAST EDITED: AUG 30, 1994
863.6,2 EXECUTABLE EX;E1,245 FREE TEXT
INPUT TRANSFORM: K:$L(X)>240!($L(X)<1) X
LAST EDITED: DEC 12, 1994
HELP-PROMPT: If TYPE OF EXECUTABLE='ROUTINE' entry must be in the format 'XXX^YYYY'. If TYPE='X', then entry
must be valid M code. If TYPE='T', then entry must be a valid template string.
WRITE AUTHORITY: @
863.6,3 PARAMETER PAR;0 POINTER Multiple #863.63
LAST EDITED: MAY 12, 1995
863.63,.01 PARAMETER NAME 0;1 POINTER TO OCX MDD PARAMETER FILE (#863.8) (Multiply asked)
LAST EDITED: AUG 30, 1995
CROSS-REFERENCE: 863.63^B
1)= S ^OCXS(863.6,DA(1),"PAR","B",$E(X,1,30),DA)=""
2)= K ^OCXS(863.6,DA(1),"PAR","B",$E(X,1,30),DA)
CROSS-REFERENCE: 863.6^APAR
1)= S ^OCXS(863.6,"APAR",$E(X,1,30),DA(1),DA)=""
2)= K ^OCXS(863.6,"APAR",$E(X,1,30),DA(1),DA)
Rapidly identify all patameters associated with this class
863.63,.02 TYPE 0;2 SET
'0' FOR INPUT;
'1' FOR OUTPUT;
LAST EDITED: SEP 03, 1995
863.63,1 VALUE VAL;E1,200 FREE TEXT
INPUT TRANSFORM: K:$L(X)>200!($L(X)<1) X
LAST EDITED: DEC 06, 1994
HELP-PROMPT: Answer must be 1-200 characters in length.
863.6,4 UNIQUE OBJECT IDENTIFIER UID;E1,245 FREE TEXT
INPUT TRANSFORM: K:$L(X)>30!($L(X)<3) X
LAST EDITED: OCT 03, 1995
HELP-PROMPT: Answer must be 3-30 characters in length.
DESCRIPTION:
A unique ID for this object.
WRITE AUTHORITY: ^
NOTES: TRIGGERED by the NAME field of the OCX MDD METHOD File
CROSS-REFERENCE: 863.6^UID
1)= S ^OCXS(863.6,"UID",$E(X,1,30),DA)=""
2)= K ^OCXS(863.6,"UID",$E(X,1,30),DA)
Enables rapid lookup of an object by its UID.
FILES POINTED TO FIELDS
OCX MDD CLASS (#863) CLASS FILE (#.03)
OCX MDD PARAMETER (#863.8) PARAMETER:PARAMETER NAME (#.01)
INPUT TEMPLATE(S):
PRINT TEMPLATE(S):
SORT TEMPLATE(S):
FORM(S)/BLOCK(S):