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

Package: Integrated Billing

Routine: IBCONS1


Information

IBCONS1 ;ALB/AAS - NSC PATIENTS W/ INS BACKGROUND PRINTS ;7 JUN 90

Source Information

Source file <IBCONS1.m>

Call Graph

Call Graph

Call Graph Total: 8

Package Total Call Graph
Integrated Billing 4 GVAR^IBCBB  END^IBCBB1  ALL^IBCNS1  (BEGIN,HDRDV)^IBCONSC  
VA FileMan 2 ^%DT  ^DIR  
Kernel 1 $$S^%ZTLOAD  
Registration 1 PID^VADPT6  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

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

Caller Graph

Caller Graph Total: 4

Package Total Caller Graph
Integrated Billing 4 IB BACKGRND VET DISCHS W/INS  IB BACKGRND VETS INPT W/INS  IB BACKGRND VETS OPT W/INS  IBCONSC  

Entry Points

Name Comments DBIA/ICR reference
DDSET(FILE,FLD,X) ; returns external value for a set
PHDL ; Print header for Excel format
QUEUE ; Set up the background job to run for the previous week
; o For All Divisions
; o For Insured veterans with unbilled episodes of care
; o With the output sorted by Terminal Digit
PAUSE
PRINT ; Print each detail line.
PRINT1 ; If an episode of care has been billed, display billing information.
PTPRNT ; print patient specific data is requested: Rate Disabilities and expanded insurance Info
LOOP25 ; Print all NSC w/Insurance reports.
DATE(X) ;
EN1 ; Inpatient Admission entry to que background once weekly
EN2 ; Outpatient entry to que background once weekly
SUMTOT ; total cnt of visits ^ cnt unbilled ^ cnt unbilled w/RNB ^ cnt billed/not auth ^ cnt billed/auth ^ cnt of pats
HEAD ; Print header; don't pause on first pass through.
EN ; Inpatient Discharge entry to que background once weekly
XLCOLS(PLACE,INS) ; Print spacers for Excel columns
Q
LOOP3 ; Loop through billed, unbilled, or both types of episodes of care.
LOOP4 ; Loop through each episode of care for a patient.
LOOP31 ; Loop through each name or terminal digit (and associated DFN).
INSPQ
INSP(DFN,IBDAT) ; -- print ins. company on report logic
PRNSUM ; print 1 line of the summary

External References

Name Field # of Occurrence
^%DT QUEUE+6, QUEUE+7
$$S^%ZTLOAD HEAD+1
^DIR PAUSE+2
GVAR^IBCBB PRINT1+1
END^IBCBB1 PRINT1+18
ALL^IBCNS1 INSP+4, PTPRNT+16
BEGIN^IBCONSC QUEUE+9
HDRDV^IBCONSC LOOP25+2
PID^VADPT6 PRINT+6

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"No matches found.",!
  • Line Location: LOOP31+2
Function Call: WRITE
  • Prompt: !
  • Line Location: LOOP4+1
Function Call: WRITE
  • Prompt: ?60
  • Condition for execution: IBOUT="R"
  • Line Location: PRINT+11
Function Call: WRITE
  • Prompt: U
  • Condition for execution: IBOUT="E"
  • Line Location: PRINT+11
Function Call: WRITE
  • Prompt: Y
  • Line Location: PRINT+11
Function Call: WRITE
  • Prompt: ?82
  • Condition for execution: IBOUT="R"
  • Line Location: PRINT+14
Function Call: WRITE
  • Prompt: U
  • Condition for execution: IBOUT="E"
  • Line Location: PRINT+14
Function Call: WRITE
  • Prompt: X
  • Line Location: PRINT+14
Function Call: WRITE
  • Prompt: U
  • Line Location: PRINT+19
Function Call: WRITE
  • Prompt: !?10
  • Condition for execution: IBOUT="R"
  • Line Location: PRINT+21
Function Call: WRITE
  • Prompt: $P(X,"^")
  • Line Location: PRINT+21
