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: PSJCLOR

Package: Inpatient Medications

Routine: PSJCLOR


Information

PSJCLOR ;BIR/JCH - FIND ORDERS BY CLINIC, CLINIC GROUP, OR PATIENT ; 2/28/12 9:11am

Source Information

Source file <PSJCLOR.m>

Call Graph

Call Graph

Call Graph Total: 13

Package Total Call Graph
Inpatient Medications 8 ^PSGPER1  (ENCV,ENKV)^PSGSETU  ^PSIVXU  ^PSJAC  ^PSJCLOR1  LOCKERR^PSJOE  CONT^PSJOE0  ^PSJP  
VA FileMan 4 ^%DT  (C,NOW)^%DTC  ^DIC  ^DIR  
Kernel 1 ($$FMADD,$$FMTE)^XLFDT  

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: 1

Package Total Caller Graph
Inpatient Medications 1 PSJ ECO  

Entry Points

Name Comments DBIA/ICR reference
START ; Lookup patient by clinic or patient, depending on value of PSGSS
;
DONE ; Cleanup
DONE2 ; Partial Cleanup
GO ; Find and display matching patients
C ; Select a Clinic
CDIC ; Clinic lookup
DTRANGE() ; Enter Date Range
BEGDT ; begin date
ENDDT(BEG) ; end date
L ; Select a Clinic Group
LDIC ; Clinic Group lookup
P ; Select patient
ARRAY ; put patient(s) with non-verified orders into array
CG ; Find all clinics in selected clinic group
CL ; Find all patients in selected clinic
CL1 ; Check each clinic for valid clinic orders
IF ; If called from CL subroutine and the order Doesn't exist for that Clinic, then QUIT.
IFT2 ; Loop through active IV orders in ^PS(55
SET ; Set patient specific variables for ^TMP subscripts
SETPN ; If searching for specific priority:
; - set patient into ^TMP("PSGBW" sorted by Clnic, Patient Name^IEN^SSN
; If not searching for specific priority:
; - set patient into ^TMP("PSGVBW2" sorted by 'Patient Name^IEN^SSN',
; - set patient into ^TMP("PSGVBW3" sorted by Patient IEN
SET2 ; If not searching for a specific priority,find the highest priority order associated with patient.
; Set the patient into ^TMP("PSGVBW" sorted by highest Priority Name, Priority #, Team, Patient Name^IEN^SSN
EXIT(X) ; Generic user error message
SELECT ; give user choice to select search method
CHK ;
CHK2 ;
HELP ; the following are the help text messages for the various options
GENERIC
VBW
ENCD ;edit Clinic Definitions file

External References

Name Field # of Occurrence
^%DT BEGDT+4
C^%DTC ARRAY+2
NOW^%DTC START+5, P+9, ARRAY+1
^DIC CDIC+2, LDIC+1, SET+9, ENCD+2, ENCD+4
^DIR C+2, ENDDT+2, L+2
^PSGPER1 DONE+14
ENCV^PSGSETU START+3
ENKV^PSGSETU DONE+14
^PSIVXU START+4
^PSJAC P+8, P+15, CL1+2, CL1+5, CL1+8, IF+6
^PSJCLOR1 GO+3
LOCKERR^PSJOE START+6
CONT^PSJOE0 CL+5
^PSJP P+2
$$FMADD^XLFDT P+1, P+13, CL+1, IF+11
$$FMTE^XLFDT BEGDT+5, ENDDT+2, ENDDT+5

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,"...a few moments, please..."
  • Line Location: GO+1
Function Call: WRITE
  • Prompt: !,$C(7),"NO ",PSGVBWW," ORDERS FOR SELECTED ",$S(PSGSS="P":"PATIENT",PSGSS="L":"CLINIC GROUP",PSGSS="C":"CLINIC",PSGSS="PR":"PRIORITY",1:"WARD"),$S(PSGSS="G":" GROUP",1:"")
  • Line Location: GO+2
Function Call: WRITE
  • Prompt: !
  • Line Location: C+2
Function Call: WRITE
  • Prompt: !!,"Enter the name of the clinic to use to select patients for processing."
  • Line Location: CDIC+7
Function Call: WRITE
  • Prompt: !!?5,"Search for Active and Non-Verified CLINIC Medication Orders"
  • Line Location: BEGDT+1
Function Call: WRITE
  • Prompt: !?5,"that fall within the date range selected below: "
  • Line Location: BEGDT+2
Function Call: WRITE
  • Prompt: !
  • Line Location: BEGDT+3
Function Call: WRITE
  • Prompt: " ",FMTX
  • Line Location: BEGDT+5
Function Call: WRITE
  • Prompt: !
  • Line Location: ENDDT+2
Function Call: WRITE
  • Prompt: " ",FMTX
  • Line Location: ENDDT+5
Function Call: WRITE
  • Prompt: !
  • Line Location: L+2
Function Call: WRITE
  • Prompt: !!,"Enter the name of the clinic group to use to select patients for processing."
  • Line Location: LDIC+4
Function Call: WRITE
  • Prompt: !!,$C(7),"NO ",PSGVBWW," ORDERS FOR ",CLINAME,!
  • Line Location: CL+5
Function Call: WRITE
  • Prompt: !!,X," not selected, option terminated."
  • Line Location: EXIT+1
Function Call: READ
  • Variable: PSGSS
  • Timeout: DTIME
  • Line Location: SELECT+5
Function Call: WRITE
  • Prompt: !!,"Search by CLINIC (C), CLINIC GROUP (G), or PATIENT (P) : "
  • Line Location: SELECT+5
Function Call: WRITE
  • Prompt: PSGSS="^"
  • Condition for execution: '$T $C(7) S:'$T!(PSGSS="")
  • Line Location: SELECT+5
Function Call: WRITE
  • Prompt: $P(X,PSGSSA,2,99)
  • Line Location: CHK+3
Function Call: WRITE
  • Prompt: $C(7)," ??"
  • Line Location: CHK+4
Function Call: WRITE
  • Prompt: !
  • Line Location: CHK+5
Function Call: WRITE
  • Prompt: !!?2,"To leave this option, press the RETURN key or enter '^'."
  • Line Location: CHK+5
Function Call: WRITE
  • Prompt: $P(X,PSGSSA,2,99)
  • Line Location: CHK2+3
Function Call: WRITE
  • Prompt: $C(7)," ??"
  • Line Location: CHK2+4
Function Call: WRITE
  • Prompt: !
  • Line Location: CHK2+5
Function Call: WRITE
  • Prompt: !!?2,"To leave this option, press the RETURN key or enter '^'."
  • Line Location: CHK2+5
Function Call: WRITE
  • Prompt: !!,?2,"To run this option for an entire CLINIC, enter 'C'. To run this option for a single PATIENT, enter 'P'."
  • Line Location: GENERIC+0
Function Call: WRITE
  • Prompt: !!?2,"To process orders in a single CLINIC, enter 'C'."
  • Line Location: VBW+0
Function Call: WRITE
  • Prompt: !,"To process orders for a single PATIENT, enter 'P'."
  • Line Location: VBW+1
Function Call: WRITE
  • Prompt: !,"Enter a clinic from the CLINIC DEFINITION file."
  • Line Location: ENCD+1
Function Call: WRITE
  • Prompt: !,"You may also select a clinic from the HOSPITAL LOCATION file."
  • Line Location: ENCD+3
Routine Call
  • DIC
  • Line Location:
    • CDIC+2
    • LDIC+1
    • SET+9
    • ENCD+2
    • ENCD+4
Routine Call
  • DIR
  • Line Location:
    • C+2
    • ENDDT+2
    • L+2

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^SC - [#44] Classic Fileman Calls
^PS(53.46 - [#53.46] Classic Fileman Calls
^PS(57.8 - [#57.8] Classic Fileman Calls

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^PS(51.1 - [#51.1] IF+13
^PS(53.1 - [#53.1] P+5, P+6, P+7, CL1+2, IF+2, IF+3, IF+5, SET+2, SET+3, SET+5
SET+7
^PS(53.45 - [#53.45] START+6, DONE+14
^PS(55 - [#55] P+10, P+11, P+13, P+14, CL1+3, CL1+4, CL1+5, CL1+6, CL1+7, CL1+8
IF+8, IF+11, IF+12, IF+14, IFT2+1, IFT2+2, SET+2, SET+3, SET+5, SET+7
^PS(57.7 - [#57.7] SET+11
^PS(57.8 - [#57.8] LDIC+2, CG+1
^SC - [#44] CL+3, CL1+1
^TMP("PSGVBW" DONE2+1!, GO+1!, GO+2, ARRAY+2*, CL+5, SETPN+6*, SET2+5*
^TMP("PSGVBW2" DONE2+1!, GO+1!, SETPN+7*, SET2+2, SET2+3, SET2+4, SET2+6!
^TMP("PSGVBW3" DONE2+1!, SETPN+7*
^TMP("PSJ" START+6!
^TMP("PSJLIST" DONE2+1!
^TMP("PSJON" DONE2+1!
^TMP("PSJSELECT" START+10!, DONE2+1!, P+2!, P+4, P+15*, P+17

Label References

Name Line Occurrences
$$DTRANGE START+10
@( START+10, CHK+5, CHK2+5
ARRAY GO+1
BEGDT DTRANGE+2
C CDIC+7
CDIC C+2
CG ARRAY+4
CHK SELECT+5
CL ARRAY+3, CG+1
CL1 CL+3, CL+6
DONE START+6
DONE2 DONE+1, GO+3
ENDDT DTRANGE+3
GO START+10
IF ARRAY+2, CL1+2
IFT2 P+14, IF+15
L LDIC+4
SELECT START+10
SET P+15, CL1+5, CL1+8, IF+6, IF+9, IF+15

Naked Globals

Name Field # of Occurrence
^( LDIC+2
^(0 CL1+1

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
% START+5, DONE+6!, P+9, ARRAY+1
%DT BEGDT+3!*
%DT("A" BEGDT+3*
%DT("B" BEGDT+3*
%DT(0 BEGDT+4*
%Y DONE+6!
BEG ENDDT~, ENDDT+2, ENDDT+3
BEGDTR P+1~*, CL+1~*, CL1+5, CL1+8, IF+4, SET+4
CG PSJCLOR+7~, LDIC+1*, LDIC+2, CG+1
CHK DONE+3!, GO+1!
CL PSJCLOR+7~, C+1!, CDIC+2*, CDIC+8, P+10*, P+12, CG+1*, CL+3*, CL1+1, CL1+2
CL1+3, CL1+6, IFT2+1~*, IFT2+4
CLIN IF+2~*, IF+3
CLINAME CL+3~*, CL+5
D0 DONE+3!
DFN DONE2+2!
DIC C+1!, CDIC+2*!, LDIC+1!*, SET+1!, SET+9*, ENCD+2!*, ENCD+4!*
DIC(0 CDIC+2*, LDIC+1*, SET+9*, ENCD+2*, ENCD+4*
DIR C+2!, ENDDT+2!, L+1!
DIR("?" C+2*, L+2*
DIR("A" C+2*, ENDDT+2*, L+1*
DIR("B" ENDDT+2*
DIR(0 C+2*, ENDDT+2*, L+1*
DRGI DONE+3!
DTIME SELECT+5
DTOUT DONE+6!, CDIC+4, BEGDT+4
DUOUT DONE+6!, C+2, CDIC+1, CDIC+6, LDIC+3
>> DUTOUT CDIC+4
ENDTR P+1~*, P+11, CL+1~*, CL1+5, CL1+8, IF+4, SET+4
FMTX BEGDT+5~*, ENDDT+1~, ENDDT+5*
FQC DONE+3!
I CL+4~*
IFPRI DONE+3!
IOP DONE+6!
J DONE+3!, CL+4~*, CL+5
LIDT DONE+3!
ND DONE+3!, DONE+14!, P+7~*, P+11~*, P+12, IF+3*
ND0 DONE+6!, IFT2+2*, IFT2+3
ND14 DONE+13!
ND4 DONE+13!
ND6 DONE+13!
NDP2 DONE+13!
NF DONE+13!
OCXSEG DONE+13!
OD DONE+13!
ON DONE+3!, GO+1!, P+5~*, P+6, P+7, P+12*, P+14*, CL1+5*, CL1+8*, IF+6~*
IF+9*, IF+15*, IFT2+1, IFT2+2, SET+2, SET+3, SET+5, SET+7
ON2 P+1~, P+10*, P+11, P+12, CL+1~, CL1+3*, CL1+4, CL1+5, CL1+6*, CL1+7
CL1+8, IF+1~, IF+2*, IF+3, IF+5, IF+6, IF+8*, IF+9, IF+11*, IF+12
IF+14, IF+15
ORDT DONE+5!
ORO DONE+13!
P DONE+13!
PDRG DONE+13!
PN DONE+3!, GO+1!, P+15*, SETPN+5*, SETPN+6, SETPN+7
POP DONE+6!
PPAGE PSJCLOR+7~, START+10*
PPN DONE+5!
PRD DONE+5!, DONE2+2!
PRDNS DONE+5!
PRDON DONE+5!
PRI DONE+3!
PSBCNT DONE+13!
PSBFLAG DONE+13!
PSBSTR DONE+13!
PSGAL DONE+13!
PSGCANFL DONE+13!
PSGCLF DONE+3!, CL1+2*, CL1+9!
PSGDFN DONE+13!
PSGDICA DONE+6!
PSGDT START+5*, DONE+6!, P+1, P+9*, P+10, ARRAY+1*, ARRAY+2, CL1+3, CL1+6
PSGDW DONE+13!
PSGEB DONE+13!
PSGEBN DONE+13!
PSGF2 DONE+13!
PSGFDX DONE+13!
PSGH DONE+6!
PSGINCL DONE+5!
PSGINWD DONE+5!
PSGLI DONE+13!
PSGLRN DONE+13!
PSGNEFDO DONE+12!
PSGOAT DONE+12!
PSGOC DONE+12!
PSGODDD DONE+4!
PSGODO DONE+12!
PSGODT DONE+3!, ARRAY+2*, IF+7*, IF+8
PSGOEA DONE+3!
PSGOEAV START+2~, START+9*, DONE+4!
PSGOEE DONE+12!
PSGOEENO DONE+12!
PSGOEEWF DONE+12!
PSGOENOF DONE+4!
PSGOEORF DONE+4!
PSGOEPR DONE+12!
PSGOFDN DONE+12!
PSGOHSM DONE+12!
PSGOINST DONE+12!
PSGOL DONE+12!
PSGOMR DONE+12!
PSGOMRN DONE+12!
PSGONV DONE+4!
PSGOORD DONE+12!
PSGOP DONE+3!
PSGOPD DONE+12!
PSGOPDN DONE+12!
PSGOPRN DONE+12!
PSGORD DONE+12!
PSGOSCH DONE+11!
PSGOSDN DONE+11!
PSGOSI DONE+11!
PSGOSM DONE+11!
PSGOST DONE+11!
PSGOSTN DONE+11!
PSGP START+10*, DONE2+2!, P+2, P+4, P+5, P+10, P+11, P+13, P+14, P+15
ARRAY+2, CL1+2*, CL1+3*, CL1+4, CL1+5, CL1+6*, CL1+7, CL1+8, IF+2, IF+8
IF+11, IF+12, IF+14, IFT2+1, IFT2+2, SET+2, SET+3, SET+5, SET+7, SETPN+5
SETPN+7
PSGP(0 P+15, ARRAY+2, SETPN+5
PSGPD DONE+11!
PSGPDN DONE+11!
PSGPEN DONE+11!
PSGPENWS DONE+11!
PSGPR DONE+11!, DONE+12!
PSGPRD DONE+5!
PSGPRIF START+10!, DONE+3!
PSGPRIN DONE+5!
PSGPRN DONE+11!
PSGPTMP PSJCLOR+7~, START+10*
PSGPX DONE+4!
PSGPXN START+6*, START+7*, DONE+14!
PSGS0XT DONE+11!
PSGSCH DONE+11!
PSGSDN DONE+11!
PSGSM DONE+11!
PSGSS START+2~*, START+10, DONE+3!, GO+1, GO+2, ARRAY+2, ARRAY+3, ARRAY+4, CL+2, CL+6
IF+3, SET+10, SELECT+5*, CHK+2, CHK+3*, CHK+4*
PSGSS2 DONE+6!, CHK2+2, CHK2+3*, CHK2+4*
PSGSSA SELECT+7!, CHK+2*, CHK+3, CHK2+2*, CHK2+3
PSGSSH START+7*, DONE+3!, SELECT+2*, CHK+5, CHK2+5
PSGST DONE+11!
PSGSTAT DONE+11!
PSGTOL DONE+4!
PSGUOW DONE+4!
PSGVADR DONE+11!
PSGVALG DONE+11!
PSGVBPN DONE+5!
PSGVBTM DONE+5!
PSGVBWN DONE+5!
PSGVBWTO DONE+4!
PSGVBWW START+8*, DONE+4!, GO+2, P+16, ARRAY+2*, CL+5
PSGVBY DONE+5!
PSGWORP1 DONE+5!
PSGWORP2 DONE+5!
PSIVAC DONE+11!
PSIVACT DONE+10!
PSIVC DONE+10!
PSIVITE DONE+10!
PSIVLIM DONE+10!
PSIVLN DONE+10!
PSIVNOW DONE+10!
PSIVPL DONE+10!
PSIVPR DONE+10!
PSIVREA DONE+10!
PSIVRP DONE+10!
PSIVRT DONE+10!
PSIVSN DONE+5!
PSIVSTRT DONE+10!
PSIVTYPE DONE+10!
PSIVUP DONE+10!
PSJ DONE+10!
PSJACNWP DONE+10!
PSJASK DONE+4!
PSJBCID DONE+10!
PSJBEG START+2~, DONE+2!, DTRANGE+1!, DTRANGE+2, DTRANGE+3, BEGDT+4*, BEGDT+5*, P+1*, P+3*, P+6
P+13, P+18*, CL+1, IF+4, IF+7, IF+11, IFT2+2, SET+4
PSJBLN DONE+10!
PSJBLOOP DONE+10!
PSJCDONE C+1!, C+2*, CDIC+1, CDIC+3*, CDIC+4*
PSJCLIN DONE+10!
PSJCLNAR C+1!, L+1!, P+1~*, SELECT+4~
PSJCLNAR( CDIC+2*, LDIC+2*, CL+3, CL+4, IF+3, SET+10
PSJCLNAR(0 CDIC+1
PSJCLOR START+2~*
PSJCNT DONE+5!, P+2*, P+15*
PSJCOUNT DONE+9!
PSJCT DONE+3!
PSJDAY DONE+9!
PSJDB DONE+9!
PSJEND START+2~, DONE+2!, DTRANGE+1!, DTRANGE+3, ENDDT+3*, ENDDT+4, ENDDT+5*, P+1*, P+3*, P+6
P+18*, CL+1, IF+4, IFT2+2, SET+4
PSJEXTP DONE+6!
PSJH DONE+6!
PSJHDATE DONE+6!
PSJHLMTN DONE+9!
PSJINDEX DONE+5!
PSJIVORF DONE+9!
PSJL DONE2+2!
PSJLACT DONE+9!
PSJLM DONE+4!
PSJLMX DONE+9!
PSJLOOP DONE+9!
PSJMSG DONE+9!
PSJNEW PSJCLOR+7~*
PSJNOO DONE+9!
PSJNV DONE+6!, P+4*, P+5, P+7*, P+8, P+10, P+12*, P+15, IFT2+4*
PSJO DONE+9!
PSJOCL DONE+9!
PSJOL DONE+9!
PSJONTMP DONE+9!
PSJOPC DONE+4!
PSJORD DONE+9!
PSJORF DONE+9!
PSJORIFN DONE+9!
PSJORL DONE+4!
PSJORPCL DONE+4!
PSJORTOU DONE+4!
PSJORVP DONE+4!
PSJPAC START+2~*, DONE+5!, IF+8, IF+11
PSJPAD DONE+6!
PSJPAGE DONE+7!
PSJPBID DONE+6!, DONE+7!, P+15, SETPN+5
PSJPCAF DONE+7!
PSJPDD DONE+7!
PSJPDOB DONE+7!
PSJPDX DONE+7!
PSJPINIT DONE+9!
PSJPNV DONE+3!
PSJPPID DONE+7!
PSJPRB DONE+7!, SET+11
PSJPROT START+7*, DONE+4!
PSJPSEX DONE+7!
PSJPSSN DONE+7!
PSJPSTO DONE+9!
PSJPTD DONE+7!
PSJPTS DONE+7!
PSJPTSP DONE+7!
PSJPWD DONE+7!
PSJPWDN DONE+7!
PSJSTAT P+1~, P+14*, IF+1~, IF+5*, IF+8*, IF+9, IF+14*, IF+15, SET+2~, SET+5*
SET+6
>> PSJSYSP START+6, DONE+14
>> PSJSYSP0 START+9
>> PSJSYSU START+7, START+9
PSJTEAM DONE+9!
PSJTMPBG START+2~, BEGDT+4*, P+3!, P+18!
PSJTMPED START+2~, ENDDT+3*, P+3!, P+18!
PSJTOO START+2~*, DONE+4!
PSJVALQ START+10*, DONE+8!, SELECT+1*
PSJX DONE+8!
PSOC DONE+8!
PTPRI DONE+2!, SET2+3*, SET2+4
PX DONE+4!
Q CHK+1~, CHK+2*, CHK2+1~, CHK2+2*
QX DONE+8!
RB DONE+3!, GO+1!
RNDT DONE+8!
RSLT DONE+8!
RTE DONE+8!
SCH DONE+8!, IF+12~*, IF+13*
SD DONE+3!, GO+1!, P+13*, P+14, IF+8*, IF+11*
SDW DONE+8!
SEQ DONE+8!
SETPN DONE+2!, SET2+2*, SET2+3, SET2+4, SET2+5
SETTM DONE+2!, SET2+4*, SET2+5
SETWDN DONE+2!, SET2+4*, SET2+5
SM DONE+8!
SORT DONE+8!
ST DONE+3!, IF+8*
STAST DONE+8!
STATUS DONE+2!
STOP DONE+8!
STOPD P+1~, P+10*, CL+1~, CL1+3*, CL1+6*
STYPE IF+12~*, IF+13*, IF+15
SUBS DONE+2!, SET2+4*
SWD DONE+8!
TM DONE+3!, GO+1!, SET+11*, SETPN+6, SETPN+7
TMPAT DONE+8!
TMPCL LDIC+2~*
TMPCNT DONE+8!, LDIC+2~*
TMPDT DONE+8!
TMPNEWSD DONE+8!
TMPSEL DONE+8!
TMPSTOP CL+1~, CL1+4*, CL1+5, CL1+7*, CL1+8
TMPSTP P+6~*, IF+3*, IF+4, IFT2+1~, IFT2+2*, SET+2~, SET+3*, SET+4
TMPSTRT P+1~, P+6~*, P+11*, CL+1~, CL1+4*, CL1+5, CL1+7*, CL1+8, CL1+9!, IF+3*
IF+4, IF+16!, IFT2+1~, IFT2+2*, SET+2~*, SET+4
TMPWD DONE+2!, SET+1!, SET+9*, SET+10, SET+11, SETPN+6, SETPN+7
TYPE DONE+8!
U P+15, IF+3, IF+12, IF+13, SET+2, SET+3, SETPN+5
WD START+10*, DONE+3!, GO+1!
WDN DONE+3!, GO+1!, CL1+1*, SET+9*, SETPN+6, SETPN+7
WDNAME DONE+3!, SET+1!, SET+9*
WG START+10*, DONE+3!, GO+1!
WRD DONE+8!
WS DONE+8!
X GO+1!, CDIC+5, CDIC+6*, CDIC+7, LDIC+3*, LDIC+4, ARRAY+2, SET+1!, SET+7*, SET+8*
SET+9*, EXIT~, EXIT+1, CHK+3*, CHK2+3*, ENCD+1
X1 DONE+2!, ARRAY+2*
X2 DONE+2!, ARRAY+2*
XQORNOD DONE+8!
XQUIT START+3!, START+4!
XRT0 DONE+8!
XRTL DONE+8!
XRTN DONE+8!
XX P+5~, IF+2~*, IF+3*
Y START+10, GO+1!, C+2, CDIC+1*, CDIC+2, CDIC+3, CDIC+6, DTRANGE+2*, DTRANGE+3*, DTRANGE+4
BEGDT+4, ENDDT+3, LDIC+1, LDIC+3, P+17*, SET+1!, SET+9
YRONLY BEGDT+5~*, ENDDT+1~, ENDDT+4*, ENDDT+5
ZTSAVE DONE+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