Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All
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>

Call Graph

Call Graph

Call Graph Total: 18

Package Total Call Graph
VA FileMan 18 DD^%DT  $$EZBLD^DIALOG  $$OUT^DIALOGU  ^DIC  L^DICRW1  MOD^DID2  PTR^DIDC  HDR^DIDG  
AH^DIDX  INIZE^DIEFU  (PRINT,WRLN)^DIKCP  (PRINT,WRLN)^DIKKP  (,DT)^DIO2  (EN,EN1)^DIP  (EN1,EN3,EN4,EN5)^DIQGDD  EN6^DIQGDD0  
EN2^DIQGDDF  ^DIR  

Caller Graph

Caller Graph Total: 586

Package Total Caller Graph
Lab Service 69 LR309  LR500PO  LRAPAUL  LRAPBR1  LRAPBR2  LRAPBR4  LRAPBR5  LRAPED  
LRAPEDC  LRAPMRL  LRAPR  LRAPR1  LRAPUTL  LRBLDAA  LRBLDPA  LRBLDTA  
LRBLJPA1  LRBLPBR  LRCAPBV  LREGFR  LREPI1  LRJSAU60  LRMLED  LRSCTF  
LRSCTX1  LRSRVR1  LRSRVR2A  LRSRVR3  LRSRVR6  LRUTELL  LRVR3  LRVR4  
LRWRKLS1  LRXREF  ^LAB(62.06  LR153  LR232P  LR317  LRAPBK  LRAPBR  
LRAPBR3  LRAPLG2  LRAPQOR2  LRAPSNMD  LRBLA2  LRBLDCU  LRBLDEX  LRBLDPA1  
LRBLDPA2  LRBLDR  LRBLDRR  LRBLDT  LRBLDW  LRBLJLG  LRBLJR  LRDIQ  
LREGFR2  LRGV2  LRPXSXRA  LRPXSXRB  LRPXSXRL  LRRPU  LRSRVR9A  LRUA  
LRUTIL1  LRVER3  LRVER4  LRWU9  LRX  
Event Capture 39 EC2P123A  EC2P125  EC2P128A  EC2P12PT  EC2P16PT  EC2P20PT  EC2P21PT  EC2P22PT  
EC2P26PT  EC2P27PT  EC2P28PT  EC2P35PT  EC2P37PT  EC2P40PT  EC2P43PT  EC2P45PT  
EC2P48PT  EC2P52PT  EC2P5PST  EC2P60PT  EC2P67PT  EC2P6PST  EC2P71PT  EC2P74PT  
EC2P77PT  EC2P79PT  EC2P80PT  EC2P81PT  EC2P85PT  EC2P89PT  EC2P93PT  EC2P96PT  
EC2P97PT  EC2P99PT  ECP102PT  ECP106PT  ECP111PT  ECP113PT  ECP115PT  
Imaging 32 MAGBVAL  MAGGNLKP  MAGGSIV1  MAGGTIA  MAGGTLB1  MAGIP118  MAGIPS93  MAGKIDS  
MAGNU001  MAGQBUT1  MAGQBUT4  MAGQCBP  MAGQE5  MAGSDEL2  MAGSDEL4  MAGSIXGT  
MAGTP004  MAGTP007  MAGTP009  MAGUFFLA  MAGUTL01  MAGUTL08  MAGVAF01  MAGVAF05  
MAGVRD03  MAGVRS41  MAGVRS42  MAGVRS44  MAGVRS46  MAGVRS51  MAGVRS52  MAGXCVE  
Registration 27 DG17201  DG53P425  DG53P951  DG737PST  DG933PO  DGENA3  DGENDBS  DGENEGT  
DGENELA1  DGENU  DGMFR10  DGMSTAPI  DGNDSU  DGNTAPI1  DGPFAAH2  DGPFUT  
DGPTDDCR  DGPTFMO  DGPTOLC2  DGREGARP  DGREGAZL  DGREGTZL  DGRPCADD  DGRPD  
VADPT1  VAFCAAUT  VAFCAUD  
Clinical Reminders 25 PXRMCOND  PXRMCOPY  PXRMCPLS  PXRMEXCS  PXRMEXFI  PXRMEXIC  PXRMEXIU  PXRMEXPD  
PXRMEXPU  PXRMEXU0  PXRMEXU5  PXRMFRPT  PXRMHIST  PXRMINDC  PXRMINDD  PXRMMST  
PXRMP12I  PXRMP4I1  PXRMSINQ  PXRMSMAN  PXRMSPED  PXRMSTS  PXRMUTIL  PXRMV2E  
PXRMVSTX  
Integrated Billing 22 IBCECOB1  IBCEDS  IBCEOB01  IBCEP5D  IBCEPA  IBCNBES  IBCNBLA1  IBCNEHLT  
IBCNEHLU  IBCNERP2  IBCNSMM  IBE585PO  IBEFUNC  IBENDS1  IBJDF4  IBMFNHLI  
IBTRH5E  IBTRH5F  IBTRKRBD  IBY343PO  IBY343PR  IBY400PR  
Medicine 20 MCARVCHK  MCDUP1  MCDUPM  MCDUPP  MCDUPR  MCENV00  MCNP2CHK  MCOREX  
MCORMN1  MCPOS01  MCPOS03  MCPOS04A  MCPOS08  MCPOS0A  MCPOS0B  MCPOS0C  
MCPOS0E  MCPREDT  MCUIMAG0  MCWORKLD  
DSS Extracts 18 ECXADEN  ECXAECQ  ECXARAD  ECXASUR  ECXDENT  ECXINENV  ECXLABN  ECXLABO  
ECXLABRS  ECXMOV  ECXQSR  ECXRAD  ECXSETUP  ECXSURG  ECXTRAC  ECXTRANS  
ECXTRT  ECXUTL2  
Scheduling 18 SCMCENV  SCMCRU  SCMCTMM  SCMCTPM  SCMRTMM  SCMRTPM  SCRPW1  SCRPW10  
SCRPW21  SCRPW24  SCRPW25  SD132PT  SD5348PT  SD599PT  SDECAR  SDRRSLCT  
SDSCINS  SDWLRP3  
Asists 17 OOPSCA1  OOPSCA2  OOPSDOLX  OOPSGUI2  OOPSGUI3  OOPSGUI4  OOPSGUI7  OOPSGUI9  
OOPSGUIC  OOPSLOG  OOPSNDBX  OOPSPRT  OOPSUTL3  OOPSUTL4  OOPSUTL5  OOPSUTL6  
OOPSXP5  
Order Entry Results Reporting 16 OCXBDTD  OCXODIC  OCXSENDD  ORAREN  ORCMEDT4  ORDV05X  OREV2  ORPXRM  
ORWPCE2  ORWU  ORWU16  ORY164  ORY218  ORY269  ORY56  ORY92  
Pharmacy Data Management 16 PSS211PO  PSS50A1  PSS50B1  PSS50C1  PSS50CMP  PSS50DAT  PSS50E  PSS50F  
PSS50LAB  PSS50WS  PSS51P5  PSS55MIS  PSSFILES  PSSNDSU  PSSORUTE  PSSSXRD  
Automated Lab Instruments 15 LA27  LA7SM2  LA7SM2A  LA7SMPXL  LA7UTL1C  LA7VHLU9  LA7VIN5A  LA7VIN7  
LA7VIN71  LA7VLCM7  LA7VOBX1  LA7VOBX3  LA7VOBX4  LA7VOBXA  LA7VPFL  
Lexicon Utility 15 LEX2025P  LEX2026P  LEX2028P  LEX2049P  LEXDMGT  LEXRXA  LEXRXB  LEXRXC  
LEXRXD  LEXRXE  LEXRXF  LEXRXG  LEXRXS  LEXRXS2  LEXXFI8  
Kernel 14 FILE  XLFNAME2  XLFNAME4  XQALBUTL  XUMF  XUMF0  XUMF5II  XUMFX  
XUSER  ^DIC(19  XUMFPMFS  XUMVINPU  XUSNPI  XUVPS  
National Drug File 14 PSN5067  PSN50P68  PSN533D  PSN536D  PSN542D  PSN545D  PSN548D  PSNPPSI2  
PSNPPSI3  PSNPPSMG  PSNPREDS  PSNVCR  PSNVCR1  PSNVCR2  
Engineering 13 ENEQMED1  ENEQMED2  ENEQMED3  ENEQRP6  ENLBL16  ENLBL7  ENLIB3  ENPLX2  
ENXHIPR  ENXIP62  ENXIP63  ENXIP68  ENXRIPS  
PCE Patient Care Encounter 13 PXAIICRV  PXAIIMMV  PXEDIEL  PXPXRMI1  PXPXRMI2  PXQUTL1  PXRRPAPI  PXRRPCE2  
PXVP210  PXVRPC1  PXVRPC4  PXVRPC7A  PXVRPC8  
Clinical Procedures 11 MDCLIO  MDCLIOV  MDPOST16  MDPRE16  MDRPCOO  MDRPCOP1  MDRPCOR  MDRPCU  
MDTERM  MDXMLFM  MDXMLFM1  
Radiology Nuclear Medicine 11 RA64PRE  RAI113  RAKIDS  RALOCK01  RAO7XX  RAPSAPI2  RAPSAPI3  RAPXRM  
RARTE6  RARTE7  RASYS  
Inpatient Medications 10 ^PS(57.5  PSGAL5  PSGOEM  PSGSH  PSGSICH2  PSIVEDRG  PSIVORC  PSIVORC1  
PSIVUTL  PSJBCMA2  
VA FileMan 10 DDGFFM  DDGFU  DDMP2  DDU  DIEV1  DILIST  DIVR1  DMSQF  
DMSQP5  DMSQU  
Mental Health 9 YS119PS0  YSASA2  YTAPI8  YTPXRM  YTQAPI  YTQAPI1  YTQAPI14  YTQAPI6  
YTQPXRM  
Accounts Receivable 8 RCDPESP  RCDPESP1  RCDPESP2  RCDPESP7  RCDPEX  RCDPEX31  RCDPRLIS  RCRCAT1  
Clinical Case Registries 8 ^ROR(799.2  RORDD  RORHL06  RORKIDS  RORLOCK  RORRP026  RORUPD05  RORUTL05  
General Medical Record - Vitals 8 GMRVXPRE  GMVDCEXT  GMVDCRPC  GMVDCUTL  GMVDCVAL  GMVPXRM  GMVRPCM  GMVRPCP  
Health Summary 8 GMTSADH5  GMTSLRMX  GMTSOBS2  GMTSROE  GMTSU  GMTSXAR  GMTSXPD2  GMTSXPD4  
Outpatient Pharmacy 8 PSOADDR  PSODI  PSOERXA1  PSOERXU2  PSOOREDT  PSOPXRMI  PSORREF0  PSOVDF2  
Clinical Information Resource Network 7 RGADTP  RGADTP2  RGADTP3  RGFIU  RGMTAUD  RGMTAUDP  RGMTMONT  
Nursing Service 7 NURAR1A  NURARFBU  NURSAFLL  NURSDD  NURSDFFS  NURSDTMP  NURSFMU  
Surgery 7 SR100UTL  SRENSCS  SROMED  SRONP2  SRSCHUN  SRSRQST  SRTOVRF  
Health Data and Informatics 6 HDI1001A  HDI1007A  HDISVC01  HDISVC02  HDISVCFX  HDISVF09  
Fee Basis 5 DATA AUDIT  FBAAIAU  FBFPAR  FBXIP154  FBXIP4  
Barcode Medication Administration 4 PSBMD  PSBMLTS  PSBO  PSBUTL  
Text Integration Utility 4 TIUABBV1  TIUFL  TIUFLD  TIUSRVA  
Toolkit 4 XPARDD1  XTIDCTX  XTIDTBL  XTIDTRM  
VA Point of Service 4 VPSMR51  VPSMR52  VPSMR54  VPSRPC1  
Consult Request Tracking 3 GMRCAU  GMRCCD  GMRCCX  
E Claims Management Engine 3 BPSJHLT  BPSJZPR  BPSOSRX2  
Problem List 3 GMPLCOPY  GMPLP44I  GMPLPXRM  
Adverse Reaction Tracking 2 GMRADPT  GMRAOR0  
Drug Accountability 2 PSARDCBA  PSARDCU1  
Emergency Department Integration Software 2 EDPARPT1  EDPYPST  
Enrollment Application System 2 EASEZF1  EASEZU5  
Foundations 2 XOBUENV  XOBUPRE  
Health Level Seven 2 HLCSORAT  HLEMU  
Quasar 2 ACKQCD3  ACKQCDD3  
RPC Broker 2 XWBEXMPL  XWBFM  
Remote Order Entry System 2 RMPFET3  RMPFET61  
VBECS 2 VBECDCR  VBECDCU2  
Automated Information Collection System 1 IBDFDBS  
Automated Medical Information Exchange 1 DVBABDDU  
Beneficiary Travel 1 DGBT1P21  
Dietetics 1 FHSYSF  
Enterprise Health Management Platform 1 HMPLIST  
Enterprise Terminology Services 1 ETSLNC2  
IFCAP 1 PRCHJS01  
MailMan 1 XMVVITA  
Oncology 1 ONCOPAR  
Pharmacy Benefits Management 1 PSUTL  
VistA Integration Adapter 1 VIABEFR  
VistALink 1 XOBVPRE  
Visual Impairment Service Team 1 ANRVOA  
Voluntary Timekeeping 1 ABSVM  
Web Services Client 1 XOBWPST  

Entry Points

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

    External References

    Name Field # of Occurrence
    DD^%DT TEMPL+3, FORM+1
    $$EZBLD^DIALOG IXHEAD1+3, KEYHEAD1
    $$OUT^DIALOGU IXHEAD1+3, KEYHEAD1
    ^DIC SUB, O, ASKFLD+7, ASKRANGE+6, ASKRANGE+13
    L^DICRW1 DID+7
    MOD^DID2 O1+5
    PTR^DIDC END+1
    HDR^DIDG T1, TEMPL, BLOCK+6
    AH^DIDX TEMPONLY+10
    INIZE^DIEFU FILELST+2, FILE+2, FIELDLST+2, FIELD+2, GET1+2, PIECE+3
    PRINT^DIKCP IX+8
    WRLN^DIKCP IX+3
    PRINT^DIKKP KEY+4
    WRLN^DIKKP KEY+3
    ^DIO2 LOOP+4
    DT^DIO2 DT
    EN^DIP O1+1
    EN1^DIP G
    EN1^DIQGDD FIELD+3
    EN3^DIQGDD GET1+3
    EN4^DIQGDD FILELST+4
    EN5^DIQGDD FIELDLST+4
    EN6^DIQGDD0 PIECE+4
    EN2^DIQGDDF FILE+3
    ^DIR ASKTYP+13

    Interaction Calls

    Name Line Occurrences
    Function Call: READ
    • Timeout: DTIME
    • Variable: X
    • 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
    • Timeout: DTIME
    • Variable: M
    • 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
    • Timeout: DTIME
    • Variable: M
    • 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
    Routine Call
    • DIALOG
    • Line Location:
      • IXHEAD1+3
      • KEYHEAD1
    Routine Call
    • DIC
    • Line Location:
      • SUB
      • O
      • ASKFLD+7
      • ASKRANGE+6
      • ASKRANGE+13
    Routine Call
    • DIR
    • Line Location:
      • ASKTYP+13
    Routine Call
    • DIALOGU
    • Line Location:
      • IXHEAD1+3
      • KEYHEAD1

    Global Variables Directly Accessed

    Name Line Occurrences  (* Changed,  ! Killed)
    ^DD( SUB, O1+2, TEMPL+8
    ^DIBT - [#.401] TEMPL+9
    ^DIC - [#1] O1+2, LOOP+4, EN+2
    ^DIST( FORM+6, FORM+7, FORM+8, BLOCK+4
    ^DOPT("DID" EN+3
    ^UTILITY($J END+1, D!

    Label References

    Name Line Occurrences
    $$ASKFLD TEMPONLY+3
    $$ASKTYP TEMPONLY+2
    ASKRANGE TEMPONLY+12
    BLOCK FORM+7, FORM+8
    BLOCKQ BLOCK+2
    DES TEMPL+6
    FORM TEMPL+2
    G TEMPONLY, TEMPONLY+1, TEMPONLY+7
    IOF D
    IX D+1
    KL DID+7, SUB, SUB+1, O, O1+1, O1+5, TEMPONLY+1, TEMPONLY+10, TEMPONLY+12, G
    LOOP LOOP+5
    O DID+7, SUB, EN+3
    O1 EN+4
    Q T1+6
    SUB DID+7, SUB
    T1 T1+8
    TEMPL T1+5

    Naked Globals

    Name Field # of Occurrence
    ^( DES, FORM+9
    ^("DIPT" TEMPL+7
    ^("H" TEMPL+5
    ^("ROU" TEMPL+4
    ^(0 T1+5, TEMPL+9, EN+1, FORM+7, FORM+9, BLOCK+4
    ^(2 TEMPL+8

    Local Variables

    Legend:

    >> Not killed explicitly
    * Changed
    ! Killed
    ~ Newed

    Name Field # of Occurrence
    % TEMPONLY+10*, TEMPL+5*, TEMPL+9*, ASKFLD+3~, ASKRANGE+3~, ASKRANGE+18*
    %1 T1+5*, T1+6!, TEMPL+1, TEMPL+3, TEMPL+4, DES~*, FORM+1, FORM+2, FORM+9*, BLOCK+4*
    , BLOCK+7
    A1 DES~*
    B FORM+4~, FORM+7*, FORM+8*, BLOCK+2, BLOCK+3, BLOCK+4
    BY KL!, TEMPONLY*, TEMPONLY+12
    D TEMPL+9*, ASKFLD+3~, ASKRANGE+3~
    D0 LOOP+4*, TEMPL+8*, ASKFLD+3~, ASKRANGE+3~
    DA KL+1!, T1+2*, T1+3*, T1+4, ASKFLD+3~, ASKRANGE+3~, FIELD~, GET1~, PIECE~
    >> DC LOOP+4*, IXHEAD*, IXHEAD1+3, KEYHEAD*, KEYHEAD1
    DDD ASKFLD+3~, ASKRANGE+3~
    DDL1 KL+2!
    DDL2 KL+2!
    DDL3 KL+2!
    DDLF KL+2!
    DDN1 KL+2!
    DDRG KL+2!
    DFF DID+7*, KL+1!, SUB*, O, O1+2, TEMPONLY+3, TEMPONLY+12, LOOP+4*, T1+2*, T1+3
    , T1+4, T1+5, TEMPL+1, TEMPL+2, TEMPL+4, TEMPL+6, DES, Q, EN+2*, FORM+9
    DHD KL+1!, TEMPONLY*, TEMPONLY+5*, TEMPONLY+7*, TEMPONLY+8*, TEMPONLY+11*
    DHIT KL!, TEMPONLY*, TEMPONLY+4*, TEMPONLY+7*, TEMPONLY+8*, TEMPONLY+9*, TEMPONLY+10*, TEMPONLY+11*, D, IX+4
    DIB DID+7*, KL!, G, LOOP+4*, EN+2*, IXHEAD1+2, IXHEAD1+3, KEYHEAD1
    DIB(1 DID+7, O1+2*, LOOP+4, EN+2*
    DIC DID+7, KL+1!, SUB*, O!*, O1!*, EN+1*, EN+2, ASKFLD+3~, ASKFLD+4*, ASKFLD+7!
    , ASKRANGE+3~, ASKRANGE+4*, ASKRANGE+6!, ASKRANGE+11*, ASKRANGE+13!
    DIC("A" SUB*, ASKFLD+6*, ASKRANGE+5*, ASKRANGE+12*
    DIC("B" O*
    DIC("S" SUB*, O*, ASKFLD+5*
    DIC(0 SUB*, O*, ASKFLD+4*, ASKRANGE+4*, ASKRANGE+11*
    DICMX KL!, TEMPL+8*
    DICR ASKFLD+3~, ASKRANGE+3~
    DICS KL+1!
    DID KL+1!
    DIDARRAY FILELST+3~, FILELST+5, FIELDLST+3~, FIELDLST+5
    DIDBY ASKRANGE~, ASKRANGE+9, ASKRANGE+16
    DIDCANON KL+3!, T1+7!, TEMPL+1*
    DIDFILE ASKFLD~, ASKFLD+1, ASKFLD+4, ASKRANGE~, ASKRANGE+1, ASKRANGE+4, ASKRANGE+11
    DIDFLD KL+3!, TEMPONLY+1, TEMPONLY+3*, IX+5, IX+8, IXHEAD1+2
    DIDFLG IX+1~, IX+5*, IX+6*, IX+7*, IX+8
    DIDFR ASKRANGE~, ASKRANGE+7*, ASKRANGE+8*, ASKRANGE+9*, ASKRANGE+15*, ASKRANGE+18*
    DIDH KL!
    DIDPG IX+1~, IX+3, IX+8, KEY+1~, KEY+3, KEY+4
    DIDPG("H" IX+2*, KEY+2*
    DIDRANGE KL+3!, TEMPONLY+12*, D
    DIDROOT FILELST~, FILELST+5, FIELDLST~, FIELDLST+5
    DIDTO ASKRANGE~, ASKRANGE+7*, ASKRANGE+8*, ASKRANGE+14*, ASKRANGE+15*, ASKRANGE+16*, ASKRANGE+18*
    DIDTYP KL+3!, TEMPONLY+1, TEMPONLY+2*, IX+5, IXHEAD1+1
    DIDX KL!, TEMPONLY+10*
    DIFF KL+1!, IXHEAD1*, IXHEAD1+3*, KEYHEAD1*
    DIFM FILELST+2~*, FILE+2~*, FIELDLST+2~*, FIELD+2~*, GET1+2~*, PIECE+3~*
    >> DIFORMAT O1+5, TEMPONLY+10, EN+3
    DIGR KL!, TEMPONLY+12
    DIJS KL!
    DIMS KL+2!
    DINM KL!, IX+7
    >> DIOBEG O1+4*
    DIOEND KL!, O1+3*, TEMPONLY*, TEMPONLY+6*, TEMPONLY+7*, TEMPONLY+8*, TEMPONLY+9*, TEMPONLY+11*, G*
    DIOEND(1 G*, LOOP+2
    DIPP KL+2!
    DIPQ KL+2!
    DIQGERRA FILE~, FIELD~, GET1~, PIECE~
    DIQGETA GET1~
    DIQGIPAR FILE~, FIELD~, GET1~, PIECE~
    DIQGPARM FILE~, FIELD~, GET1~, PIECE~
    DIQGR FILE~, FIELD~, GET1~, PIECE~
    DIQGTA FILE~, FIELD~, PIECE~
    DIQUIET FILELST+1~*, FILE+1~*, FIELDLST+1~*, FIELD+1~*, GET1+1~*, PIECE+2~*
    DIR ASKTYP+1~
    DIR("?" ASKTYP+5*, ASKTYP+6*, ASKTYP+7*, ASKTYP+8*, ASKTYP+9*, ASKTYP+10*, ASKTYP+11*, ASKTYP+12*
    DIR("A" ASKTYP+3*
    DIR("B" ASKTYP+4*
    DIR(0 ASKTYP+2*
    DIROUT ASKTYP+1~
    DIRUT ASKTYP+1~, ASKTYP+14
    DIS KL!
    DIS(0 O1+3*
    DIWF KL+2!
    DIX ASKFLD+3~, ASKRANGE+3~
    DJ KL+2!
    >> DN LOOP+4*, D+1*
    DO ASKFLD+3~, ASKRANGE+3~
    DP ASKFLD+3~, ASKRANGE+3~
    DPP KL+2!
    DR KL+1!, FILE~, FIELD~, GET1~, PIECE~
    DT IXHEAD1+3, KEYHEAD1
    DTIME LOOP+3, IXHEAD, KEYHEAD
    DTOUT SUB, ASKFLD+3~, ASKTYP+1~, ASKRANGE+3~
    DUB DID+7*, KL+1!, O, LOOP+4*, T1+4*, T1+5, TEMPL+1, TEMPL+8, TEMPL+9, EN+2*
    , FORM+6, FORM+7, FORM+8, FORM+9
    DUOUT ASKFLD+3~, ASKTYP+1~, ASKRANGE+3~
    DZ ASKFLD+3~, ASKRANGE+3~
    F KL+1!
    F(1 LOOP+4*, T1+3, T1+4, IX+8, KEY+4
    FLDS KL!, TEMPONLY*
    >> FR TEMPONLY*, TEMPONLY+4*, TEMPONLY+7*, TEMPONLY+8*, TEMPONLY+12
    G KL+1!
    I KL+1!, BLOCK+1~, BLOCK+2*
    I1 KL+2!
    IOF IOF, IXHEAD1, IXHEAD1+3, KEYHEAD1
    IOM TEMPL+5, TEMPL+7, TEMPL+9, IXHEAD1+3, IXHEAD1+4, KEYHEAD1, KEYHEAD1+1
    IOSL T1, TEMPL, BLOCK+6
    IOST LOOP+3, IOF, IXHEAD, KEYHEAD
    J KL+1!
    K KL+1!
    L TEMPONLY*, FORM+4~, FORM+5*, BLOCK+2, BLOCK+3*
    L( BLOCK+2, BLOCK+3*
    L(1 FORM+5*
    M KL+1!, LOOP+2, LOOP+4, D+1, T+1*, T1, T1+3, T1+4, T1+6, TEMPL
    , FORM+6, FORM+7, FORM+8, BLOCK+6, IX+3, IXHEAD*, IXHEAD1+4*, KEY+3, KEYHEAD*, KEYHEAD1+1*
    N KL+1!
    P FORM+4~, FORM+6*, FORM+7, FORM+8
    POP KL+1!
    S KL+1!, T+1*, T1*, T1+1, T1+2, T1+7, T1+8
    >> TO TEMPONLY*, TEMPONLY+4*, TEMPONLY+7*, TEMPONLY+8*, TEMPONLY+12
    U SUB, SUB+1, O1+5, TEMPONLY+12, LOOP+1, LOOP+2, LOOP+3, LOOP+4, D+1, T1
    , T1+1, T1+2, T1+3, T1+4, T1+6, TEMPL, TEMPL+1, TEMPL+3, TEMPL+4, TEMPL+8
    , DES, EN+1, FORM+1, FORM+2, FORM+5, FORM+6, FORM+7, FORM+8, BLOCK+2, BLOCK+3
    , BLOCK+6, BLOCK+7, IX+3, IXHEAD, KEY+3, KEYHEAD, ASKRANGE+9, ASKRANGE+16
    W KL+1!, TEMPL+3*
    X KL+1!, SUB+1, O1+5, LOOP+3*, DES~*, ASKFLD+3~, ASKFLD+8, ASKTYP+1~, ASKRANGE+3~, ASKRANGE+7
    , ASKRANGE+14
    X1 KL+2!
    Y DID+7, KL+1!, SUB*, O, O1+1, O1+5, TEMPONLY, TEMPONLY+1, TEMPONLY+7, TEMPONLY+9
    , TEMPONLY+10, TEMPONLY+11, TEMPONLY+12, LOOP+1, TEMPL+3*, TEMPL+5*, TEMPL+7*, TEMPL+9*, EN+3*, EN+4
    , FORM+1*, ASKFLD+3~, ASKFLD+8, ASKTYP+1~, ASKTYP+14, ASKRANGE+3~, ASKRANGE+8, ASKRANGE+9, ASKRANGE+15, ASKRANGE+16
    Y(0 SUB
    Z KL+1!
    Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All