Function Call: WRITE
  • Prompt: " with "
  • Line Location: PRINT+21
Function Call: WRITE
  • Prompt: " with "
  • Line Location: PRINT+21
Function Call: WRITE
  • Prompt: U_$P(^DGCR(399,IBIFN,0),"^")_U_$P($G(^DGCR(399.3,+IBAT,0)),"^",4),"-",$S(IBCL<3:"INPT",IBCL>2:"OUTP",1:"")
  • Line Location: PRINT1+4
Function Call: WRITE
  • Prompt: U_$S(IBST=1:"Entered",IBST=2:"Request MRA",IBST=3:"Authorized",IBST=4:"Prnt/Trans",IBST=7:"Cancelled",IBST=0:"Closed",1:"")
  • Line Location: PRINT1+5
Function Call: WRITE
  • Prompt: U_$E(IBFDT,4,5)_"/"_$E(IBFDT,6,7)_"/"_$E(IBFDT,2,3)_U_$E(IBTDT,4,5)_"/"_$E(IBTDT,6,7)_"/"_$E(IBTDT,2,3)
  • Line Location: PRINT1+6
Function Call: WRITE
  • Prompt: U_$S($P(IBND0,U,21)="S":"s",$P(IBND0,U,21)="T":"t",1:"")_U
  • Line Location: PRINT1+7
Function Call: WRITE
  • Prompt: !?10,$P(^DGCR(399,IBIFN,0),"^"),?20,$P($G(^DGCR(399.3,+IBAT,0)),"^",4),"-",$S(IBCL<3:"INPT",IBCL>2:"OUTP",1:"")
  • Line Location: PRINT1+9
Function Call: WRITE
  • Prompt: ?37,$S(IBST=1:"Entered",IBST=2:"Request MRA",IBST=3:"Authorized",IBST=4:"Prnt/Trans",IBST=7:"Cancelled",IBST=0:"Closed",1:"")
  • Line Location: PRINT1+10
Function Call: WRITE
  • Prompt: ?50,"From: ",$E(IBFDT,4,5)_"/"_$E(IBFDT,6,7)_"/"_$E(IBFDT,2,3)
  • Line Location: PRINT1+11
Function Call: WRITE
  • Prompt: ?68,"To: ",$E(IBTDT,4,5)_"/"_$E(IBTDT,6,7)_"/"_$E(IBTDT,2,3)
  • Line Location: PRINT1+12
Function Call: WRITE
  • Prompt: ?88,$S($P(IBND0,U,21)="S":"s",$P(IBND0,U,21)="T":"t",1:"")
  • Line Location: PRINT1+13
Function Call: WRITE
  • Prompt: ?91,"Debtor: "
  • Line Location: PRINT1+14
Function Call: WRITE
  • Prompt: $P(^(0),"^")
  • Line Location: PRINT1+15
Function Call: WRITE
  • Prompt: $P(^(0),"^")
  • Line Location: PRINT1+16
Function Call: WRITE
  • Prompt: $P(^DPT(DFN,0),"^")
  • Line Location: PRINT1+17
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: HEAD+5
Function Call: WRITE
  • Prompt: IBHD,!,IBI
  • Line Location: HEAD+11
Function Call: WRITE
  • Prompt: !
  • Condition for execution: $L(IBI)>78
  • Line Location: HEAD+11
Function Call: WRITE
  • Prompt: ?80,"Printed: ",IBDATE,?118,"Page: ",IBPAGE
  • Line Location: HEAD+11
Function Call: WRITE
  • Prompt: !,?40,"Unbilled",?53,"Unbilled w/RNB",?70,"Billed/Not Auth",?88,"Billed/Auth",?103,"# Visits",?117,"# Patients",!,IBL
  • Line Location: HEAD+12
Function Call: WRITE
  • Prompt: !,"PT ID PATIENT",?28,"SSN",?42,"ELIGIBILITY",?60,"DATE OF ",$S(IBINPT=2:"DISCHARGE",1:"CARE"),?82,"INSURANCE COMPANIES"
  • Line Location: HEAD+13
