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 ;8SEP2004

Source Information

Source file <DID.m>

Call Graph

Call Graph Total: 16

Package Total Call Graph
VA Fileman 16 DD^%DT  ^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: 394

Package Total Caller Graph
Lab Service 53 LR153  LR232P  LR309  LR317  LRAPAUL  LRAPBR  LRAPBR1  LRAPBR2  
LRAPBR3  LRAPBR4  LRAPBR5  LRAPEDC  LRAPMRL  LRAPQOR2  LRAPR  LRAPR1  
LRAPSNMD  LRAPUTL  LRBLA2  LRBLDAA  LRBLDCU  LRBLDEX  LRBLDPA  LRBLDPA1  
LRBLDPA2  LRBLDR  LRBLDRR  LRBLDT  LRBLDTA  LRBLDW  LRBLJLG  LRBLJPA1  
LRBLJR  LRCAPBV  LRDIQ  LREGFR  LREGFR2  LREPI1  LRGV2  LRPXSXRA  
LRPXSXRB  LRPXSXRL  LRRPU  LRSRVR1  LRSRVR2A  LRSRVR3  LRSRVR6  LRUA  
LRVER4  LRVR3  LRVR4  LRWRKLS1  LRX  
Clinical Reminders 26 PXRMBXTL  PXRMCOND  PXRMCOPY  PXRMCPLS  PXRMEXCS  PXRMEXFI  PXRMEXIC  PXRMEXIU  
PXRMEXPD  PXRMEXPU  PXRMEXU0  PXRMEXU5  PXRMFRPT  PXRMHIST  PXRMINDC  PXRMINDD  
PXRMMST  PXRMP12I  PXRMP4I1  PXRMSINQ  PXRMSMAN  PXRMSPED  PXRMSTS  PXRMUTIL  
PXRMV2E  PXRMVAL  
Contract Health Management Information System 22 ACHS3110  ACHS3111  ACHS3112  ACHS3113  ACHS3114  ACHS3115  ACHS3116  ACHS3118  
ACHS3119  ACHS3120  ACHS3121  ACHS3122  ACHS3123  ACHS3124  ACHS3125  ACHS3126  
ACHS3127  ACHS31P5  ACHS31P6  ACHS31P7  ACHS31P8  ACHS31P9  
Medicine 20 MCARVCHK  MCDUP1  MCDUPM  MCDUPP  MCDUPR  MCENV00  MCNP2CHK  MCOREX  
MCORMN1  MCPOS01  MCPOS03  MCPOS04A  MCPOS08  MCPOS0A  MCPOS0B  MCPOS0C  
MCPOS0E  MCPREDT  MCUIMAG0  MCWORKLD  
iCare 19 BQIDCAH3  BQIIPCUT  BQIIPSIT  BQIPLRT1  BQIPTELD  BQIPTREP  BQIPTRP1  BQIRGADD  
BQIRGHML  BQIRGUTL  BQITAXX2  BQIUL2  BQIUTB  BQIUTB1  BQIUTB3  BQIUTB5  
BQIUTIL  BQIVFDEF  BQIVFTLK  
Registration 18 DG17201  DG53244S  DG53P425  DG737PST  DGENA3  DGENDBS  DGENEGT  DGENELA1  
DGENU  DGMSTAPI  DGNTAPI1  DGPFUT  DGPTDDCR  DGREGARP  DGREGAZL  DGRPCADD  
VADPT1  VAFCAUD  
Automated Lab Instruments 15 LA27  LA7COBX1  LA7COBX3  LA7COBXA  LA7SM2  LA7SMPXL  LA7UTL1C  LA7VCN5A  
LA7VIN5A  LA7VLN5A  LA7VOBX1  LA7VOBX3  LA7VOBXA  LA7VQN5A  LA7VRN5A  
Scheduling 15 SCMCENV  SCMCRU  SCMCTMM  SCMCTPM  SCMRTMM  SCMRTPM  SCRPW1  SCRPW10  
SCRPW21  SCRPW24  SCRPW25  SD132PT  SDRRSLCT  SDSCINS  SDWLRP3  
Pharmacy Data Management 14 PSS50A1  PSS50B1  PSS50C1  PSS50CMP  PSS50DAT  PSS50E  PSS50F  PSS50LAB  
PSS50WS  PSS51P5  PSS55MIS  PSSFILES  PSSORUTE  PSSSXRD  
Order Entry Results Reporting 13 OCXBDTD  OCXODIC  OCXSENDD  ORCMEDT4  ORDV05X  OREV2  ORPXRM  ORWPCE2  
ORWU  ORWU16  ORY164  ORY56  ORY92  
Referred Care Information System 13 BMC4E  BMC4P0  BMC4P1  BMC4P10  BMC4P11  BMC4P2  BMC4P3  BMC4P4  
BMC4P5  BMC4P6  BMC4P7  BMC4P8  BMC4P9  
Lexicon Utility 12 LEX2080A  LEXDMGT  LEXRXA  LEXRXB  LEXRXC  LEXRXD  LEXRXE  LEXRXF  
LEXRXG  LEXRXS  LEXRXS2  LEXXFI8  
Kernel 10 XLFNAME2  XLFNAME4  XQALBUTL  XUMF  XUMF0  XUMF5II  XUMFPMFS  XUMFX  
XUSER  XUSNPI  
Radiology Nuclear Medicine 10 RA64PRE  RAKIDS  RALOCK01  RAO7XX  RAPSAPI2  RAPSAPI3  RAPXRM  RARTE6  
RARTE7  RASYS  
Inpatient Medications 9 ^PS(57.5  PSGAL5  PSGOEM  PSGSH  PSIVEDRG  PSIVORC  PSIVORC1  PSIVUTL  
PSJBCMA2  
General Medical Record - Vitals 8 GMRVXPRE  GMVDCEXT  GMVDCRPC  GMVDCUTL  GMVDCVAL  GMVPXRM  GMVRPCM  GMVRPCP  
Health Summary 8 GMTSADH5  GMTSLRMX  GMTSOBS2  GMTSROE  GMTSU  GMTSXAR  GMTSXPD2  GMTSXPD4  
Patient Registration GUI 8 AGGPTPVI  AGGPTUPD  AGGUL1  AGGUL2  AGGUTB  AGGWDEF  AGGWDISP  AGGWTBLK  
VA Fileman 8 DDMP2  DDU  DIEV1  DILIST  DIVR1  DMSQF  DMSQP5  DMSQU  
Nursing Service 7 NURAR1A  NURARFBU  NURSAFLL  NURSDD  NURSDFFS  NURSDTMP  NURSFMU  
PCE Patient Care Encounter 6 PXEDIEL  PXPXRMI1  PXPXRMI2  PXQUTL1  PXRRPAPI  PXRRPCE2  
Surgery 6 SR100UTL  SRENSCS  SROMED  SRONP2  SRSCHUN  SRSRQST  
Barcode Medication Administration 5 PSBIHS2  PSBMD  PSBMLTS  PSBO  PSBUTL  
Health Data and Informatics 5 HDI1001A  HDISVC01  HDISVC02  HDISVCFX  HDISVF09  
Outpatient Pharmacy 5 PSOADDR  PSODI  PSOOREDT  PSOPXRMI  PSOVDF2  
IHS Mods To Text Integration Utilities 4 BTIURB  BTIUSTSC  BTIUVAMI  BTIUVSTR  
IHS Patient Registration 4 AGAPIS  AGFACE  AGFLDREQ  AGUTL  
Toolkit 4 XPARDD1  XTIDCTX  XTIDTBL  XTIDTRM  
Utility Tables 4 AUT98P10  AUT98P11  AUT98P12  AUT98P13  
GUI Objects 3 BGOPFUTL  BGOUTL3  BGOVPOV1  
Text Integration Utility 3 TIUFL  TIUFLD  TIUSRVA  
DRG Grouper 2 ICD1857  ICD1857P  
Foundations 2 XOBUENV  XOBUPRE  
Health Level Seven 2 HLCSORAT  HLEMU  
IHS Changes To ADT 2 BDGICE2  BDGICSET  
IHS Code Set Versioning 2 BCSVMD  BCSVMP  
IHS Electronic Health Record 2 BEHOENPC  BEHORXED  
National Drug File 2 PSN5067  PSN50P68  
Pharmacy Point of Sale 2 ABSPECR2  ABSPOSK  
Problem List 2 GMPLP44I  GMPLPXRM  
RPC Broker 2 XWBEXMPL  XWBFM  
Table Maintenance 2 AUMSCBA  AUMSCBD  
Tracking Procedure Workflow 2 BTPWPFND  BTPWTAB  
Automated Information Collection System 1 IBDFDBS  
Consult Request Tracking 1 GMRCAU  
Dietetics 1 FHSYSF  
IHS HIV Management System 1 BKMVFLD  
IHS Mods To Patient Care Encounter 1 BPXRMDX1  
IHS Patient 1 AUPNMCDF  
M Transfer 1 BMXRPC2  
MailMan 1 XMVVITA  
Package Documentation 1 ADC LIST FILE ATTRIBUTES  
Patient Care Component 1 APCDCAF6  
Pharmacy Benefits Management 1 PSUTL  
VistALink 1 XOBVPRE  
VueCentric Framework 1 CIAVINIT  

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
    FORM ;
    KEYHEAD1
    TEMPL
    O1
    IOF
    IXHEAD
    BLOCKQ
    IX ;Print index details
    EN ;
  • ICR #10021
    • Status: Active
    • Usage: Supported
    END ;
    D
    G
    O
    T1
    Q
    ASKFLD(DIDFILE) ;Ask for a single field
    T ;
    FIELDLST(DIDROOT) ;
  • ICR #2052
    • Status: Active
    • Usage: Supported
    FILELST(DIDROOT) ;
  • ICR #2052
    • Status: Active
    • Usage: Supported
    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

    External References

    Name Field # of Occurrence
    DD^%DT TEMPL+2, FORM+1
    ^DIC SUB, O, ASKFLD+7, ASKRANGE+6, ASKRANGE+13
    L^DICRW1 DID+3
    MOD^DID2 O1+5
    PTR^DIDC END+1
    HDR^DIDG T1, TEMPL, BLOCK+6
    AH^DIDX O1+16
    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+3
    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+2
    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: !,$P(%1,U),?30
    • Line Location: TEMPL+1
    Function Call: WRITE
    • Prompt: I
    • Line Location: TEMPL+2
    Function Call: WRITE
    • Prompt: Y
    • Line Location: TEMPL+2
    Function Call: WRITE
    • Prompt: ?50,"USER #"_+$P(%1,U,5),?61
    • Line Location: TEMPL+3
    Function Call: WRITE
    • Prompt: ^("ROU")_$P("*",U,DFF["DIBT")_" "
    • Line Location: TEMPL+3
    Function Call: WRITE
    • Prompt: !
    • Condition for execution: 65+%>IOM
    • Line Location: TEMPL+4
    Function Call: WRITE
    • Prompt: " ",?IOM-%-1,$E(Y,1,IOM-4)
    • Line Location: TEMPL+4
    Function Call: WRITE
    • Prompt: ?55
    • Line Location: TEMPL+6
    Function Call: WRITE
    • Prompt: !
    • Condition for execution: $X+$L(Y)>IOM
    • Line Location: TEMPL+6
    Function Call: WRITE
    • Prompt: ?IOM-$L(Y)-1,Y
    • Line Location: TEMPL+6
    Function Call: WRITE
    • Prompt: " "
    • Line Location: TEMPL+8
    Function Call: WRITE
    • Prompt: !?$S(D>55:55,1:D)
    • Condition for execution: $X>D
    • Line Location: TEMPL+8
    Function Call: WRITE
    • Prompt: %
    • Line Location: TEMPL+8
    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: ?(IOM-20),$E(DT,4,5)_"/"_$E(DT,6,7)_"/"_$E(DT,2,3)_" PAGE "_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),$E(DT,4,5)_"/"_$E(DT,6,7)_"/"_$E(DT,2,3)_" PAGE "_DC
    • Line Location: KEYHEAD1+0
    Function Call: WRITE
    • Prompt: !,M
    • Line Location: KEYHEAD1+1
    Routine Call
    • DIC
    • Line Location:
      • SUB
      • O
      • ASKFLD+7
      • ASKRANGE+6
      • ASKRANGE+13
    Routine Call
    • DIR
    • Line Location:
      • ASKTYP+13

    Global Variables Directly Accessed

    Name Line Occurrences  (* Changed,  ! Killed)
    ^DD( SUB, O1+2, TEMPL+7
    ^DIBT( TEMPL+8
    ^DIC - [#1] O1+2, LOOP+3, 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 O1+9
    $$ASKTYP O1+8
    ASKRANGE O1+18
    BLOCK FORM+7, FORM+8
    BLOCKQ BLOCK+2
    DES TEMPL+5
    FORM TEMPL+1
    G O1+6, O1+7, O1+13
    IOF D
    IX D+1
    KL DID+3, SUB, SUB+1, O, O1+1, O1+5, O1+7, O1+16, O1+18, G
    LOOP LOOP+4
    O DID+3, SUB, EN+3
    O1 EN+4
    Q T1+6
    SUB DID+3, SUB
    T1 T1+6
    TEMPL T1+5

    Naked Globals

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

    Local Variables

    Legend:

    >> Not killed explicitly
    * Changed
    ! Killed
    ~ Newed

    Name Field # of Occurrence
    % O1+16*, TEMPL+4*, TEMPL+8*, ASKFLD+3~, ASKRANGE+3~, ASKRANGE+18*
    %1 T1+5*, T1+6!, TEMPL+1, TEMPL+2, TEMPL+3, 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!, O1+6*, O1+18
    D TEMPL+8*, ASKFLD+3~, ASKRANGE+3~
    D0 LOOP+3*, TEMPL+7*, ASKFLD+3~, ASKRANGE+3~
    DA KL+1!, T1+2*, T1+3*, T1+4, ASKFLD+3~, ASKRANGE+3~, FIELD~, GET1~, PIECE~
    >> DC LOOP+3*, 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+3*, KL+1!, SUB*, O, O1+2, O1+9, O1+18, LOOP+3*, T1+2*, T1+3
    , T1+4, T1+5, TEMPL+1, TEMPL+3, TEMPL+5, DES, Q, EN+2*, FORM+9
    DHD KL+1!, O1+6*, O1+11*, O1+13*, O1+14*, O1+17*
    DHIT KL!, O1+6*, O1+10*, O1+13*, O1+14*, O1+15*, O1+16*, O1+17*, D, IX+4
    DIB DID+3*, KL!, G, LOOP+3*, EN+2*, IXHEAD1+2, KEYHEAD1
    DIB(1 DID+3, O1+2*, LOOP+3, EN+2*
    DIC DID+3, 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+7*
    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
    DIDFILE ASKFLD~, ASKFLD+1, ASKFLD+4, ASKRANGE~, ASKRANGE+1, ASKRANGE+4, ASKRANGE+11
    DIDFLD KL+3!, O1+7, O1+9*, 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!, O1+18*, 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!, O1+7, O1+8*, IX+5, IXHEAD1+1
    DIDX KL!, O1+16*
    DIFF KL+1!, IXHEAD1*, KEYHEAD1*
    DIFM FILELST+2~*, FILE+2~*, FIELDLST+2~*, FIELD+2~*, GET1+2~*, PIECE+3~*
    >> DIFORMAT O1+5, O1+16, EN+3
    DIGR KL!, O1+18
    DIJS KL!
    DIMS KL+2!
    DINM KL!, IX+7
    >> DIOBEG O1+4*
    DIOEND KL!, O1+3*, O1+6*, O1+12*, O1+13*, O1+14*, O1+15*, O1+17*, G*
    DIOEND(1 G*, LOOP+1
    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+3*, 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+2, IXHEAD, KEYHEAD
    DTOUT SUB, ASKFLD+3~, ASKTYP+1~, ASKRANGE+3~
    DUB DID+3*, KL+1!, O, LOOP+3*, T1+4*, T1+5, TEMPL+7, TEMPL+8, 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+3*, T1+3, T1+4, IX+8, KEY+4
    FLDS KL!, O1+6*
    >> FR O1+6*, O1+10*, O1+13*, O1+14*, O1+18
    G KL+1!
    I KL+1!, BLOCK+1~, BLOCK+2*
    I1 KL+2!
    IOF IOF, IXHEAD1, KEYHEAD1
    IOM TEMPL+4, TEMPL+6, TEMPL+8, IXHEAD1+3, IXHEAD1+4, KEYHEAD1, KEYHEAD1+1
    IOSL T1, TEMPL, BLOCK+6
    IOST LOOP+2, IOF, IXHEAD, KEYHEAD
    J KL+1!
    K KL+1!
    L O1+6*, FORM+4~, FORM+5*, BLOCK+2, BLOCK+3*
    L( BLOCK+2, BLOCK+3*
    L(1 FORM+5*
    M KL+1!, LOOP+1, LOOP+3, 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+6
    >> TO O1+6*, O1+10*, O1+13*, O1+14*, O1+18
    U SUB, SUB+1, O1+5, O1+18, LOOP, LOOP+1, LOOP+2, LOOP+3, D+1, T1
    , T1+1, T1+2, T1+3, T1+4, T1+6, TEMPL, TEMPL+1, TEMPL+2, TEMPL+3, TEMPL+7
    , 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+2*
    X KL+1!, SUB+1, O1+5, LOOP+2*, DES~*, ASKFLD+3~, ASKFLD+8, ASKTYP+1~, ASKRANGE+3~, ASKRANGE+7
    , ASKRANGE+14
    X1 KL+2!
    Y DID+3, KL+1!, SUB*, O, O1+1, O1+5, O1+6, O1+7, O1+13, O1+15
    , O1+16, O1+17, O1+18, LOOP, TEMPL+2*, TEMPL+4*, TEMPL+6*, TEMPL+8*, 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