Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Entry Points |  Interaction Calls
Print Page as PDF
Routine: DID

Package: VA FileMan

Routine: DID


Information

DID ;SFISC/XAK-LIST DD'S ;2015-01-02 12:25 PM

Source Information

Source file <DID.m>

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 ;
  • ICR #10021
    • Status: Active
    • Usage: Supported
    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) ;
  • ICR #2052
    • Status: Active
    • Usage: Supported
    FILE(DIQGR,DIQGPARM,DR,DIQGTA,DIQGERRA,DIQGIPAR) ;
  • ICR #2052
    • Status: Active
    • Usage: Supported
    FIELDLST(DIDROOT) ;
  • ICR #2052
    • Status: Active
    • Usage: Supported
    FIELD(DIQGR,DA,DIQGPARM,DR,DIQGTA,DIQGERRA,DIQGIPAR) ;
  • ICR #2052
    • Status: Active
    • Usage: Supported
    GET1(DIQGR,DA,DIQGPARM,DR,DIQGETA,DIQGERRA,DIQGIPAR) ;
  • ICR #2052
    • Status: Active
    • Usage: Supported
    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
    Info |  Source |  Entry Points |  Interaction Calls