Function Call: WRITE
  • Prompt: !,IBL
  • Line Location: HEAD+15
Function Call: WRITE
  • Prompt: !
  • Line Location: PAUSE+1
Function Call: WRITE
  • Prompt: $S(IBDV="TOTAL":IBDV,1:$P($G(^DG(40.8,+IBDV,0)),U,1))
  • Line Location: PRNSUM+4
Function Call: WRITE
  • Prompt: U_$P(IBSUM,U,2,5)_U_$P(IBSUM,U,1)_U_$P(IBSUM,U,6)
  • Line Location: PRNSUM+5
Function Call: WRITE
  • Prompt: ?40,$P(IBSUM,U,2),?58,$P(IBSUM,U,3),?75,$P(IBSUM,U,4),?91,$P(IBSUM,U,5),?105,$P(IBSUM,U,1),?120,$P(IBSUM,U,6)
  • Line Location: PRNSUM+6
Function Call: WRITE
  • Prompt: !
  • Line Location: PTPRNT+3
Function Call: WRITE
  • Prompt: !,IBPTINFO
  • Line Location: PTPRNT+5
Function Call: WRITE
  • Prompt: !
  • Line Location: PTPRNT+8
Function Call: WRITE
  • Prompt: !
  • Line Location: PTPRNT+19
Function Call: WRITE
  • Prompt: !,?5,IBLN1,?33,"Group #: ",$P($G(^IBA(355.3,+IBPLAN,0)),U,4),?65,"Effective: ",$$DATE(+$P(IBY,U,8))," - ",$$DATE(+$P(IBY,U,4)),?100,"Last Ver: ",$$DATE($P(IBY1,U,3))
  • Line Location: PTPRNT+24
Function Call: WRITE
  • Prompt: U_IBLN1_U_$P(IBY,U,3)_U_$$DATE(+$P(IBY,U,8))_U_$$DATE(+$P(IBY,U,4))_U_$$DATE($P(IBY1,U,3))
  • Line Location: PTPRNT+26
Function Call: WRITE
  • Prompt: !,?5,IBLN1,?33,"Group #: ",$P(IBY,U,3)
  • Line Location: PTPRNT+27
Function Call: WRITE
  • Prompt: !,?33,"Effective: ",$$DATE(+$P(IBY,U,8))," - ",$$DATE(+$P(IBY,U,4)),?68,"Last Ver: ",$$DATE($P(IBY1,U,3))
  • Line Location: PTPRNT+28
Function Call: WRITE
  • Prompt: !
  • Line Location: PTPRNT+30
Function Call: WRITE
  • Prompt: U_$P(IBY1,U,8)
  • Line Location: PTPRNT+31
Function Call: WRITE
  • Prompt: !,?5,IBLN1,?33,IBLN2,?51,$P(IBY1,U,8)
  • Line Location: PTPRNT+32
Function Call: WRITE
  • Prompt: U
  • Line Location: PTPRNT+34
Function Call: WRITE
  • Prompt: !
  • Line Location: PTPRNT+35
Function Call: WRITE
  • Prompt: U_IBY3
  • Line Location: PTPRNT+37
Function Call: WRITE
  • Prompt: !,?5,IBLN1,?33,IBLN2,?51,IBY3
  • Line Location: PTPRNT+38
Function Call: WRITE
  • Prompt: "^^"
  • Line Location: PTPRNT+40
Function Call: WRITE
  • Prompt: !
  • Line Location: PTPRNT+41
Function Call: WRITE
  • Prompt: !
  • Line Location: PTPRNT+45
Function Call: WRITE
  • Prompt: U_IBLN3_U_$G(^IBA(355.32,IBCVG,2,IBJ,0))
  • Line Location: PTPRNT+46
Function Call: WRITE
  • Prompt: !,?5,IBLN1,?33,IBLN2,?51,IBLN3,?104,$G(^IBA(355.32,IBCVG,2,IBJ,0))
  • Line Location: PTPRNT+47
