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 |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All
Print Page as PDF
Routine: DGREG

Package: Registration

Routine: DGREG


Information

DGREG ;ALB/JDS,MRL,PJR,PHH,ARF,RN,JAM - REGISTER PATIENT ; 3/28/14 12:38pm

Source Information

Source file <DGREG.m>

Call Graph

Call Graph Total: 38

Package Total Call Graph
Registration 22 (HINQ,PAUSE)^DG10  $$ADD^DGADDUTL  ($$FINDCUR,$$STATUS)^DGENA  ($$DEATH,$$GET,$$VET,$$VET1)^DGENPTA  ($$LOCK,UNLOCK)^DGENPTA1  ($$FINDLAST,$$GET,$$QRY)^DGENQRY  ($$PROMPT,PROMPT)^DGENU  ($$PRFQRY,DISPPRF)^DGPFAPI  
$$EN^DGPFMPI  DIED^DGPMV  (,Q1)^DGREG0  EL^DGREGE  $$EN^DGREGEEWS  $$DIVCHK^DGREGFAC  ^DGREGG  (EN1,NEW)^DGRP  
(,APPTCHG)^DGRPC  EN^DGRPD  LO^DGUTL  HL7A08^VAFCDD01  $$QUERYTF^VAFCTFU1  $$PRIM^VASITE  
VA FileMan 7 EN^DDIOL  ^DIC  YN^DICN  (,CHK,FILE)^DIE  ^DIK  ($$GET1,GETS)^DIQ  ^DIR  
Kernel 3 ^%ZIS  ^%ZTLOAD  ($$FMDIFF,$$NOW)^XLFDT  
Master Patient Index VistA 2 $$GETICN^MPIF001  MPIQ^MPIFAPI  
Health Level Seven 1 $$HLDATE^HLFNC  
Income Verification Match 1 REG^IVMCQ  
Record Tracking 1 ADM^RTQ3  
Toolkit 1 $$GET^XPAR  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

action A extended action Ea event driver Ed subscriber Su protocol O limited protocol LP run routine RR broker B edit E server Se print P screenman SM inquire I

Caller Graph

Caller Graph Total: 7

Package Total Caller Graph
Registration 6 DG REGISTER PATIENT  DGENUPL4  DGENUPL7  DGREG0  DGREG00  DGRPC2  
Fee Basis 1 FBCHREQ  

Entry Points

