STANDARD DATA DICTIONARY #.402 -- INPUT TEMPLATE FILE 3/24/25 PAGE 1
STORED IN ^DIE( (1506 ENTRIES) SITE: WWW.BMIRWIN.COM UCI: VISTA,VISTA (VERSION 22.2)
DATA NAME GLOBAL DATA
ELEMENT TITLE LOCATION TYPE
-----------------------------------------------------------------------------------------------------------------------------------
This file stores the EDIT FIELDS data from an input template.
DD ACCESS: ^
WR ACCESS: ^
IDENTIFIED BY:
"WRITE": N D,D1,D2 S D2=^(0) S:$X>30 D1(1,"F")="!" S D=$P(D2,U,2) S:D D1(2)="("_$$DATE^DIUTL(D)_")",D1(2,"F")="?30" S D=$P(D2
,U,5) S:D D1(3)=" User #"_D,D1(3,"F")="?50" S D=$P(D2,U,4) S:D D1(4)=" File #"_D,D1(4,"F")="?59" D EN^DDIOL(.D1)
"WRITED": I $G(DZ)?1"???".E N % S %=0 F S %=$O(^DIE(Y,"%D",%)) Q:%'>0 I $D(^(%,0))#2 D EN^DDIOL(^(0),"","!?5")
POINTED TO BY: REGISTRATION TEMPLATE (LOCAL) field (#70) of the MAS PARAMETERS File (#43)
EDIT TEMPLATE NAME field (#5) of the ADT TEMPLATE File (#43.7)
USER CHARACTERISTICS TEMPLATE field (#12) of the KERNEL SYSTEM PARAMETERS File (#8989.3)
CROSS
REFERENCED BY: NAME(B)
.402,.01 NAME 0;1 FREE TEXT
INPUT TRANSFORM: K:$L(X)<2!($L(X)>30) X
HELP-PROMPT: 2-30 CHARACTERS
CROSS-REFERENCE: .402^B
1)= S @(DIC_"""B"",X,DA)=""""")
2)= K @(DIC_"""B"",X,DA)")
CROSS-REFERENCE: ^^MUMPS
1)= X "S %=$P("_DIC_"DA,0),U,4) S:$L(%) "_DIC_"""F""_+%,X,DA)=1"
2)= X "S %=$P("_DIC_"DA,0),U,4) K:$L(%) "_DIC_"""F""_+%,X,DA)"
CROSS-REFERENCE: ^^MUMPS
1)= Q
2)= S X=-1 X "F S X=$O("_DIC_"""AF"",X)) Q:X="""" K:'X ^(X,DA) S Y=0 F S Y=$O("_DIC_"""AF"",X,Y)
) Q:Y'>0 K:$D(^(Y,DA)) ^(DA)" S X=-1 S:$G(Y)="" Y=-1
.402,2 DATE CREATED 0;2 DATE
INPUT TRANSFORM: S %DT="ET" D ^%DT S X=Y K:Y<1 X
.402,3 READ ACCESS 0;3 FREE TEXT
INPUT TRANSFORM: I DUZ(0)'="@" F I=1:1:$L(X) I DUZ(0)'[$E(X,I) K X Q
.402,4 FILE 0;4 POINTER TO FILE FILE (#1)
UNEDITABLE
CROSS-REFERENCE: ^^^MUMPS
1)= X "S %=$P("_DIC_"DA,0),U,1),"_DIC_"""F""_+X,%,DA)=1"
2)= Q
.402,5 USER # 0;5 NUMBER
.402,6 WRITE ACCESS 0;6 FREE TEXT
INPUT TRANSFORM: I DUZ(0)'="@" F I=1:1:$L(X) I DUZ(0)'[$E(X,I) K X Q
.402,7 DATE LAST USED 0;7 DATE
INPUT TRANSFORM: S %DT="EX" D ^%DT S X=Y K:Y<1 X
.402,10 DESCRIPTION %D;0 WORD-PROCESSING #.4021
.402,1620 EDIT FIELDS ; COMPUTED MULTIPLE
MUMPS CODE: D EN^DIET
DESCRIPTION:
This multi-line field displays all the "EDIT" prompts of this Input Template
TECHNICAL DESCR: This Computed Multiple uses code in ^DIETED to build the entire displayable Input Template. Then
it is output node-by-node.
.402,1815 ROUTINE INVOKED ROU;E1,13 FREE TEXT
WRITE AUTHORITY: @
CROSS-REFERENCE: ^^^MUMPS
1)= Q
2)= D DELETROU^DIEZ($TR(X,U))
.402,1816 PREVIOUS ROUTINE INVOKED ROUOLD;E1,13 FREE TEXT
WRITE AUTHORITY: @
.402,1819 COMPILED ; COMPUTED
MUMPS CODE: S X=$S('$D(^DIE(D0,"ROU"))#2:"NO",^("ROU")="":"NO",1:"YES")
ALGORITHM: S X=$S('$D(^DIE(D0,"ROU"))#2:"NO",^("ROU")="":"NO",1:"YES")
.402,21400 BUILD(S) ; COMPUTED MULTIPLE POINTER TO BUILD FILE (#9.6)
MUMPS CODE: N DIENAME,D S DIENAME=$P($G(^DIE(D0,0)),U)_" FILE #"_$P($G(^(0)),U,4) F D=0:0 S D=$O(^XPD(9.6,D)
) Q:'D I $D(^(D,"KRN",.402,"NM","B",DIENAME)) N D0 S D0=D,X=$P(^XPD(9.6,D,0),U) X DICMX Q:'$D(D)
DESCRIPTION: This computed field searches the Build File(#9.6) for Builds containing the Edit Template. A list
of the identified Builds is created for display. Multiple Builds will be shown if appropriate.
.402,21409 CANONIC FOR THIS FILE CANONIC;1 SET
'1' FOR YES;
INPUT TRANSFORM: I DA<1 K X
DESCRIPTION: The Input Template identified as CANONIC will always be presented to the user for selection at the
EDIT WHICH FIELD: prompt.
EXECUTABLE HELP: D HELP^DIUCANON
CROSS-REFERENCE: ^^^MUMPS
1)= N F S F=$P(@(DIC_"DA,0)"),U,4) I F S @(DIC_"""CANONIC"",F,DA)=""""")
2)= N F S F=$P(@(DIC_"DA,0)"),U,4) I F K @(DIC_"""CANONIC"",F,DA)")
This cross-reference is used to identify files that have a Canonic Edit Template assigned. The
structure of the cross-reference is:
^DIE("CANONIC", File#, IEN)
where File# identifies the file which has a Canonic Edit Template and IEN is the internal entry
number of the Canonic Edit Template assigned to that file.
FILES POINTED TO FIELDS
BUILD (#9.6) BUILD(S) (#21400)
FILE (#1) FILE (#4)
INPUT TEMPLATE(S):
PRINT TEMPLATE(S):
ONCOLOGY INPUT TEMPLATE LIST MAY 27, 1992@13:47 USER #0 ONCOLOGY INPUT TEMPLATE LIST
RT INPUT TEMPLATES NOV 18, 1986 USER #0 Record Tracking Input Templates
XU TEMPLATE LIST OCT 03, 1989@09:53 USER #0 INPUT TEMPLATE LIST
SORT TEMPLATE(S):
ONCOLOGY INPUT TEMPLATE LIST MAY 28, 1992@19:03 USER #0 'ONCOLOGY INPUT TEMPLATE LIST' Print Template always used
SORT BY: NAME// From 'ONCO' To 'ONCOZ^ONCOZ'
RT INPUT TEMPLATES NOV 18, 1986 USER #0
SORT BY: FILE// From '190' To '195.99'
WITHIN FILE, SORT BY: NAME//
FORM(S)/BLOCK(S):
DIETED AUG 01, 1998@07:40 USER #0
DIETED DD #.402
DIETED2 DD #.402