Function Call: WRITE
  • Prompt: !,?5,IBLN1,?33,IBLN2,?51,IBLN3
  • Line Location: PTPRNT+48
Function Call: WRITE
  • Prompt: U_IBLN3_U
  • Line Location: PTPRNT+49
Function Call: WRITE
  • Prompt: U
  • Line Location: PTPRNT+51
Function Call: WRITE
  • Prompt: !
  • Line Location: PTPRNT+52
Function Call: WRITE
  • Prompt: U_$P($G(^IBE(355.6,+IBRIDE,0)),U,1)
  • Line Location: PTPRNT+53
Function Call: WRITE
  • Prompt: !,?5,IBLN1,?33,IBLN2,?51,$P($G(^IBE(355.6,+IBRIDE,0)),U,1)
  • Line Location: PTPRNT+54
Function Call: WRITE
  • Prompt: !
  • Line Location: PTPRNT+56
Function Call: WRITE
  • Prompt: "DIV^PT ID^PATIENT^SSN^ELIGIBILITY"
  • Line Location: PHDL+1
Function Call: WRITE
  • Prompt: "^Rated Disabilities"
  • Line Location: PHDL+2
Function Call: WRITE
  • Prompt: "^Insurance^Group #^Effective Begin Date^Effective End Date^Last Ver"
  • Line Location: PHDL+3
Function Call: WRITE
  • Prompt: "^Policy Comment"
  • Line Location: PHDL+4
Function Call: WRITE
  • Prompt: "^Group Comments"
  • Line Location: PHDL+5
Function Call: WRITE
  • Prompt: "^Coverage Limits^Limitation Comments^Riders"
  • Line Location: PHDL+6
Function Call: WRITE
  • Prompt: "^DATE OF "_$S(IBINPT=2:"DISCHARGE",1:"CARE")_"^INSURANCE COMPANIES"
  • Line Location: PHDL+8
Function Call: WRITE
  • Prompt: "^NOT BILLABLE"
  • Line Location: PHDL+9
Function Call: WRITE
  • Prompt: "^Encounter Add/Edits"
  • Line Location: PHDL+10
Function Call: WRITE
  • Prompt: "^BILL NUMBER^LOCATION OF CARE^STATUS^From^To^Current Bill Payer Sequence^Debtor"
  • Line Location: PHDL+12
Function Call: WRITE
  • Prompt: "^DIV TOTALS^Unbilled^Unbilled w/RNB^Billed/Not Auth^Billed/Auth^# Visits^# Patients"
  • Line Location: PHDL+13
Function Call: WRITE
  • Prompt: !,IBPTINFO
  • Line Location: XLCOLS+1
Function Call: WRITE
  • Prompt: U
  • Line Location: XLCOLS+2
Function Call: WRITE
  • Prompt: U_INS_"^^^^"
  • Line Location: XLCOLS+3
Function Call: WRITE
  • Prompt: U
  • Line Location: XLCOLS+4
Function Call: WRITE
  • Prompt: U
  • Line Location: XLCOLS+5
Function Call: WRITE
  • Prompt: "^^"
  • Line Location: XLCOLS+6
Function Call: WRITE
  • Prompt: U
  • Line Location: XLCOLS+7
Function Call: WRITE
  • Prompt: "^^"
  • Line Location: XLCOLS+10
Function Call: WRITE
  • Prompt: U
  • Line Location: XLCOLS+11
Function Call: WRITE
  • Prompt: U
  • Line Location: XLCOLS+12
Function Call: WRITE
  • Prompt: "^^^^^^^^"
  • Line Location: XLCOLS+13
