Routine: DID

Entry Points

Name	Comments	DBIA/ICR reference
KL
SUB
O
O1
TEMPONLY
G
LOOP	;COME HERE FROM XECUTION OF 'DIOEND' (see G above)
END	;
D
T	;COME HERE FROM XECUTION OF 'DIOEND' (see TEMPONLY above)
T1
IOF
TEMPL
DES
Q
DT
EN	;
FORM	;
BLOCK	;
BLOCKQ
IX	;Print index details
IXHEAD
IXHEAD1
KEY	;Print keys
KEYHEAD
KEYHEAD1
ASKFLD(DIDFILE)	;Ask for a single field
ASKTYP()	;Ask for type of cross-reference
ASKRANGE(DIDFILE,DIDBY,DIDFR,DIDTO)	;Ask for a range of fields
FILELST(DIDROOT)	;
FILE(DIQGR,DIQGPARM,DR,DIQGTA,DIQGERRA,DIQGIPAR)	;
FIELDLST(DIDROOT)	;
FIELD(DIQGR,DA,DIQGPARM,DR,DIQGTA,DIQGERRA,DIQGIPAR)	;
GET1(DIQGR,DA,DIQGPARM,DR,DIQGETA,DIQGERRA,DIQGIPAR)	;
PIECE(DIQGR,DA,DIQGPARM,DR,DIQGTA,DIQGERRA,DIQGIPAR)	;CLOSEDREF,PIECE,FLAG,ATTRIBUTE,TARGETARRAY,ERRORARRAY,INTERNAL

Interaction Calls

Name	Line Occurrences
Function Call: READ	Variable: X Timeout: DTIME Line Location: LOOP+3
Function Call: WRITE	Prompt: !!!?6,"FILES POINTED TO",?44,"FIELDS",! Line Location: END+1
Function Call: WRITE	Prompt: !!,$S(S<4:$P("INPU^PRIN^SOR",U,S)_"T TEMPLATE(S):",1:"FORM(S)/BLOCK(S):") Line Location: T1+1
Function Call: WRITE	Prompt: !,"** = CANONIC TEMPLATE",! Line Location: T1+7
Function Call: WRITE	Prompt: !,$P(%1,U) Line Location: TEMPL+1
Function Call: WRITE	Prompt: "**" Line Location: TEMPL+1
Function Call: WRITE	Prompt: ?30 Line Location: TEMPL+2
Function Call: WRITE	Prompt: I Line Location: TEMPL+3
Function Call: WRITE	Prompt: Y Line Location: TEMPL+3
Function Call: WRITE	Prompt: ?50,"USER #"_+$P(%1,U,5),?61 Line Location: TEMPL+4
Function Call: WRITE	Prompt: ^("ROU")_$P("*",U,DFF["DIBT")_" " Line Location: TEMPL+4
Function Call: WRITE	Prompt: ! Condition for execution: 65+%>IOM Line Location: TEMPL+5
Function Call: WRITE	Prompt: " ",?IOM-%-1,$E(Y,1,IOM-4) Line Location: TEMPL+5
Function Call: WRITE	Prompt: ?55 Line Location: TEMPL+7
Function Call: WRITE	Prompt: ! Condition for execution: $X+$L(Y)>IOM Line Location: TEMPL+7
Function Call: WRITE	Prompt: ?IOM-$L(Y)-1,Y Line Location: TEMPL+7
Function Call: WRITE	Prompt: " " Line Location: TEMPL+9
Function Call: WRITE	Prompt: !?$S(D>55:55,1:D) Condition for execution: $X>D Line Location: TEMPL+9
Function Call: WRITE	Prompt: % Line Location: TEMPL+9
Function Call: WRITE	Prompt: !,?5,X Line Location: DES+0
Function Call: WRITE	Prompt: ?30,Y Line Location: FORM+1
Function Call: WRITE	Prompt: ?50,"USER #"_+$P(%1,U,4) Line Location: FORM+2
Function Call: WRITE	Prompt: ! Line Location: FORM+10
Function Call: WRITE	Prompt: !?2,$P(%1,U) Line Location: BLOCK+7
Function Call: WRITE	Prompt: ?32,"DD #"_$P(%1,U,2) Condition for execution: $P(%1,U,2)]"" Line Location: BLOCK+7
Function Call: READ	Variable: M Timeout: DTIME Line Location: IXHEAD+0
Function Call: WRITE	Prompt: $S("B"[$G(DIDTYP):"INDEX AND CROSS-REFERENCE",DIDTYP="T":"TRADITIONAL CROSS-REFERENCE",1:"NEW-STYLE INDEX") Line Location: IXHEAD1+1
Function Call: WRITE	Prompt: " LIST -- FILE #"_DIB_$S($G(DIDFLD):", FIELD #"_DIDFLD,1:"") Line Location: IXHEAD1+2
Function Call: WRITE	Prompt: @IOF Condition for execution: $D(DIFF)&($Y) Line Location: IXHEAD1+3
Function Call: WRITE	Prompt: "INDEX AND CROSS-REFERENCE LIST -- FILE #"_DIB,?(IOM-20),$$OUT^DIALOGU(DT,"FMTE",2)_" "_$$EZBLD^DIALOG(7095,DC) Line Location: IXHEAD1+3
Function Call: WRITE	Prompt: !,M Line Location: IXHEAD1+4
Function Call: READ	Variable: M Timeout: DTIME Line Location: KEYHEAD+0
Function Call: WRITE	Prompt: @IOF Condition for execution: $D(DIFF)&($Y) Line Location: KEYHEAD1+0
Function Call: WRITE	Prompt: "KEY LIST -- FILE #"_DIB,?(IOM-20),$$OUT^DIALOGU(DT,"FMTE",2)_" "_$$EZBLD^DIALOG(7095,DC) Line Location: KEYHEAD1+0
Function Call: WRITE	Prompt: !,M Line Location: KEYHEAD1+1

Customize PDF page

Package: VA FileMan

Routine: DID

Information

Source Information

Entry Points

Interaction Calls