STANDARD DATA DICTIONARY #.4 -- PRINT TEMPLATE FILE 3/24/25 PAGE 1
STORED IN ^DIPT( (1196 ENTRIES) SITE: WWW.BMIRWIN.COM UCI: VISTA,VISTA (VERSION 22.2)
DATA NAME GLOBAL DATA
ELEMENT TITLE LOCATION TYPE
-----------------------------------------------------------------------------------------------------------------------------------
This file stores the PRINT FIELDS data and other information about print templates. These templates are used in the Print,
Filegram, Extract, and Export options.
DD ACCESS: ^
WR ACCESS: ^
IDENTIFIED BY:
"WRIT": I $P(^(0),U,8) N D1 S @("D1=$P($P($C(59)_$S($D(^DD(.4,8,0)):$P(^(0),U,3),1:0)_$E("_DIC_"Y,0),0),$C(59)_$P(^(0),U,8)_
"":"",2),$C(59),1)") D EN^DDIOL("**"_D1_"**","","?0")
"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(^DIPT(Y,"%D",%)) Q:%'>0 I $D(^(%,0))#2 D EN^DDIOL(^(0),"","!?5")
POINTED TO BY: PRINT TEMPLATE field (#3) of the ARCHIVAL ACTIVITY File (#1.11)
FILEGRAM field (#.07) of the FILEGRAM HISTORY File (#1.12)
CROSS
REFERENCED BY: NAME(B), TEMPLATE TYPE(FG)
.4,.01 NAME 0;1 FREE TEXT
INPUT TRANSFORM: K:$L(X)<2!($L(X)>30) X
HELP-PROMPT: 2-30 CHARACTERS
CROSS-REFERENCE: .4^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
.4,2 DATE CREATED 0;2 DATE
INPUT TRANSFORM: S %DT="ET" D ^%DT S X=Y K:Y<1 X
.4,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
.4,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
.4,5 USER # 0;5 NUMBER
.4,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
.4,7 DATE LAST USED 0;7 DATE
INPUT TRANSFORM: S %DT="EX" D ^%DT S X=Y K:Y<1 X
.4,8 TEMPLATE TYPE 0;8 SET
'1' FOR FILEGRAM;
'2' FOR EXTRACT;
'3' FOR EXPORT;
'7' FOR SELECTED EXPORT FIELDS;
LAST EDITED: MAY 23, 1996
HELP-PROMPT: Enter a 1 if this is a FILEGRAM template, 2 if this is an EXTRACT template, 3 if an EXPORT
template, 7 if a SELECTED FIELDS template, as opposed to a normal PRINT template.
CROSS-REFERENCE: .4^FG^MUMPS
1)= S %=$S(X=1:"""FG""",1:"") I %]"" S A1=$P(@(DIC_"DA,0)"),U,1),@(DIC_%_",A1,DA)=""""") K %,A1
2)= S %=$S(X=1:"""FG""",1:"") I %]"" S A1=$P(@(DIC_"DA,0)"),U,1) K @(DIC_%_",A1,DA)"),%,A1
Used to do a quick lookup of FILEGRAM type of print templates.
.4,10 DESCRIPTION %D;0 WORD-PROCESSING #.4001
.4,20 DESTINATION FILE 0;9 POINTER TO FILE FILE (#1)
INPUT TRANSFORM: S DIC("S")="I Y>1.99 S DIAC=""RD"" D ^DIAC I %" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
LAST EDITED: SEP 09, 1995
DESCRIPTION: This field holds the number of the file that is designed to receive data from other files by using
the Extract Tool.
SCREEN: S DIC("S")="I Y>1.99 S DIAC=""RD"" D ^DIAC I %"
EXPLANATION: Allow files to which user has READ access.
.4,50 FILEGRAM/EXTR FILE 1;0 Multiple #.41 (Add New Entry without Asking)
LAST EDITED: MAY 14, 1992
.41,.001 ORDER NUMBER
INPUT TRANSFORM: K:+X'=X!(X>9999)!(X<1)!(X?.E1"."1N.N) X
HELP-PROMPT: Type a Number between 1 and 9999, 0 Decimal Digits
.41,.01 FILEGRAM/EXTR FILE 0;1 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>99999999999)!(X<2)!(X?.E1"."5N.N) X
HELP-PROMPT: Type a Number between 2 and 99999999999, 4 Decimal Digits
CROSS-REFERENCE: .41^B
1)= S ^DIPT(DA(1),1,"B",$E(X,1,30),DA)=""
2)= K ^DIPT(DA(1),1,"B",$E(X,1,30),DA)
.41,.02 LEVEL 0;2 NUMBER (Required)
INPUT TRANSFORM: K:+X'=X!(X>99)!(X<1)!(X?.E1"."1N.N) X
HELP-PROMPT: Type a Number between 1 and 99, 0 Decimal Digits
.41,.03 PARENT 0;3 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>999999999)!(X<2)!(X?.E1"."5N.N) X
HELP-PROMPT: Type a Number between 2 and 999999999, 4 Decimal Digits
.41,.04 LINK TYPE 0;4 SET
'1' FOR DINUM;
'2' FOR DIRECT POINTER;
'3' FOR MULTIPLE;
'4' FOR BACKPOINTER;
.41,.05 USER RESPONSE TO GET HERE 0;5 FREE TEXT
INPUT TRANSFORM: K:$L(X)>30!($L(X)<1) X
HELP-PROMPT: Answer must be 1-30 characters in length.
.41,.06 DATE LAST STORED 0;6 DATE
INPUT TRANSFORM: S %DT="EX" D ^%DT S X=Y K:Y<1 X
.41,.07 CROSS-REFERENCE 0;7 FREE TEXT
INPUT TRANSFORM: K:$L(X)>30!($L(X)<1) X
HELP-PROMPT: Answer must be 1-30 characters in length.
DESCRIPTION:
This field holds the X-ref to use in a backpointer.
.41,.08 ALL FIELDS IN FILE 0;8 SET
'1' FOR YES;
.41,10 FIELD NUMBER F;0 Multiple #.411 (Add New Entry without Asking)
.411,.001 FIELD ORDER NUMBER
INPUT TRANSFORM: K:+X'=X!(X>99999999)!(X<1)!(X?.E1"."1N.N) X
HELP-PROMPT: Type a Number between 1 and 99999999, 0 Decimal Digits
.411,.01 FIELD NUMBER 0;1 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>999999999)!(X<.001)!(X?.E1"."5N.N) X
HELP-PROMPT: Type a Number between .001 and 999999999, 4 Decimal Digits
.411,1 CAPTION ; COMPUTED
MUMPS CODE: S %=+^DIPT(D0,1,D1,0),X=$S('%:"",$D(^DD(%,+^DIPT(D0,1,D1,"F",D2,0),0)):$P(^(0),U),1:"")
ALGORITHM: S %=+^DIPT(D0,1,D1,0),X=$S('%:"",$D(^DD(%,+^DIPT(D0,1,D1,"F",D2,0),0)):$P(^(0),U),1:"")
.411,3 DESTINATION FIELD NUMBER 0;3 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>999999999)!(X<.001)!(X?.E1"."5N.N) X
HELP-PROMPT: Type a Number between .001 and 999999999, 4 Decimal Digits
DESCRIPTION: This field holds the number of the field in the destination file that will contain the
extracted data from FIELD NUMBER in the source file.
.411,4 DESTINATION FIELD LOCATION 0;4 FREE TEXT
INPUT TRANSFORM: K:$L(X)>30!($L(X)<3) X
HELP-PROMPT: Answer must be 3-30 characters in length.
DESCRIPTION: This field holds the node and piece location of the DESTINATION FIELD NUMBER. This is used at
the time extract data is moved to the destination file.
.411,5 EXTERNAL FORMAT 0;5 SET
'1' FOR MOVE EXTERNAL FORMAT TO DESTINATION FILE;
HELP-PROMPT: Enter 1 if external format of data should be moved to destination file.
DESCRIPTION: This code is used to determine if the external form of the data in the source file should be
moved to the destination file. If null, the internal format of the data is moved.
.41,11 DESTINATION FILE 0;9 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>999999999)!(X<2)!(X?.E1"."7N.N) X
HELP-PROMPT: Type a Number between 2 and 999999999, 6 Decimal Digits
DESCRIPTION:
This field holds the number of the destination file or the destination subfile.
.41,12 DESTINATION FILE PARENT 0;10 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>999999999)!(X<2)!(X?.E1"."7N.N) X
HELP-PROMPT: Type a Number between 2 and 999999999, 6 Decimal Digits
DESCRIPTION:
This field holds the number of the parent file or subfile of the DESTINATION FILE.
.41,13 DESTINATION FILE LOCATION 0;11 FREE TEXT
INPUT TRANSFORM: K:$L(X)>30!($L(X)<1) X
HELP-PROMPT: Answer must be 1-30 characters in length.
DESCRIPTION:
This field holds the node and piece location of the DESTINATION FILE.
.4,100 EXPORT FIELD 100;0 Multiple #.42 (Add New Entry without Asking)
DESCRIPTION:
This multiple holds information about each field being exported.
.42,.01 FIELD ORDER 0;1 NUMBER (Required)
INPUT TRANSFORM: K:+X'=X!(X>99)!(X<1)!(X?.E1"."1N.N) X
LAST EDITED: SEP 03, 1992
HELP-PROMPT: Type a Number between 1 and 99, 0 Decimal Digits
DESCRIPTION: The integer in this field represents the order in which fields are exported. The field order
numbers are not always consecutive, but they do represent the sequence in which fields are sent.
CROSS-REFERENCE: .42^B
1)= S ^DIPT(DA(1),100,"B",$E(X,1,30),DA)=""
2)= K ^DIPT(DA(1),100,"B",$E(X,1,30),DA)
.42,1 DATA TYPE 0;2 POINTER TO DATA TYPE FILE (#.81)
INPUT TRANSFORM:S DIC("S")="N %IR S %IR=$P($G(^(0)),U,2) I (%IR=""D"")!(%IR=""N"")!(%IR=""F"")" D ^DIC K DIC S DIC=
DIE,X=+Y K:Y<0 X
LAST EDITED: OCT 13, 1992
DESCRIPTION: The data type of the field as derived by the export tool or as input by the user is held in this
field. This data type may not correspond to the data type found in the data dictionary.
SCREEN: S DIC("S")="N %IR S %IR=$P($G(^(0)),U,2) I (%IR=""D"")!(%IR=""N"")!(%IR=""F"")"
EXPLANATION: Only data types of free text, date, and numeric are recognized for exported fields.
.42,2 LENGTH FOR OUTPUT 0;3 NUMBER
INPUT TRANSFORM:K:+X'=X!(X>10000)!(X<1)!(X?.E1"."1N.N) X
LAST EDITED: SEP 03, 1992
HELP-PROMPT: Type a Number between 1 and 10000, 0 Decimal Digits
DESCRIPTION:
The number of characters allotted to the field for fixed length export is stored here.
.42,3 NAME OF FOREIGN FIELD 0;4 FREE TEXT
INPUT TRANSFORM:K:$L(X)>30!($L(X)<1) X
LAST EDITED: NOV 23, 1992
HELP-PROMPT: Answer must be 1-30 characters in length.
DESCRIPTION: The name of the field as it is known in the importing application is stored here. The user
supplies this information.
.4,105 EXPORT FORMAT 105;1 POINTER TO FOREIGN FORMAT FILE (#.44)
LAST EDITED: SEP 04, 1992
DESCRIPTION:
This field contains the foreign format used to make the export template.
.4,110 EXPORT TEMPLATE CREATED? 105;3 SET
'1' FOR YES;
'0' FOR NO;
LAST EDITED: SEP 04, 1992
DESCRIPTION:
If YES, this Selected Fields for Export template has been used to create an Export template.
.4,115 MULTIPLE PATH 105;4 FREE TEXT
INPUT TRANSFORM: K:$L(X)>30!($L(X)<1) X
LAST EDITED: NOV 19, 1992
HELP-PROMPT: Answer must be 1-30 characters in length.
DESCRIPTION: This field holds a list of field numbers representing the deepest multiple contained in this Export
template.
.4,704 HEADER ; COMPUTED
MUMPS CODE: S X=$S($D(^DIPT(D0,"H")):^("H"),1:"")
.4,707 SUB-HEADER SUPPRESSED SUB;1 SET
'1' FOR YES;
.4,709.1 LANGUAGE OF HEADING HLANG;1 POINTER TO LANGUAGE FILE (#.85)
HELP-PROMPT: Enter a language from the Language File.
DESCRIPTION:
The identified language is used when producing the Heading of prints using this template.
.4,1620 PRINT FIELDS ; COMPUTED MULTIPLE
MUMPS CODE: N DIR,DIPT,DRK,D,C,J,L,DHD,DA S DIPT=D0 D GET^DIPTED("DIR") F D=0:0 S D=$O(DIR(D)) Q:'D S X=DIR(D
) X DICMX Q:'$D(D)
ALGORITHM:
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
.4,1815 ROUTINE INVOKED ROU;E1,13 FREE TEXT
WRITE AUTHORITY: @
CROSS-REFERENCE: ^^^MUMPS
1)= Q
2)= D DELETROU^DIEZ($TR(X,U))
.4,1816 PREVIOUS ROUTINE INVOKED ROUOLD;E1,13 FREE TEXT
WRITE AUTHORITY: @
.4,1819 COMPILED ; COMPUTED
MUMPS CODE: S X=$S('$D(^DIPT(D0,"ROU"))#2:"NO",^("ROU")="":"NO",1:"YES")
ALGORITHM: S X=$S('$D(^DIPT(D0,"ROU"))#2:"NO",^("ROU")="":"NO",1:"YES")
.4,1819.1 LANGUAGE IN WHICH COMPILED ROULANG;1 POINTER TO LANGUAGE FILE (#.85)
HELP-PROMPT: Enter a language from the Language File.
DESCRIPTION:
The identified language is used when this Print Template is compiled.
.4,21400 BUILD(S) ; COMPUTED MULTIPLE POINTER TO BUILD FILE (#9.6)
MUMPS CODE: N DIPTNAME,D S DIPTNAME=$P($G(^DIPT(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",.4,"NM","B",DIPTNAME)) 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 Print Template. A list
of the identified Builds is created for display. Multiple Builds will be shown if appropriate.
.4,21409 CANONIC FOR THIS FILE CANONIC;1 SET
'1' FOR YES;
INPUT TRANSFORM: I DA<1 K X
DESCRIPTION: The Print Template identified as CANONIC will always be presented to the user for selection at the
First Print 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 Print Template assigned. The
structure of the cross-reference is:
^DIPT("CANONIC", File#, IEN) where File# identifies the file which has a Canonic Print
Template and IEN is the internal entry number of the Canonic Print Template assigned to that file.
FILES POINTED TO FIELDS
BUILD (#9.6) BUILD(S) (#21400)
DATA TYPE (#.81) EXPORT FIELD:DATA TYPE (#1)
FILE (#1) FILE (#4)
DESTINATION FILE (#20)
FOREIGN FORMAT (#.44) EXPORT FORMAT (#105)
LANGUAGE (#.85) LANGUAGE OF HEADING (#709.1)
LANGUAGE IN WHICH COMPILED (#1819.1)
INPUT TEMPLATE(S):
PRINT TEMPLATE(S):
ONCOLOGY PRINT TEMPLATE LIST MAY 27, 1992@13:00 USER #0 ONCOLOGY PRINT TEMPLATE LIST
RT PRINT TEMPLATES NOV 18, 1986 USER #0 Record Tracking Print Templates
SORT TEMPLATE(S):
ONCOLOGY PRINT TEMPLATE LIST MAY 29, 1992@10:13 USER #0 'ONCOLOGY PRINT TEMPLATE LIST' Print Template always used
SORT BY: NAME// From 'ONCO' To 'ONCOZ^ONCOZ'
RT PRINT TEMPLATES NOV 18, 1986 USER #0
SORT BY: FILE// From '190' To '195.99'
WITHIN FILE, SORT BY: NAME//
FORM(S)/BLOCK(S):
DIPTED JUN 11, 1998@17:08 USER #0
DIPTED DD #.4
DIPTED2 DD #.4