Routine Call
  • DIR
  • Line Location:
    • PAUSE+2

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DD( DDSET+1
^DD("DD" PRINT+11
^DG(40.8 - [#40.8] PRINT+7, HEAD+8, PRNSUM+4
^DGCR(399 - [#399] PRINT1+4, PRINT1+9
^DGCR(399.3 - [#399.3] PRINT1+4, PRINT1+9
^DIC(31 - [#31] PTPRNT+9
^DIC(36 - [#36] PRINT1+15, INSP+8, PTPRNT+21
^DIC(4 - [#4] PRINT1+16
^DIC(8 - [#8] PRINT+7, PRINT+10
^DPT - [#2] PRINT+7, PRINT+10, PRINT1+17, PTPRNT+3, PTPRNT+7, PTPRNT+8, PTPRNT+9
^IBA(355.3 - [#355.3] PTPRNT+35, PTPRNT+36
^IBA(355.32 - [#355.32] PTPRNT+41, PTPRNT+42, PTPRNT+45, PTPRNT+46, PTPRNT+47
^IBA(355.7 - [#355.7] PTPRNT+52
^IBE(355.31 - [#355.31] PTPRNT+43
^IBE(355.6 - [#355.6] PTPRNT+53, PTPRNT+54
^TMP($J QUEUE+5!, LOOP25+4, LOOP25+7, Q+1!, LOOP31+1, LOOP31+4, LOOP4+1, PRINT+1, PRINT+2, PRINT+3
, PRINT+4, PRINT+17, PRINT+20, PRINT+22, PRNSUM+1, SUMTOT+2, SUMTOT+3, SUMTOT+9, SUMTOT+10, SUMTOT+11*
, SUMTOT+12*

Label References

Name Line Occurrences
$$DATE PTPRNT+26, PTPRNT+28, PTPRNT+44
$$DDSET PTPRNT+44
$$INSP PRINT+14
HEAD LOOP25+6, LOOP3+1, LOOP3+2, LOOP4+1, PTPRNT+3, PTPRNT+8, PTPRNT+19, PTPRNT+30, PTPRNT+35, PTPRNT+41
, PTPRNT+45, PTPRNT+52
INSPQ INSP+3
LOOP3 LOOP25+4
LOOP31 LOOP3+1, LOOP3+2
LOOP4 LOOP31+4
PAUSE LOOP25+8, HEAD+2
PHDL LOOP25+3
PRINT LOOP4+1
PRINT1 PRINT+22
PRNSUM LOOP25+7
PTPRNT PRINT+9
Q LOOP25+6
QUEUE EN+1, EN1+1
SUMTOT PRINT+6
XLCOLS PRINT1+3, PRNSUM+3, PTPRNT+18, PTPRNT+37, PTPRNT+46, PTPRNT+49, PTPRNT+53

Naked Globals

Name Field # of Occurrence
^(0 PRINT1+15, PRINT1+16
^(2 PRINT+17

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
% Q!
%DT QUEUE+6*, QUEUE+7*!, Q!
B Q!
DFN Q!, LOOP31+4*, LOOP4+1, PRINT+1, PRINT+2, PRINT+3, PRINT+4, PRINT+7, PRINT+10, PRINT+14
, PRINT+17, PRINT+20, PRINT+22, PRINT1+17, INSP~, INSP+3, INSP+4, SUMTOT+2, SUMTOT+9, SUMTOT+10
, SUMTOT+11, SUMTOT+12, PTPRNT+3, PTPRNT+7, PTPRNT+8, PTPRNT+9, PTPRNT+16, PTPRNT+52
DIR PAUSE+2!
DIR(0 PAUSE+2*
DIRUT PAUSE+2!
DTOUT PAUSE+2!
DUOUT PAUSE+2!
FILE DDSET~, DDSET+1
FLD DDSET~, DDSET+1
I Q!, LOOP4+1*
IBAPPT Q+1!
>> IBAT PRINT1+4, PRINT1+9
IBBEG QUEUE+7*, Q+1!, PTPRNT+16
IBBEG1 Q!
IBBILL Q!, LOOP3+1*, LOOP3+2*, LOOP31+1, LOOP31+4, LOOP4+1, PRINT+1, PRINT+2, PRINT+3, PRINT+4
, PRINT+17, PRINT+20, PRINT+22, HEAD+7, SUMTOT+2
IBBILLED SUMTOT+1~, SUMTOT+2*, SUMTOT+5, SUMTOT+6, SUMTOT+7, SUMTOT+8
>> IBCL PRINT1+4, PRINT1+9
IBCNT Q!, INSP+1~, INSP+2*, INSP+5, INSP+6*, INSP+7
IBCOMFL PTPRNT+2~, PTPRNT+45*, PTPRNT+46*, PTPRNT+49
IBCR1 PTPRNT+2~, PTPRNT+40, PTPRNT+41*, PTPRNT+46*, PTPRNT+49*, PTPRNT+51, PTPRNT+52*, PTPRNT+53*
IBCVG PTPRNT+2~, PTPRNT+41*, PTPRNT+42, PTPRNT+45, PTPRNT+46, PTPRNT+47
IBD PTPRNT+2~, PTPRNT+10*, PTPRNT+11
IBDAT Q+1!, LOOP4+1*, PRINT+1, PRINT+2, PRINT+3, PRINT+4, PRINT+11, PRINT+14, PRINT+17, PRINT+20
, PRINT+22, INSP~, INSP+3, INSP+4, SUMTOT+2
IBDATE Q!, HEAD+11
IBDC Q+1!, PRINT+21*
IBDD INSP+1~, INSP+4*
IBDD( INSP+5, INSP+8
IBDD(0 INSP+10
IBDDINS INSP+1~, INSP+2*, INSP+7*, INSP+8*, INSP+9*, INSP+10*, INSPQ
IBDFN Q+1!
IBDT Q!
>> IBDV LOOP25+4*, LOOP25+7*, LOOP31+1, LOOP31+4, LOOP4+1, PRINT+1, PRINT+2, PRINT+3, PRINT+4, PRINT+7
, PRINT+17, PRINT+20, PRINT+22, HEAD+8, PRNSUM+1, PRNSUM+4, SUMTOT+2, SUMTOT+3, SUMTOT+9, SUMTOT+11
IBEND QUEUE+6*, Q+1!, PTPRNT+16
>> IBFDT PRINT1+6, PRINT1+11
>> IBFL LOOP25+2*, HEAD+2*
IBFLAG Q!, Q+1!, LOOP3+1!, LOOP3+2!, LOOP31+2, PRINT+6*
>> IBFORMFD HEAD+5, HEAD+6*
IBGC1 PTPRNT+2~, PTPRNT+34, PTPRNT+35*, PTPRNT+37*
IBHD Q!, HEAD+11
IBHDRDV LOOP25+2*, Q!, HEAD+9
IBI Q!, HEAD+2~, HEAD+7*, HEAD+8*, HEAD+9*, HEAD+10*, HEAD+11, PTPRNT+2~, PTPRNT+8*, PTPRNT+9
, PTPRNT+19*, PTPRNT+20, PTPRNT+52
IBIFN Q!, PRINT+22*, PRINT1+4, PRINT1+9
IBINPT EN+1*, EN1+1*, EN2+1*, Q+1!, PRINT+19, HEAD+13, PHDL+8, PHDL+10, XLCOLS+12
IBJ PTPRNT+2~, PTPRNT+35*, PTPRNT+36, PTPRNT+45*, PTPRNT+46, PTPRNT+47
IBL Q!, HEAD+12, HEAD+15
IBLN1 PTPRNT+2~, PTPRNT+3*, PTPRNT+7*, PTPRNT+11*, PTPRNT+15, PTPRNT+21*, PTPRNT+26, PTPRNT+27, PTPRNT+28*, PTPRNT+32*
, PTPRNT+37, PTPRNT+38*, PTPRNT+46, PTPRNT+47*, PTPRNT+48*, PTPRNT+49, PTPRNT+53, PTPRNT+54*
IBLN2 PTPRNT+2~, PTPRNT+6*, PTPRNT+7*, PTPRNT+11*, PTPRNT+30*, PTPRNT+32*, PTPRNT+34*, PTPRNT+38*, PTPRNT+40*, PTPRNT+47*
, PTPRNT+48*, PTPRNT+51*, PTPRNT+54*
IBLN3 PTPRNT+2~, PTPRNT+43*, PTPRNT+44*, PTPRNT+46, PTPRNT+47*, PTPRNT+48*, PTPRNT+49
IBNAME Q+1!, LOOP3+1*, LOOP3+2*, LOOP31+1*, LOOP31+2, LOOP31+3, LOOP31+4, LOOP4+1, PRINT+1, PRINT+2
, PRINT+3, PRINT+4, PRINT+17, PRINT+20, PRINT+22, SUMTOT+2
>> IBND0 PRINT1+7, PRINT1+13
>> IBNDM PRINT1+16
>> IBNDMP PRINT1+15
IBNEWPT Q+1!, LOOP31+4*, PRINT+9*
IBOUT LOOP25+1*, LOOP25+2, LOOP25+3, LOOP25+6, Q+1!, LOOP3+1, LOOP3+2, LOOP4+1, PRINT+7, PRINT+9
, PRINT+10, PRINT+11, PRINT+14, PRINT+17, PRINT+19, PRINT+21, PRINT1+2, PRINT1+8, PRNSUM+2, PRNSUM+3
, PRNSUM+5, PTPRNT+3, PTPRNT+5, PTPRNT+7, PTPRNT+8, PTPRNT+11, PTPRNT+13, PTPRNT+15, PTPRNT+18, PTPRNT+19
, PTPRNT+21, PTPRNT+26, PTPRNT+30, PTPRNT+31, PTPRNT+34, PTPRNT+35, PTPRNT+37, PTPRNT+40, PTPRNT+41, PTPRNT+43
, PTPRNT+45, PTPRNT+46, PTPRNT+48, PTPRNT+49, PTPRNT+51, PTPRNT+52, PTPRNT+53, PTPRNT+56
IBPAGE LOOP25+6*, Q!, LOOP3+1*, LOOP3+2*, HEAD+3*, HEAD+5, HEAD+11
IBPLAN PTPRNT+2~, PTPRNT+21*, PTPRNT+35, PTPRNT+36, PTPRNT+41
>> IBPRTICR PTPRNT+13, PTPRNT+40, PTPRNT+51, PHDL+6, XLCOLS+6, XLCOLS+7
>> IBPRTIEX PTPRNT+13, PTPRNT+25, PHDL+3, XLCOLS+3
>> IBPRTIGC PTPRNT+13, PTPRNT+34, PHDL+5, XLCOLS+5
>> IBPRTIPC PTPRNT+13, PTPRNT+30, PHDL+4, XLCOLS+4
>> IBPRTRDS PTPRNT+5, PTPRNT+6, PHDL+2, XLCOLS+2
IBPTINFO LOOP25+2*, Q+1!, PRINT+7*, PTPRNT+5, PTPRNT+7, PTPRNT+11, XLCOLS+1
>> IBQUIT LOOP25+2*, LOOP25+4, LOOP25+6, LOOP3+1, LOOP3+2, LOOP31+1, LOOP31+4, LOOP4+1, HEAD+1*, HEAD+2
, PAUSE+2*, PTPRNT+3, PTPRNT+6, PTPRNT+8, PTPRNT+19, PTPRNT+30, PTPRNT+35, PTPRNT+41, PTPRNT+45, PTPRNT+52
IBRIDE PTPRNT+2~, PTPRNT+52*, PTPRNT+53, PTPRNT+54
IBRMARK SUMTOT+1~, SUMTOT+2*, SUMTOT+5, SUMTOT+6
>> IBSELBIL LOOP3+2, PRINT+4
>> IBSELBNA LOOP3+2, PRINT+3
>> IBSELCDV LOOP25+2, HEAD+8, HEAD+9
>> IBSELRNB QUEUE+8*, PRINT+1, PRINT+2, HEAD+14, PHDL+9, XLCOLS+11
>> IBSELTRM QUEUE+8*
>> IBSELUBL QUEUE+8*, LOOP3+1
>> IBST PRINT1+5, PRINT1+10
>> IBSUB EN+1*, EN1+1*, EN2+1*
IBSUM LOOP25+2*, LOOP25+6*, Q!, HEAD+10, HEAD+12, PRNSUM+1~*, PRNSUM+5, PRNSUM+6, SUMTOT+1~, SUMTOT+3*
, SUMTOT+4*, SUMTOT+5*, SUMTOT+6*, SUMTOT+7*, SUMTOT+8*, SUMTOT+9*, SUMTOT+11
>> IBTDT PRINT1+6, PRINT1+12
IBTOT SUMTOT+1~, SUMTOT+3*, SUMTOT+4*, SUMTOT+5*, SUMTOT+6*, SUMTOT+7*, SUMTOT+8*, SUMTOT+10*, SUMTOT+12
>> IBWHO PRINT1+15, PRINT1+16, PRINT1+17
IBX PTPRNT+2~, PTPRNT+6!, PTPRNT+9*, PTPRNT+10
IBX( PTPRNT+19, PTPRNT+20
IBX(0 PTPRNT+18
IBY PTPRNT+2~, PTPRNT+6!, PTPRNT+9*, PTPRNT+10, PTPRNT+20*, PTPRNT+21, PTPRNT+26, PTPRNT+27, PTPRNT+28
IBY1 PTPRNT+2~, PTPRNT+20*, PTPRNT+26, PTPRNT+28, PTPRNT+31, PTPRNT+32
IBY3 PTPRNT+2~, PTPRNT+36*, PTPRNT+37, PTPRNT+38, PTPRNT+42*, PTPRNT+43, PTPRNT+44
INS XLCOLS~, XLCOLS+3
IO QUEUE+9
IOF HEAD+5
IOSL LOOP4+1, PAUSE+1, PTPRNT+3, PTPRNT+8, PTPRNT+19, PTPRNT+30, PTPRNT+35, PTPRNT+41, PTPRNT+45, PTPRNT+52
IOST HEAD+5, PAUSE
J Q!, PAUSE+1*
K Q!, PRINT+22*, PRINT1+3
L Q!
M Q!
PLACE XLCOLS~, XLCOLS+1, XLCOLS+2, XLCOLS+4, XLCOLS+5, XLCOLS+6, XLCOLS+8, XLCOLS+12
POP Q+1!
T DDSET+1~*
U LOOP25+1, PRINT+7, PRINT+11, PRINT+14, PRINT+17, PRINT+19, PRINT1+4, PRINT1+5, PRINT1+6, PRINT1+7
, PRINT1+13, PRNSUM+4, PRNSUM+5, PRNSUM+6, SUMTOT+4, SUMTOT+5, SUMTOT+6, SUMTOT+7, SUMTOT+8, SUMTOT+9
, SUMTOT+10, PTPRNT+3, PTPRNT+10, PTPRNT+11, PTPRNT+21, PTPRNT+26, PTPRNT+27, PTPRNT+28, PTPRNT+31, PTPRNT+32
, PTPRNT+34, PTPRNT+37, PTPRNT+43, PTPRNT+44, PTPRNT+46, PTPRNT+49, PTPRNT+51, PTPRNT+53, PTPRNT+54, XLCOLS+2
, XLCOLS+3, XLCOLS+4, XLCOLS+5, XLCOLS+7, XLCOLS+11, XLCOLS+12
VA PRINT+10!
VA("BID" PRINT+7, PRINT+10
VA("PID" PRINT+7, PRINT+10
VAERR PRINT+10!
>> VAUTD QUEUE+8*
X QUEUE+6*, QUEUE+7*, Q!, PRINT+14*, PRINT+20*, PRINT+21, PRINT+22*, INSP+1~, INSP+5*, INSP+8
, DATE~, DATE+1, DDSET~, DDSET+1
X1 Q!
X2 Q!
Y QUEUE+6, QUEUE+7, Q!, PRINT+11*, DATE+1~*, DATE+2, DDSET+1~*
Z DDSET+1~*, DDSET+2
>> ZTQUEUED HEAD+1
>> ZTSTOP HEAD+1*
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All