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-REGISTER PATIENT ; 3/28/14 12:38pm

Source Information

Source file <DGREG.m>

Call Graph

Call Graph Total: 38

Package Total Call Graph
Registration 23 (HINQ,PAUSE)^DG10  $$ADD^DGADDUTL  ($$FINDCUR,$$STATUS)^DGENA  ($$DEATH,$$VET)^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  $$ROMQRY^DGROAPI  
(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  

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
; Supported ICRs
; #3356 - XQY0 ; Kernel Variable
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+82
    ^%ZTLOAD ROMQRY+5
    EN^DDIOL ROMQRY+9, ROMQRY+19, ROMQRY+24
    HINQ^DG10 ENRYN+83
    PAUSE^DG10 A+4
    $$ADD^DGADDUTL A1+2
    $$FINDCUR^DGENA A+25, ENRYN+5, ENRYN+22, ENRYN+50, ENRYN+65, ENRYN+75
    $$STATUS^DGENA ENRYN+4, REG+13
    $$DEATH^DGENPTA ENRYN+3
    $$VET^DGENPTA ENRYN
    $$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+71
    $$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+21
    $$DIVCHK^DGREGFAC REG+33, ASKDIV+4
    ^DGREGG ABIL
    $$ROMQRY^DGROAPI ROMQRY+15
    EN1^DGRP A1
    NEW^DGRP A+4
    ^DGRPC CK
    APPTCHG^DGRPC ENRYN+40
    EN^DGRPD ENRYN+82
    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+34, ENRYN+39
    ^DIK REG+29
    $$GET1^DIQ A+25, ENRYN+5, ENRYN+40, ENRYN+50, ENRYN+66, ENRYN+75, PREEXIST+9
    GETS^DIQ A+26
    ^DIR ENRYN+29, ENRYN+59, PAUSE+2
    $$HLDATE^HLFNC APPTREQ+18
    REG^IVMCQ ENRYN+85
    $$GETICN^MPIF001 ENRYN+18, PREEXIST+3
    MPIQ^MPIFAPI CIRN+4
    ADM^RTQ3 ENRYN+84, RT
    HL7A08^VAFCDD01 ENRYN+82
    $$QUERYTF^VAFCTFU1 PREEXIST+5
    $$PRIM^VASITE EN+2
    $$FMDIFF^XLFDT BEGINREG+9
    $$NOW^XLFDT ENRYN+46, BEGINREG+9

    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+41
    Function Call: WRITE
    • Prompt: !?5,"application process, please use the Enrollment System."
    • Line Location: ENRYN+41
    Function Call: WRITE
    • Prompt: !!!?5,"Press <Enter> to Continue or '^' to exit:"
    • Line Location: ENRYN+42
    Function Call: WRITE
    • Prompt: !
    • Line Location: ENRYN+53
    Function Call: WRITE
    • Prompt: !,"This is a required field.",!
    • Line Location: ENRYN+62
    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+82
    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+34
      • ENRYN+39
    Routine Call
    • DIR
    • Line Location:
      • ENRYN+29
      • ENRYN+59
      • 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
    ^DIC(4 - [#4] 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+8, REASON+10, REASON+14, REASON+19
    ^DG(43 - [#43] EN+4, EN+6, REG+18, REG+22
    ^DIC(195.4 - [#195.4] ENRYN+84, RT
    ^DIC(4 - [#4] PREEXIST+9
    ^DIC(8 - [#8] EL
    ^DPT - [#2] A+7, ENRYN+74, ENRYN+81, 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+15!, ENRYN+17*, CH1!

    Label References

    Name Line Occurrences
    $$PREEXIST ENRYN+4
    A A+8, ENRYN+44, ENRYN+82
    A1 ENRYN+86, H
    APPTREQ ENRYN+74
    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+82
    ENRYN ENRYN+48, ENRYN+67, ENRYN+78
    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+81

    Naked Globals

    Name Field # of Occurrence
    ^( CHELWARNWARN+1
    ^("UP" ENRYN+84, RT
    ^("VET" ENRYN+81
    ^(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+82*
    >> %ZIS("A" EN+4*
    >> %ZIS("B" EN+3*, EN+5!
    A ROMQRY+1~, ROMQRY+14~, ROMQRY+19*, ROMQRY+24*
    ANS ENRYN+64~, REG+1*
    >> APD REG+4*
    CURR ENRYN+80*, PR+2*, REG+22, Q1!
    DA A+4*, ENRYN+81*, 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+4, ENRYN+5, ENRYN+17, ENRYN+18, ENRYN+22, ENRYN+33, ENRYN+38, ENRYN+40, ENRYN+50, ENRYN+65
    ENRYN+74, ENRYN+75, ENRYN+81, ENRYN+82!, ENRYN+85, APPTREQ+9, APPTREQ+17, APPTREQ+24, PREEXIST~, PREEXIST+3
    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, ELWARNWARN+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+3, ROMQRY+15
    >> DFN1 REG+4*, REG+16, REG+20, REG+24, REG+28, REG+33, ASKDIV+3, ASKDIV+4, CONT+1, CONT+3
    DG Q!
    DGADDRE A+2~*, A1A1+2*
    DGAPLDT ENRYN+64~, ENRYN+66*, ENRYN+71
    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+24, ENRYN+43*, ENRYN+44, ENRYN+64~, ENRYN+66*, ENRYN+74, ENRYN+78
    , APPTREQ~, APPTREQ+6*, APPTREQ+8*
    DGCHK REG+11~, REG+12*, REG+13*, REG+14*, REG+15, REG+19
    >> DGCLPR EN*
    DGCLRP Q1!
    DGCURR ENRYN+1~, ENRYN+5*
    DGDEAD ENRYN+1~, ENRYN+2*, ENRYN+3*, ENRYN+24
    DGDEATH ENRYN+1~, ENRYN+3*
    DGDIV EN+1~, EN+2*, EN+3
    >> DGEDCN CK*
    DGELVER ENRYN+82*, Q1!
    DGENRDT A+23~, ENRYN+72*
    DGENRDTT ENRYN+64~, ENRYN+72*, ENRYN+74, APPTREQ~, APPTREQ+18*
    DGENRIEN A+23~, ENRYN+64~, ENRYN+65*, ENRYN+66
    >> DGENRODT ENRYN+63*, ENRYN+76*
    DGENRRSN A+23~, ENRYN+46*, ENRYN+48, ENRYN+54, ENRYN+60*, ENRYN+61*, ENRYN+62, ENRYN+76*
    DGENRYN A+23~, ENRYN*, ENRYN+4*, ENRYN+6*, ENRYN+24, ENRYN+31*, ENRYN+33, ENRYN+35*, ENRYN+36*, ENRYN+38
    ENRYN+40, ENRYN+45*, ENRYN+48, ENRYN+67, REG+13*, REG+14*
    >> DGENSRCE ENRYN+63*, ENRYN+76*
    DGENSTAT ENRYN+1~, ENRYN+21
    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+67*, ENRYN+71*
    DGFC ENRYN+80*, ENRYN+81*, RT*, Q1!
    DGFDA A+23~, ENRYN+32~, ENRYN+37~
    DGFDA(2 ENRYN+33*, ENRYN+38*
    DGFDD A+23~, A+27*, ENRYN+24, ENRYN+45
    DGICN PREEXIST+1~, PREEXIST+2*, PREEXIST+3*, PREEXIST+4, PREEXIST+5
    DGIEN A+23~, A+25*
    DGIENS ENRYN+32~, ENRYN+33*, ENRYN+37~, ENRYN+38*
    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*
    DGKEY ENRYN+1~, ENRYN+18*, ENRYN+21
    DGMSG ROMQRY+1~, ROMQRY+9, ROMQRY+19, ROMQRY+24
    DGMSG(1 ROMQRY+7*, ROMQRY+17*, ROMQRY+22*
    DGMSG(2 ROMQRY+8*, ROMQRY+18*, ROMQRY+23*
    DGNDLOCK REG+24~*
    DGNEW A+4*, A+12, ENRYN+81, A1A1+1, Q1!, ROMQRY+11
    DGNEWP A+3~, A+4
    DGNOENRLL ENRYN+1~, ENRYN+20*, ENRYN+22*, ENRYN+23
    DGNOW A+23~, ENRYN+46*, ENRYN+63, ENRYN+72, ENRYN+76
    DGOUT A+23~, A+26!
    DGOUT( A+27
    >> DGPME A+8*
    DGPREXST ENRYN+1~, ENRYN+4*
    DGPTAPPLD ENRYN+1~, ENRYN+4*, ENRYN+5*, ENRYN+6, ENRYN+23, ENRYN+25, ENRYN+30, ENRYN+35, ENRYN+41, ENRYN+42
    DGQRY BEGINREG+1~, BEGINREG+8*
    DGQRY("SENT" BEGINREG+9
    DGREC PREEXIST+1~, PREEXIST+7*, PREEXIST+8
    DGREQNAME ENRYN+1~, ENRYN+19*, ENRYN+21
    DGRESP ENRYN+1~, ENRYN+20*, ENRYN+21*, ENRYN+22, ENRYN+51
    DGRET REASON+12~*, REASON+14*
    DGRPFEE FEE*!
    DGRPOUT A+8!, ENRYN+82!, A1
    >> DGRPV A1*
    DGRSLT ENRYN+32~, ENRYN+33*, ENRYN+37~, ENRYN+38*
    DGSHWPRMPT ENRYN+1~, ENRYN+20*, ENRYN+23*, ENRYN+24
    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+17, ENRYN+24
    DGWSHTOEN ENRYN+1~, ENRYN+21
    DGX A+23~, A+27*, ENRYN+50*, ENRYN+75*, PREEXIST+1~, PREEXIST+7*, PREEXIST+11*, PREEXIST+12*, PREEXIST+13*, PREEXIST+14
    >> DGXXXD CONT+1*
    DGY A+23~, ENRYN+50*, ENRYN+51, ENRYN+75*
    >> 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+25!, ENRYN+56!, PAUSE+1~
    DIR("?" ENRYN+27*
    DIR("??" ENRYN+28*
    DIR("A" ENRYN+26*, ENRYN+58*
    DIR("B" ENRYN+25*
    DIR(0 ENRYN+26*, ENRYN+57*, 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+14, REG+18*, REG+22*, ASKDIV+3*
    CONT+1*, CONT+2*, CONT+3*, EL*, EL+1*
    DTIME ENRYN+42, REG+1
    DTOUT A+23~, ENRYN+25!, ENRYN+43, ENRYN+60, REG+25, REG+26!
    DUOUT A+23~, ENRYN+60
    DUZ REG+18, REG+22, ROMQRY+3
    I EN+6*, PREEXIST+1~, PREEXIST+7*
    ION EN+4
    >> IOP EN+6*, ENRYN+82*
    >> 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+1~, ENRYN+4*, ENRYN+51
    U EN+3, EN+4, EN+6, ENRYN+43, REASON+10, REASON+12, REASON+14, REASON+17, REASON+19, RT
    >> VAFCDDT REG+9*
    >> VET ENRYN+81*
    X ENRYN+30, ENRYN+35, ENRYN+41, ENRYN+42*, ENRYN+43, CH*, REG+1*, REG+6*, REG+9, CIRN+2~*
    >> X1 CH*
    XQY0 ENRYN+40, REASON~, REASON+12, REASON+17
    Y EN+6*, A+4~, A+8*, ENRYN+61, ENRYN+71!, ENRYN+72, REASON~, REASON+8, REASON+10, REASON+14
    , REASON+19, REG+1*, REG+4, REG+6
    >> Y1 REG+4*
    ZTDESC ROMQRY+1~, ROMQRY+4*
    ZTDTH ROMQRY+1~, ROMQRY+4*
    ZTIO ROMQRY+1~, ROMQRY+4*
    ZTRTN ROMQRY+1~, ROMQRY+4*
    ZTSAVE ROMQRY+1~
    ZTSAVE("DFN" ROMQRY+3*
    ZTSAVE("IBDUZ" ROMQRY+3*
    ZTSAVE("IBTYPE" ROMQRY+3*
    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