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

Package: Integrated Billing

Routine: IBJDI41


Information

IBJDI41 ;ALB/CPM - PATIENTS WITH UNIDENTIFIED INSURANCE (CONT'D) ;17-DEC-96

Source Information

Source file <IBJDI41.m>

Call Graph

Call Graph

Call Graph Total: 10

Package Total Call Graph
Integrated Billing 7 ^IBCNS  E^IBJDE  $$TESTP^IBJDI1  ($$DIV,OUTPT)^IBJDI21  ($$TITLE,$$TYPE)^IBJDI4  ($$DAT1,$$DAT2,$$STOP)^IBOUTL  CLOSE^IBSDU  
VA FileMan 2 NOW^%DTC  ^DIR  
Registration 1 ELIG^VADPT  

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
Integrated Billing 1 IBJDI4  

Entry Points

Name Comments DBIA/ICR reference
EN ; - Entry point from IBJDI4.
PRT ; - Print the reports.
ENQ
EOR ; IB*771/DTG end of report
ENC(IBOED) ; - Encounter extract for all patients loop.
; Input: IBOED = Outpatient encounter in file #409.68
; Pre-set variables IB array, IBSORT also required.
PROC(DFN,IBINDT,IBIPC) ; - Process each specific patient.
; Input: DFN = Pointer to the patient in file #2
; IBINDT = Encounter or discharge date
; IBIPC = Inpatient treatment marker
; ("*"=Had inpat. treatment, null=No inpat. treatment)
PRCQ
DIV(X) ; - Return division name.
DET ; - Print the detailed report.
DETQ
EXCOUT ; OUTPUT EXCEL FORMAT
HDET ; - Write the detail report header.
EXCHDR ; Write the excel header.
SUM ; - Print the summary report.
EXCSUM ; - Print the summary report in excel format.
DASH(X) ; - Return a dashed line.
ELIG(X) ; - Return eligibility code name.
INSC(X) ; - Return insurance company.
PAUSE ; - Page break.
SSN(X) ; - Format the SSN.

External References

Name Field # of Occurrence
NOW^%DTC PRT+8
^DIR PAUSE+6
^IBCNS PROC+18
E^IBJDE PRT+6
$$TESTP^IBJDI1 PROC+8
$$DIV^IBJDI21 EN+13, ENC+4
OUTPT^IBJDI21 EN+24
$$TITLE^IBJDI4 DET+2, DET+4, HDET+3, EXCHDR+1
$$TYPE^IBJDI4 PROC+24
$$DAT1^IBOUTL EN+46, HDET+4, EXCHDR+3, SUM+5, EXCSUM+5
$$DAT2^IBOUTL PRT+8
$$STOP^IBOUTL EN+11, EN+37, HDET+8
CLOSE^IBSDU EN+22, EN+25
ELIG^VADPT EN+40, PROC+9

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,"Identify Patients "
  • Line Location: EN+6
Function Call: WRITE
  • Prompt: "."
  • Line Location: EN+9
Function Call: WRITE
  • Prompt: !,"Gathering schedule info"
  • Line Location: EN+23
Function Call: WRITE
  • Prompt: !,"Compiling Detail "
  • Line Location: EN+33
Function Call: WRITE
  • Prompt: "."
  • Line Location: EN+35
Function Call: WRITE
  • Prompt: !
  • Line Location: PRT+9
Function Call: WRITE
  • Prompt: !
  • Line Location: EOR+1
Function Call: WRITE
  • Prompt: ?30
  • Condition for execution: $G(IBOUT)="R"
  • Line Location: EOR+1
Function Call: WRITE
  • Prompt: "*** END OF REPORT ***",!
  • Line Location: EOR+1
Function Call: WRITE
  • Prompt: !!,"There were no ",$$TITLE^IBJDI4(0)," during this period."
  • Line Location: DET+1
Function Call: WRITE
  • Prompt: !!,"There were no ",$$TITLE^IBJDI4(0)," during this period."
  • Line Location: DET+2
Function Call: WRITE
  • Prompt: !!,"There were no ",$$TITLE^IBJDI4(IBX)," during this period."
  • Line Location: DET+4
Function Call: WRITE
  • Prompt: ?80,$$ELIG(+IBELIG)
  • Line Location: DET+13
Function Call: WRITE
  • Prompt: ?102,$$INSC(+IBINSC),?124,$P(IBX2,U,6),!
  • Line Location: DET+14
Function Call: WRITE
  • Prompt: ?2,"Remarks: ",$P(IBX2,U,7)
  • Line Location: DET+15
Function Call: WRITE
  • Prompt: !
  • Line Location: DET+16
Function Call: WRITE
  • Prompt: !,$P(IBX1,"@@")_U_$$SSN($P(IBX2,U))_U_$E($P(IBX2,U,2),1,15)_U_$P(IBX2,U,3)_U
  • Line Location: EXCOUT+1
Function Call: WRITE
  • Prompt: $$ELIG(+IBELIG)_U
  • Line Location: EXCOUT+2
Function Call: WRITE
  • Prompt: $$INSC(+IBINSC)_U_$P(IBX2,U,6)_U
  • Line Location: EXCOUT+3
Function Call: WRITE
  • Prompt: $P(IBX2,U,7)_U
  • Line Location: EXCOUT+4
Function Call: WRITE
  • Prompt: @IOF,*13
  • Line Location: HDET+2
Function Call: WRITE
  • Prompt: !,"Patients treated in the period "_$$DAT1^IBOUTL(IBBDT)_" to "_$$DAT1^IBOUTL(IBEDT)," NOTE: *=Had inpatient care, +=Billable insurance"
  • Line Location: HDET+4
Function Call: WRITE
  • Prompt: !!?45,"Home",?62,"Work",?124,"Date of"
  • Line Location: HDET+5
Function Call: WRITE
  • Prompt: !,"Patient",?27,"SSN",?41,"Phone Number",?58,"Phone Number",?80,"Eligibility",?102,"Insurance",?125,"Death"
  • Line Location: HDET+6
Function Call: WRITE
  • Prompt: !,$$DASH(132),!!
  • Line Location: HDET+7
Function Call: WRITE
  • Prompt: !,"Run Date: ",IBRUN
  • Line Location: EXCHDR+2
Function Call: WRITE
  • Prompt: !,"Patients treated in the period "_$$DAT1^IBOUTL(IBBDT)_" to "_$$DAT1^IBOUTL(IBEDT)," NOTE: *=Had inpatient care, +=Billable insurance"
  • Line Location: EXCHDR+3
Function Call: WRITE
  • Prompt: !,"Patient"_U_"SSN"_U_"Home Phone Number"_U_"Work Phone Number"_U_"Eligibility"_U_"Insurance"_U_"Date of Death"
  • Line Location: EXCHDR+4
Function Call: WRITE
  • Prompt: @IOF,*13
  • Line Location: SUM+1
Function Call: WRITE
  • Prompt: !!?26,"PATIENT INSURANCE STATISTICS",!
  • Line Location: SUM+2
Function Call: WRITE
  • Prompt: ?(61-$L(IBDIV))\2,"SUMMARY REPORT for ",IBDIV
  • Line Location: SUM+3
Function Call: WRITE
  • Prompt: ?33,"SUMMARY REPORT"
  • Line Location: SUM+4
Function Call: WRITE
  • Prompt: !!?19,"Patients treated from ",$$DAT1^IBOUTL(IBBDT)," - ",$$DAT1^IBOUTL(IBEDT)
  • Line Location: SUM+5
Function Call: WRITE
  • Prompt: !!?24,"Run Date: ",IBRUN,!?20,$$DASH(40),!!
  • Line Location: SUM+6
Function Call: WRITE
  • Prompt: ?22,"Number of Patients Treated:",?50,$J(IB(IBDIV,"TOT"),5)
  • Line Location: SUM+24
Function Call: WRITE
  • Prompt: !?9,"Number of Patients Covered by Insurance:",?50,$J(IB(IBDIV,"YES"),5)," (",IBPER(1),"%)"
  • Line Location: SUM+25
Function Call: WRITE
  • Prompt: !?3,"No. of Patients Covered by Billable Insurance:",?50,$J(IB(IBDIV,"BILL"),5)," (",IBPER(2),"%-",IBPER(3),"%)*"
  • Line Location: SUM+26
Function Call: WRITE
  • Prompt: !?12,"Number of Patients Covered by an HMO:",?50,$J(IB(IBDIV,"HMO"),5)," (",IBPER(4),"%-",IBPER(5),"%-",IBPER(6),"%)**"
  • Line Location: SUM+27
Function Call: WRITE
  • Prompt: !?10,"Number of Patients Covered by Medicare:",?50,$J(IB(IBDIV,"MEDC"),5)," (",IBPER(7),"%-",IBPER(8),"%)*"
  • Line Location: SUM+28
Function Call: WRITE
  • Prompt: !?11,"Number of Patients Covered by Medigap:",?50,$J(IB(IBDIV,"MEDG"),5)," (",IBPER(9),"%-",IBPER(10),"%-",IBPER(11),"%)**"
  • Line Location: SUM+29
Function Call: WRITE
  • Prompt: !?2,"No. of Patients Covered by an Indemnity Policy:",?50,$J(IB(IBDIV,"IND"),5)," (",IBPER(12),"%)"
  • Line Location: SUM+30
Function Call: WRITE
  • Prompt: !?5,"Number of Patients Not Covered by Insurance:",?50,$J(IB(IBDIV,"NO"),5)," (",IBPER(13),"%)"
  • Line Location: SUM+31
Function Call: WRITE
  • Prompt: !?7,"Number of Patients with Unknown Insurance:",?50,$J(IB(IBDIV,"UNK"),5)," (",IBPER(14),"%)"
  • Line Location: SUM+32
Function Call: WRITE
  • Prompt: !," No. of Patients w/Insurance Question Unanswered:",?50,$J(IB(IBDIV,"NULL"),5)," (",IBPER(15),"%)"
  • Line Location: SUM+33
Function Call: WRITE
  • Prompt: !?21,"Number of Deceased Patients:",?50,$J(IB(IBDIV,"DEC"),5)," (",IBPER(16),"%)"
  • Line Location: SUM+34
Function Call: WRITE
  • Prompt: !!," *(% from patients treated-% from patients with insurance)"
  • Line Location: SUM+35
Function Call: WRITE
  • Prompt: !,"**(% from patients treated-% from patients w/ins-% from patients w/billable ins)"
  • Line Location: SUM+36
Function Call: WRITE
  • Prompt: @IOF,*13
  • Line Location: EXCSUM+1
Function Call: WRITE
  • Prompt: !!,"PATIENT INSURANCE STATISTICS",!
  • Line Location: EXCSUM+2
Function Call: WRITE
  • Prompt: ?(61-$L(IBDIV))\2,"SUMMARY REPORT for ",IBDIV
  • Line Location: EXCSUM+3
Function Call: WRITE
  • Prompt: ?33,"SUMMARY REPORT"
  • Line Location: EXCSUM+4
Function Call: WRITE
  • Prompt: !,"Patients treated from ",$$DAT1^IBOUTL(IBBDT)," - ",$$DAT1^IBOUTL(IBEDT)
  • Line Location: EXCSUM+5
Function Call: WRITE
  • Prompt: !,"Run Date: ",IBRUN,!
  • Line Location: EXCSUM+6
Function Call: WRITE
  • Prompt: "Number of Patients Treated:"_U_$J(IB(IBDIV,"TOT"),5)
  • Line Location: EXCSUM+24
Function Call: WRITE
  • Prompt: !,"Number of Patients Covered by Insurance:"_U_$J(IB(IBDIV,"YES"),5)," (",IBPER(1),"%)"
  • Line Location: EXCSUM+25
Function Call: WRITE
  • Prompt: !,"No. of Patients Covered by Billable Insurance:"_U_$J(IB(IBDIV,"BILL"),5)," (",IBPER(2),"%-",IBPER(3),"%)*"
  • Line Location: EXCSUM+26
Function Call: WRITE
  • Prompt: !,"Number of Patients Covered by an HMO:"_U_$J(IB(IBDIV,"HMO"),5)," (",IBPER(4),"%-",IBPER(5),"%-",IBPER(6),"%)**"
  • Line Location: EXCSUM+27
Function Call: WRITE
  • Prompt: !,"Number of Patients Covered by Medicare:"_U_$J(IB(IBDIV,"MEDC"),5)," (",IBPER(7),"%-",IBPER(8),"%)*"
  • Line Location: EXCSUM+28
Function Call: WRITE
  • Prompt: !,"Number of Patients Covered by Medigap:"_U_$J(IB(IBDIV,"MEDG"),5)," (",IBPER(9),"%-",IBPER(10),"%-",IBPER(11),"%)**"
  • Line Location: EXCSUM+29
Function Call: WRITE
  • Prompt: !,"No. of Patients Covered by an Indemnity Policy:"_U_$J(IB(IBDIV,"IND"),5)," (",IBPER(12),"%)"
  • Line Location: EXCSUM+30
Function Call: WRITE
  • Prompt: !,"Number of Patients Not Covered by Insurance:"_U_$J(IB(IBDIV,"NO"),5)," (",IBPER(13),"%)"
  • Line Location: EXCSUM+31
Function Call: WRITE
  • Prompt: !,"Number of Patients with Unknown Insurance:"_U_$J(IB(IBDIV,"UNK"),5)," (",IBPER(14),"%)"
  • Line Location: EXCSUM+32
Function Call: WRITE
  • Prompt: !,"No. of Patients w/Insurance Question Unanswered:"_U_$J(IB(IBDIV,"NULL"),5)," (",IBPER(15),"%)"
  • Line Location: EXCSUM+33
Function Call: WRITE
  • Prompt: !,"Number of Deceased Patients:"_U_$J(IB(IBDIV,"DEC"),5)," (",IBPER(16),"%)"
  • Line Location: EXCSUM+34
Function Call: WRITE
  • Prompt: !!," *(% from patients treated-% from patients with insurance)"
  • Line Location: EXCSUM+35
Function Call: WRITE
  • Prompt: !,"**(% from patients treated-% from patients w/ins-% from patients w/billable ins)"
  • Line Location: EXCSUM+36
Function Call: WRITE
  • Prompt: !
  • Line Location: PAUSE+4
Function Call: WRITE
  • Prompt: !
  • Line Location: PAUSE+5
Routine Call
  • DIR
  • Line Location:
    • PAUSE+6

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DG(40.8 - [#40.8] DIV+1
^DGPM - [#405] EN+12
^DGPM("ATT3" EN+7, EN+10
^DIC(36 - [#36] PROC+21, INSC+1
^DIC(8 - [#8] ELIG+1
^DPT - [#2] EN+44, EN+45, EN+46, PROC+12, PROC+46
^TMP("IBJDI41" EN+17, EN+34, PROC+44*
^TMP("IBJDI42" EN+48*, DET+2, DET+4, DET+7, DET+9

Label References

Name Line Occurrences
$$DASH HDET+7, SUM+6
$$ELIG DET+13, DET+18, EXCOUT+2, EXCOUT+6
$$INSC DET+14, DET+18, EXCOUT+3, EXCOUT+6
$$SSN DET+12, EXCOUT+1
DET PRT+12
DETQ DET+2
ENQ EN+19, EN+27, EN+52, PRT+4
EOR PRT+17
EXCHDR DET+6, HDET+1
EXCOUT DET+10
EXCSUM PRT+14
HDET DET+2, DET+4, DET+8, DET+11
PAUSE PRT+14, PRT+16, PRT+17, DET+11, DETQ
PRCQ PROC+9
PROC EN+17, ENC+5
PRT EN+29
SUM PRT+16

Naked Globals

Name Field # of Occurrence
^( EN+34, EN+46, DET+9

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> % PRT+8
DFN EN+14*, EN+17, EN+34*, EN+37, EN+44, EN+45, EN+46, EN+48, PROC~, PROC+8
, PROC+12, PROC+44, PROC+46
DIR PAUSE+3~
DIR(0 PAUSE+6*
DIROUT PAUSE+3~
DIRUT PAUSE+3~, PAUSE+6
DTOUT PAUSE+3~
DUOUT PAUSE+3~, PAUSE+6
>> IB( EN+13, PRT+5*, PRT+11, ENC+4, PROC+15*, PROC+16*, PROC+22*, PROC+26*, PROC+29*, PROC+32*
, PROC+35*, PROC+38*, PROC+40*, PROC+45*, PROC+46*, SUM+8, SUM+9, SUM+10, SUM+11, SUM+12
, SUM+13, SUM+14, SUM+15, SUM+16, SUM+17, SUM+18, SUM+19, SUM+20, SUM+21, SUM+22
, SUM+23, SUM+24, SUM+25, SUM+26, SUM+27, SUM+28, SUM+29, SUM+30, SUM+31, SUM+32
, SUM+33, SUM+34, EXCSUM+8, EXCSUM+9, EXCSUM+10, EXCSUM+11, EXCSUM+12, EXCSUM+13, EXCSUM+14, EXCSUM+15
, EXCSUM+16, EXCSUM+17, EXCSUM+18, EXCSUM+19, EXCSUM+20, EXCSUM+21, EXCSUM+22, EXCSUM+23, EXCSUM+24, EXCSUM+25
, EXCSUM+26, EXCSUM+27, EXCSUM+28, EXCSUM+29, EXCSUM+30, EXCSUM+31, EXCSUM+32, EXCSUM+33, EXCSUM+34
>> IB("ALL" PRT+5
>> IBBDT EN+7, EN+24, HDET+4, EXCHDR+3, SUM+5, EXCSUM+5
>> IBD EN+7*, EN+10, EN+17
IBDCNT EN+3~*, EN+9*, EN+32*, EN+35*
IBDD PRCQ!
IBDD( PROC+19, PROC+24
>> IBDIV EN+13*, PRT+11*, ENC+4*, PROC+15, PROC+16, PROC+22, PROC+26, PROC+29, PROC+32, PROC+35
, PROC+38, PROC+40, PROC+44, PROC+45, PROC+46, DET+2, DET+4, DET+7, DET+9, HDET+3
, EXCHDR+1, SUM+3, SUM+8, SUM+9, SUM+10, SUM+11, SUM+12, SUM+13, SUM+14, SUM+15
, SUM+16, SUM+17, SUM+18, SUM+19, SUM+20, SUM+21, SUM+22, SUM+23, SUM+24, SUM+25
, SUM+26, SUM+27, SUM+28, SUM+29, SUM+30, SUM+31, SUM+32, SUM+33, SUM+34, EXCSUM+3
, EXCSUM+8, EXCSUM+9, EXCSUM+10, EXCSUM+11, EXCSUM+12, EXCSUM+13, EXCSUM+14, EXCSUM+15, EXCSUM+16, EXCSUM+17
, EXCSUM+18, EXCSUM+19, EXCSUM+20, EXCSUM+21, EXCSUM+22, EXCSUM+23, EXCSUM+24, EXCSUM+25, EXCSUM+26, EXCSUM+27
, EXCSUM+28, EXCSUM+29, EXCSUM+30, EXCSUM+31, EXCSUM+32, EXCSUM+33, EXCSUM+34
>> IBDN EN+44*, EN+48
IBDNXT PRT+2~*, PRT+11*, PRT+14, PRT+16
>> IBDOD EN+46*, EN+48
>> IBDXT PRT+11*
>> IBEDT EN+7, EN+24, HDET+4, EXCHDR+3, SUM+5, EXCSUM+5
>> IBELIG EN+40*, EN+41*, EN+48, DET+13*, DET+16, DET+17, DET+18, EXCOUT+2*, EXCOUT+5, EXCOUT+6
IBFEED EN+3~, EN+4*, EN+5*, PAUSE+5
IBFL PRCQ!
IBFL( PROC+18*
IBFL(0 PROC+21, PROC+22*
IBFL(1 PROC+25, PROC+26*
IBFL(2 PROC+28, PROC+29*
IBFL(3 PROC+31, PROC+32*
IBFL(4 PROC+34, PROC+35*
IBINDT PROC~
IBINS PROC+18, PRCQ!
IBINSC PROC+12*, PROC+20*, PROC+41*, PROC+44, PRCQ!, DET+14*, DET+16, DET+17, DET+18, EXCOUT+3*
, EXCOUT+5, EXCOUT+6
IBIPC PROC~, PROC+44
IBOED ENC~, ENC+4, ENC+5
>> IBOUT PRT+9, PRT+14, EOR+1, DET+6, DET+8, DET+10, HDET+1
IBOUTP PROC+18*, PRCQ!
>> IBPAG DET+2*, DET+4*, DET+8*, HDET+2*, HDET+3, SUM+1*, EXCSUM+1*
>> IBPAT EN+44*, EN+48
>> IBPER(1 SUM+8*, SUM+25, EXCSUM+8*, EXCSUM+25
>> IBPER(10 SUM+17*, SUM+29, EXCSUM+17*, EXCSUM+29
>> IBPER(11 SUM+18*, SUM+29, EXCSUM+18*, EXCSUM+29
>> IBPER(12 SUM+19*, SUM+30, EXCSUM+19*, EXCSUM+30
>> IBPER(13 SUM+20*, SUM+31, EXCSUM+20*, EXCSUM+31
>> IBPER(14 SUM+21*, SUM+32, EXCSUM+21*, EXCSUM+32
>> IBPER(15 SUM+22*, SUM+33, EXCSUM+22*, EXCSUM+33
>> IBPER(16 SUM+23*, SUM+34, EXCSUM+23*, EXCSUM+34
>> IBPER(2 SUM+9*, SUM+26, EXCSUM+9*, EXCSUM+26
>> IBPER(3 SUM+10*, SUM+26, EXCSUM+10*, EXCSUM+26
>> IBPER(4 SUM+11*, SUM+27, EXCSUM+11*, EXCSUM+27
>> IBPER(5 SUM+12*, SUM+27, EXCSUM+12*, EXCSUM+27
>> IBPER(6 SUM+13*, SUM+27, EXCSUM+13*, EXCSUM+27
>> IBPER(7 SUM+14*, SUM+28, EXCSUM+14*, EXCSUM+28
>> IBPER(8 SUM+15*, SUM+28, EXCSUM+15*, EXCSUM+28
>> IBPER(9 SUM+16*, SUM+29, EXCSUM+16*, EXCSUM+29
>> IBPH EN+45*, EN+48
>> IBPM EN+10*, EN+11, EN+12
>> IBPMD EN+12*, EN+13, EN+14
>> IBQ EN+7, EN+10, EN+11*, EN+19, EN+24, EN+27, EN+34, EN+37*, EN+52, PRT+8*
, PRT+11, PRT+16, PRT+17, DET+7, DET+8, DET+9, DET+11, DETQ, HDET+8*, PAUSE+6*
>> IBQUERY EN+22, EN+24, EN+25
>> IBRMK EN+48, DET+15, EXCOUT+4
>> IBRPT EN+29, PRT+12, PROC+20, PROC+41, PROC+44
>> IBRUN PRT+8*, HDET+3, EXCHDR+2, SUM+6, EXCSUM+6
>> IBSEL EN+36, PROC+12, PROC+15, PROC+16, PROC+20, PROC+23, PROC+27, PROC+30, PROC+33, PROC+36
, PROC+38, PROC+40, PROC+41, DET+2, DET+3
>> IBSEL1 EN+45*, EN+47, PROC+12*, PROC+15*, PROC+16*, PROC+23*, PROC+27*, PROC+30*, PROC+33*, PROC+36*
, PROC+38*, PROC+40*, PROC+44
>> IBSORT EN+13, ENC+4
IBTYP PROC+24*, PROC+25, PROC+28, PROC+31, PROC+34, PRCQ!
IBWNR PROC+18*, PRCQ!
IBX EN+34*, EN+36, EN+44, EN+45, EN+48, PROC+12*, PROC+13, PROC+14, PROC+37, PROC+39
, PROC+41, PRCQ!, DET+2*, DET+3*, DET+4, DET+7*, DET+9, HDET+3, EXCHDR+1, PAUSE+3~
, PAUSE+5*
>> IBX1 DET+9*, DET+12, EXCOUT+1
>> IBX2 DET+9*, DET+12, DET+13, DET+14, DET+15, DET+16, EXCOUT+1, EXCOUT+2, EXCOUT+3, EXCOUT+4
>> IBXTRACT PRT+4
IOF HDET+2, SUM+1, EXCSUM+1
IOSL DET+11
IOST EN+4, EN+6, EN+9, EN+23, EN+33, EN+35, PAUSE+2
U EN+13, EN+14, EN+36, EN+44, EN+45, EN+48, ENC+4, ENC+5, PROC+12, PROC+21
, PROC+44, DIV+1, DET+12, DET+13, DET+14, DET+15, DET+16, EXCOUT+1, EXCOUT+2, EXCOUT+3
, EXCOUT+4, EXCOUT+6, EXCHDR+4, EXCSUM+24, EXCSUM+25, EXCSUM+26, EXCSUM+27, EXCSUM+28, EXCSUM+29, EXCSUM+30
, EXCSUM+31, EXCSUM+32, EXCSUM+33, EXCSUM+34, ELIG+1, INSC+2
VA EN+50!, PRCQ!
VAEL EN+50!, PRCQ!
VAEL(1 EN+40, EN+41
VAEL(4 PROC+9
VAERR EN+50!, PRCQ!
X EN+41*, EN+47*, PRT+5*, PROC+18*, PROC+19*, PROC+20, PROC+21, PROC+24, PRCQ!, DIV~
, DIV+1, DET+3*, DET+17*, DET+18, EXCOUT+5*, EXCOUT+6, DASH~, DASH+1, ELIG~, ELIG+1
, INSC~, INSC+1*, INSC+2, PAUSE+3~, SSN~, SSN+1
>> X1 EN+47*, EN+48
Y DIV+1*, DIV+2, PAUSE+3~
>> ZTQUEUED EN+6, EN+9, EN+23, EN+33, EN+35, PAUSE+1
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All