Name Comments DBIA/ICR reference
START ;
EN
A
ENRYN
APPTREQ(DGENRDTT,DGBACK) ; Prompt for DO YOU WANT AN APPT. WITH A VA DOCTOR/PROVIDER AS SOON AS AVAILABLE?
; If YES, update fields #2,#1010.159 and #2,#1010.1511 (NOTE: This code came from DGEN)
; Input: DGENRDTT - value for ENROLLMENT APPLICATION DATE field 1010.1511 in PATIENT file
; Output: DGBACK (Pass by Reference) - If set, the user has exited from the prompt
PREEXIST(DFN) ;DG*5.3*993 - Did this patient exist before the installation of DG*5.3*993
HELPENR ;DG*5.3*993 - Help for ?? on the DO YOU WISH TO ENROLL? question
REASON(Y,XQY0) ; DG*5.3*1027 - Screen logic/Input Transform for field .15 (REGISTRATION ONLY REASON) of the 27.11 (PATIENT ENROLLMENT) file
; Input: Y - Entry to be checked
; XQYO - String containing the option that is being run (may be null when accessing the field from Fileman)
; Returns: TRUE if the entry Y is valid
PAUSE ;
RT
A1
PR
CK
CH
CH1
SEEN
ABIL
ENR ; next line appears to be dead code. left commented just to test. mli 4/28/94
REG
ASKDIV
CONT ; continue
PR2
PR3
H
Q
Q1
EL
FEE
  • ICR #699
    • Status: Active
    • Usage: Private
    WARN
    MSG
    BEGINREG(DFN) ;
    ENDREG(DFN) ;
    IFREG(DFN) ;
    CIRN ;MPI QUERY
    ROMQRY ;**926 TRIGGER IB INSURANCE QUERY

    External References

    Name Field # of Occurrence
    ^%ZIS EN+4, EN+6, ENRYN+86
    ^%ZTLOAD ROMQRY+11
    EN^DDIOL ROMQRY+7, ROMQRY+14
    HINQ^DG10 ENRYN+87
    PAUSE^DG10 A+4
    $$ADD^DGADDUTL A1+2
    $$FINDCUR^DGENA A+25, ENRYN+7, ENRYN+26, ENRYN+54, ENRYN+69, ENRYN+79
    $$STATUS^DGENA ENRYN+6, REG+13
    $$DEATH^DGENPTA ENRYN+5
    $$GET^DGENPTA ENRYN+3
    $$VET^DGENPTA ENRYN
    $$VET1^DGENPTA REASON+27
    $$LOCK^DGENPTA1 BEGINREG+12
    UNLOCK^DGENPTA1 ENDREG+5
    $$FINDLAST^DGENQRY BEGINREG+8
    $$GET^DGENQRY BEGINREG+8
    $$QRY^DGENQRY BEGINREG+9
    $$PROMPT^DGENU APPTREQ+7
    PROMPT^DGENU ENRYN+75
    $$PRFQRY^DGPFAPI A+15
    DISPPRF^DGPFAPI A+15
    $$EN^DGPFMPI A+16
    DIED^DGPMV A+8
    ^DGREG0 CONT+4
    Q1^DGREG0 Q
    EL^DGREGE CONT+1
    $$EN^DGREGEEWS ENRYN+25
    $$DIVCHK^DGREGFAC REG+33, ASKDIV+4
    ^DGREGG ABIL
    EN1^DGRP A1
    NEW^DGRP A+4
    ^DGRPC CK
    APPTCHG^DGRPC ENRYN+44
    EN^DGRPD ENRYN+86
    LO^DGUTL EN
    ^DIC A+4, REG+6
    YN^DICN A1PRSEEN
    ^DIE APPTREQ+12, APPTREQ+20, APPTREQ+26, REG+24, ASKDIV+3, CONT+1, CONT+2, CONT+3
    CHK^DIE REG+1
    FILE^DIE ENRYN+38, ENRYN+43
    ^DIK REG+29
    $$GET1^DIQ A+25, ENRYN+7, ENRYN+9, ENRYN+44, ENRYN+54, ENRYN+70, ENRYN+79, PREEXIST+9, REASON+16, ROMQRY+5
    GETS^DIQ A+26
    ^DIR ENRYN+33, ENRYN+63, PAUSE+2
    $$HLDATE^HLFNC APPTREQ+18
    REG^IVMCQ ENRYN+89
    $$GETICN^MPIF001 ENRYN+22, PREEXIST+3
    MPIQ^MPIFAPI CIRN+4
    ADM^RTQ3 ENRYN+88, RT
    HL7A08^VAFCDD01 ENRYN+86
    $$QUERYTF^VAFCTFU1 PREEXIST+5
    $$PRIM^VASITE EN+2
    $$FMDIFF^XLFDT BEGINREG+9
    $$NOW^XLFDT ENRYN+50, REASON+17, BEGINREG+9
    $$GET^XPAR REASON+19

    Interaction Calls

    Name Line Occurrences
    Function Call: WRITE
    • Prompt: !,$C(7),"Not a printer"
    • Line Location: EN+4
    Function Call: WRITE
    • Prompt: !,"Using closest printer ",Y,!
    • Line Location: EN+6
    Function Call: WRITE
    • Prompt: !!
    • Line Location: A+4
    Function Call: WRITE
    • Prompt: !!?5,"This is an existing patient. To complete the enrollment"
    • Line Location: ENRYN+45
    Function Call: WRITE
    • Prompt: !?5,"application process, please use the Enrollment System."
    • Line Location: ENRYN+45
    Function Call: WRITE
    • Prompt: !!!?5,"Press <Enter> to Continue or '^' to exit:"
    • Line Location: ENRYN+46
    Function Call: WRITE
    • Prompt: !
    • Line Location: ENRYN+57
    Function Call: WRITE
    • Prompt: !,"This is a required field.",!
    • Line Location: ENRYN+66
    Function Call: WRITE
    • Prompt: !,"Select Y or YES if the patient wants to apply for enrollment for VHA"
    • Line Location: HELPENR+1
    Function Call: WRITE
    • Prompt: !,"Healthcare benefits. Select N or NO if the patient only wants to"
    • Line Location: HELPENR+2
    Function Call: WRITE
    • Prompt: !,"register without applying for enrollment."
    • Line Location: HELPENR+3
    Function Call: WRITE
    • Prompt: !!,"Is the patient currently being followed in a clinic for the same condition"
    • Line Location: PR+0
    Function Call: WRITE
    • Prompt: !?4,$C(7),"Enter 'Y' if the patient is being followed in clinic for condition for which",!?6,"registered, 'N' if not."
    • Line Location: PR+1
    Function Call: WRITE
    • Prompt: !!,"There is still an open disposition--register aborted.",$C(7),$C(7)
    • Line Location: CH1+0
    Function Call: WRITE
    • Prompt: !!,"Enter 'Y' if the patient is to be examined today, 'N' if not.",$C(7)
    • Line Location: SEEN+0
    Function Call: READ
    • Variable: ANS
    • Timeout: DTIME
    • Line Location: REG+1
    Function Call: WRITE
    • Prompt: " ("_RESULT(0)_")"
    • Line Location: REG+2
    Function Call: WRITE
    • Prompt: !!,"You must enter a date that does not exist.",$C(7),$C(7)
    • Line Location: REG+4
    Function Call: WRITE
    • Prompt: !!?5,"The facility chosen either has no pointer to an Institution"
    • Line Location: ASKDIV+0
    Function Call: WRITE
    • Prompt: !?5,"file record or the Institution file record is inactive."
    • Line Location: ASKDIV+1
    Function Call: WRITE
    • Prompt: !?5,"Please choose another division."
    • Line Location: ASKDIV+2
    Function Call: WRITE
    • Prompt: !!,"You can only enter new registrations through this option.",$C(7),$C(7)
    • Line Location: PR2+0
    Function Call: WRITE
    • Prompt: !!,"Time is required to register the patient.",!!,$C(7),$C(7)
    • Line Location: PR3+0
    Function Call: WRITE
    • Prompt: !?5,"Enter 'YES' to enter/edit registration data or 'NO' to continue."
    • Line Location: H+0
    Function Call: WRITE
    • Prompt: !,$C(7),"***PATIENT IS CURRENTLY AN INPATIENT***",!
    • Line Location: WARN+0
    Function Call: WRITE
    • Prompt: !,$C(7),"***PATIENT IS CURRENTLY A LODGER***",!
    • Line Location: WARN+1
    Function Call: WRITE
    • Prompt: !,"Another user is editing, try later ..."
    • Line Location: MSG+0
    Function Call: WRITE
    • Prompt: !!,"Enrollment/Eligibility Query sent ...",!!
    • Line Location: BEGINREG+9
    Routine Call
    • %ZIS
    • Line Location:
      • EN+4
      • EN+6
      • ENRYN+86
    Routine Call
    • DIC
    • Line Location:
      • A+4
      • REG+6
    Routine Call
    • DIE
    • Line Location:
      • APPTREQ+12
      • APPTREQ+20
      • APPTREQ+26
      • REG+24
      • ASKDIV+3
      • CONT+1
      • CONT+2
      • CONT+3
    Routine Call
    • DIE
    • Line Location:
      • REG+1
    Routine Call
    • DIE
    • Line Location:
      • ENRYN+38
      • ENRYN+43
    Routine Call
    • DIR
    • Line Location:
      • ENRYN+33
      • ENRYN+63
      • PAUSE+2

    FileMan Files Accessed Via FileMan Db Call

    FileNo Call Tags
    ^DPT - [#2] Classic Fileman Calls,  GET1^DIQ,  GETS^DIQ
    2.101 CHK^DIE
    ^DGEN(27.11 - [#27.11] GET1^DIQ
    ^IBE(350.9 - [#350.9] GET1^DIQ
    ^DIC(4 - [#4] GET1^DIQ
    ^DG(408.43 - [#408.43] GET1^DIQ

    Global Variables Directly Accessed

    Name Line Occurrences  (* Changed,  ! Killed)
    ^%ZIS(1 - [#3.5] EN+6
    ^%ZOSF("TEST" CIRN+2
    ^DG(40.8 - [#40.8] EN+3, REG+18, REG+22
    ^DG(408.43 - [#408.43] REASON+11, REASON+13, REASON+23, REASON+32
    ^DG(43 - [#43] EN+4, EN+6, REG+18, REG+22
    ^DIC(195.4 - [#195.4] ENRYN+88, RT
    ^DIC(4 - [#4] PREEXIST+9
    ^DIC(8 - [#8] EL
    ^DPT - [#2] A+7, ENRYN+78, ENRYN+85, CHREG+4, REG+6, CONT+1, CONT+3, ELWARN
    WARN+1
    ^DPT("ADA" CH1REG+6
    ^TMP( BEGINREG+11, ENDREG+4, IFREG+10, IFREG+12
    ^TMP($J ENRYN+19!, ENRYN+21*, CH1!

    Label References

    Name Line Occurrences
    $$PREEXIST ENRYN+6
    A A+8, ENRYN+48, ENRYN+86
    A1 ENRYN+90, H
    APPTREQ ENRYN+78
    ASKDIV ASKDIV+4
    BEGINREG A+4
    CH A1+3
    CH1 CHREG+6
    CIRN A+10
    CK A1
    CONT REG+33
    DGREG EN+4, FEE
    EL REG+24
    ENDREG AENRYN+86
    ENRYN ENRYN+52, ENRYN+71, ENRYN+82
    H A1
    MSG REG+6, REG+24
    PR PR+1, CH1
    PR3 REG+1
    Q A1PRCH1SEENREG+1, REG+25, MSG
    Q1 A+4, FEE
    REG REG+1, REG+4, PR2PR3
    ROMQRY A+18
    SEEN PR+2, SEEN
    WARN ENRYN+85

    Naked Globals

    Name Field # of Occurrence
    ^( CHELWARNWARN+1
    ^("UP" ENRYN+88, RT
    ^("VET" ENRYN+85
    ^(0 EN+6, REG+6*, REG+18, REG+22, EL
    ^(2 CONT+3
    ^(99 EN+6

    Local Variables

    Legend:

    >> Not killed explicitly
    * Changed
    ! Killed
    ~ Newed

    Name Field # of Occurrence
    >> % A1*, PR*, PR+1, PR+2, SEEN*
    >> %DT REG*
    >> %DT("A" REG*, REG+1
    >> %ZIS EN+4*, EN+6*, ENRYN+86*
    >> %ZIS("A" EN+4*
    >> %ZIS("B" EN+3*, EN+5!
    A ROMQRY+1~, ROMQRY+7*
    ANS ENRYN+68~, REG+1*
    >> APD REG+4*
    CURR ENRYN+84*, PR+2*, REG+22, Q1!
    DA A+4*, ENRYN+85*, APPTREQ+5~, APPTREQ+9*, APPTREQ+13!, APPTREQ+17*, APPTREQ+24*, A1, CH1*, REG+6
    REG+16*, REG+20*, REG+27~, REG+28*, ASKDIV+3*, CONT+1*, CONT+2*, CONT+3*
    DA(1 REG+1*, REG+6, REG+17*, REG+21*, REG+28*, ASKDIV+3*, CONT+1*
    DFN AA+4*, A+7, A+8!, A+15, A+16, A+25, A+26, ENRYNENRYN+3
    ENRYN+5, ENRYN+6, ENRYN+7, ENRYN+9, ENRYN+21, ENRYN+22, ENRYN+26, ENRYN+37, ENRYN+42, ENRYN+44
    ENRYN+54, ENRYN+69, ENRYN+78, ENRYN+79, ENRYN+85, ENRYN+86!, ENRYN+89, APPTREQ+9, APPTREQ+17, APPTREQ+24
    , PREEXIST~, PREEXIST+3, REASON+27, A1+2, CHCH1REGREG+1, REG+4, REG+13
    REG+17, REG+21, REG+28, REG+33, ASKDIV+3, ASKDIV+4, CONT+1, CONT+2, CONT+3, EL
    WARNWARN+1, BEGINREG~, BEGINREG+6, BEGINREG+8, BEGINREG+9, BEGINREG+11, BEGINREG+12, ENDREG~, ENDREG+3
    , ENDREG+4, ENDREG+5, IFREG~, IFREG+8, IFREG+10, IFREG+12, CIRN+4, ROMQRY+8
    >> DFN1 REG+4*, REG+16, REG+20, REG+24, REG+28, REG+33, ASKDIV+3, ASKDIV+4, CONT+1, CONT+3
    DG Q!
    DGACTTS REASON+15~, REASON+17, REASON+19*
    DGADDRE A+2~*, A1A1+2*
    DGAPLDT ENRYN+68~, ENRYN+70*, ENRYN+75
    DGAPPTAN APPTREQ+5~, APPTREQ+7, APPTREQ+15, APPTREQ+22
    DGARR PREEXIST+1~, PREEXIST+5!
    DGARR( PREEXIST+7
    DGASKDEV EN+4*, Q1!
    DGBACK A+23~, A+25*, ENRYN*, ENRYN+28, ENRYN+47*, ENRYN+48, ENRYN+68~, ENRYN+70*, ENRYN+78, ENRYN+82
    , APPTREQ~, APPTREQ+6*, APPTREQ+8*
    DGCHK REG+11~, REG+12*, REG+13*, REG+14*, REG+15, REG+19
    >> DGCLPR EN*
    DGCLRP Q1!
    DGCURR ENRYN+2~, ENRYN+7*
    DGDEAD ENRYN+2~, ENRYN+4*, ENRYN+5*, ENRYN+28
    DGDEATH ENRYN+2~, ENRYN+5*
    DGDIV EN+1~, EN+2*, EN+3
    >> DGEDCN CK*
    DGELVER ENRYN+86*, Q1!
    DGENPTA ENRYN+2~, ENRYN+3
    DGENPTA("INELDATE" ENRYN+3
    DGENRDT A+23~, ENRYN+76*
    DGENRDTT ENRYN+68~, ENRYN+76*, ENRYN+78, APPTREQ~, APPTREQ+18*
    DGENRIEN A+23~, ENRYN+68~, ENRYN+69*, ENRYN+70
    >> DGENRODT ENRYN+67*, ENRYN+80*
    DGENRRSN A+23~, ENRYN+50*, ENRYN+52, ENRYN+58, ENRYN+64*, ENRYN+65*, ENRYN+66, ENRYN+80*
    DGENRYN A+23~, ENRYN*, ENRYN+6*, ENRYN+8*, ENRYN+10*, ENRYN+28, ENRYN+35*, ENRYN+37, ENRYN+39*, ENRYN+40*
    ENRYN+42, ENRYN+44, ENRYN+49*, ENRYN+52, ENRYN+71, REG+13*, REG+14*
    >> DGENSRCE ENRYN+67*, ENRYN+80*
    DGENSTAT ENRYN+2~, ENRYN+25
    DGERR A+23~
    DGESKNOWN PREEXIST+1~, PREEXIST+7*, PREEXIST+10*, PREEXIST+11, PREEXIST+12, PREEXIST+13
    DGEXIST PREEXIST+1~, PREEXIST+2*, PREEXIST+5*, PREEXIST+6, PREEXIST+12, PREEXIST+13
    DGEXIT A+23~, ENRYN+71*, ENRYN+75*
    DGFC ENRYN+84*, ENRYN+85*, RT*, Q1!
    DGFDA A+23~, ENRYN+36~, ENRYN+41~
    DGFDA(2 ENRYN+37*, ENRYN+42*
    DGFDD A+23~, A+27*, ENRYN+28, ENRYN+49
    DGICN PREEXIST+1~, PREEXIST+2*, PREEXIST+3*, PREEXIST+4, PREEXIST+5
    DGIEN A+23~, A+25*
    DGIENS ENRYN+36~, ENRYN+37*, ENRYN+41~, ENRYN+42*
    DGINELIG ENRYN+2~, ENRYN+3*, ENRYN+9
    DGINST PREEXIST+1~, PREEXIST+8*, PREEXIST+9
    DGINSTAT PREEXIST+1~, PREEXIST+8*, PREEXIST+9*, PREEXIST+10
    DGINSTID PREEXIST+1~, PREEXIST+7*, PREEXIST+9*, PREEXIST+10
    DGIO EN+6, Q1!
    DGIO( EN+6*
    DGIO("HS" EN+4*
    DGIO("PRF" EN+4*
    DGIO("RT" EN+4*
    DGIO(10 EN+4*
    DGIPTAPPLD ENRYN+2~, ENRYN+4*, ENRYN+9*, ENRYN+10
    DGKEY ENRYN+2~, ENRYN+22*, ENRYN+25
    DGMSG ROMQRY+1~, ROMQRY+7, ROMQRY+14
    DGMSG(1 ROMQRY+6*, ROMQRY+13*
    DGMSG(2 ROMQRY+7*, ROMQRY+14*
    DGNDLOCK REG+24~*
    DGNEW A+4*, A+12, ENRYN+85, A1A1+1, Q1!
    DGNEWP A+3~, A+4
    DGNOENRLL ENRYN+2~, ENRYN+24*, ENRYN+26*, ENRYN+27
    DGNOW A+23~, ENRYN+50*, ENRYN+67, ENRYN+76, ENRYN+80
    DGOUT A+23~, A+26!
    DGOUT( A+27
    >> DGPME A+8*
    DGPREXST ENRYN+2~, ENRYN+6*
    DGPTAPPLD ENRYN+2~, ENRYN+6*, ENRYN+7*, ENRYN+8, ENRYN+9, ENRYN+27, ENRYN+29, ENRYN+34, ENRYN+39, ENRYN+45
    ENRYN+46
    DGQRY BEGINREG+1~, BEGINREG+8*
    DGQRY("SENT" BEGINREG+9
    DGREASON REASON+15~, REASON+16*, REASON+17, REASON+28
    DGREC PREEXIST+1~, PREEXIST+7*, PREEXIST+8
    DGREQNAME ENRYN+2~, ENRYN+23*, ENRYN+25
    DGRESP ENRYN+2~, ENRYN+24*, ENRYN+25*, ENRYN+26, ENRYN+55
    DGRET REASON+21~*, REASON+23*
    DGRPFEE FEE*!
    DGRPOUT A+8!, ENRYN+86!, A1
    >> DGRPV A1*
    DGRSLT ENRYN+36~, ENRYN+37*, ENRYN+41~, ENRYN+42*
    DGSHWPRMPT ENRYN+2~, ENRYN+24*, ENRYN+27*, ENRYN+28
    DGSTA A+23~, A+25*
    DGSTUS REG+11~, REG+13*
    DGSXS APPTREQ+5~, APPTREQ+6*, APPTREQ+7*, APPTREQ+8
    DGTMOT A+2~*, Q!
    DGVET A+23~, ENRYN*, ENRYN+21, ENRYN+28, REASON+26~, REASON+27*, REASON+28
    DGWSHTOEN ENRYN+2~, ENRYN+25
    DGX A+23~, A+27*, ENRYN+54*, ENRYN+79*, PREEXIST+1~, PREEXIST+7*, PREEXIST+11*, PREEXIST+12*, PREEXIST+13*, PREEXIST+14
    >> DGXXXD CONT+1*
    DGY A+23~, ENRYN+54*, ENRYN+55, ENRYN+79*
    >> DIC A+4*, REG*
    >> DIC("A" REG+24!
    >> DIC("B" A+4!
    >> DIC("S" A+4!
    >> DIC(0 A+4*, REG+6*
    DIE A+23~, APPTREQ+5~, APPTREQ+10*, APPTREQ+13!, APPTREQ+16*, APPTREQ+23*, REG*, REG+6, REG+24, CONT+1*
    CONT+2*, CONT+3*
    DIE("NO^" REG+16*, REG+20*, ASKDIV+3*, CONT+2!
    DIK REG+27~, REG+28*
    >> DILOCKTM REG+6, REG+24, BEGINREG+11, IFREG+10
    >> DINUM REG+3*, REG+4, REG+6
    DIR A+23~, ENRYN+29!, ENRYN+60!, PAUSE+1~
    DIR("?" ENRYN+31*
    DIR("??" ENRYN+32*
    DIR("A" ENRYN+30*, ENRYN+62*
    DIR("B" ENRYN+29*
    DIR(0 ENRYN+30*, ENRYN+61*, PAUSE+2*
    >> DIV RT
    DLAYGO A+4*!
    >> DOD A+7*, A+8
    >> DP REG+17*, REG+21*, ASKDIV+3*
    DQ Q!
    DR A+23~, APPTREQ+5~, APPTREQ+11*, APPTREQ+13!, APPTREQ+19*, APPTREQ+25*, REASON+23, REG+18*, REG+22*, ASKDIV+3*
    CONT+1*, CONT+2*, CONT+3*, EL*, EL+1*
    DTIME ENRYN+46, REG+1
    DTOUT A+23~, ENRYN+29!, ENRYN+47, ENRYN+64, REG+25, REG+26!
    DUOUT A+23~, ENRYN+64
    DUZ REG+18, REG+22, ROMQRY+8
    I EN+6*, PREEXIST+1~, PREEXIST+7*
    ION EN+4
    >> IOP EN+6*, ENRYN+86*
    >> IOS EN+6
    IOST EN+4
    MPIFRTN CIRN+3!, CIRN+5!
    >> POP EN+4
    >> RESULT REG+1, REG+2, REG+3
    >> RESULT(0 REG+2
    RETURN IFREG+7~, IFREG+11*, IFREG+13
    >> SEEN SEEN*, REG+18, REG+22
    STATUS ENRYN+2~, ENRYN+6*, ENRYN+55
    U EN+3, EN+4, EN+6, ENRYN+47, REASON+13, REASON+21, REASON+23, REASON+30, REASON+32, RT
    >> VAFCDDT REG+9*
    >> VET ENRYN+85*
    X ENRYN+34, ENRYN+39, ENRYN+45, ENRYN+46*, ENRYN+47, CH*, REG+1*, REG+6*, REG+9, CIRN+2~*
    >> X1 CH*
    XQY0 ENRYN+44, REASON~, REASON+21, REASON+30
    Y EN+6*, A+4~, A+8*, ENRYN+65, ENRYN+75!, ENRYN+76, REASON~, REASON+11, REASON+13, REASON+16
    , REASON+23, REASON+32, REG+1*, REG+4, REG+6
    >> Y1 REG+4*
    ZTDESC ROMQRY+1~, ROMQRY+10*
    ZTDTH ROMQRY+1~, ROMQRY+10*
    ZTIO ROMQRY+1~, ROMQRY+10*
    ZTRTN ROMQRY+1~, ROMQRY+10*
    ZTSAVE ROMQRY+1~
    ZTSAVE("DFN" ROMQRY+8*
    ZTSAVE("IBDUZ" ROMQRY+8*
    ZTSAVE("IBTYPE" ROMQRY+8*
    Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All