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 |  Local Variables |  All
Print Page as PDF
Routine: APCLCARQ

Package: Patient Care Component Reports

Routine: APCLCARQ


Information

APCLCARQ ; IHS/CMI/LAB - California Report ;

Source Information

Source file <APCLCARQ.m>

Call Graph

Call Graph Total: 3

Package Total Call Graph
VA Fileman 2 COMMA^%DTC  ^DIR  
Kernel 1 $$FMTE^XLFDT  

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Patient Care Component Reports 1 APCLCARP  

Entry Points

Name Comments DBIA/ICR reference
HEAD1 ;
EOJ ;
L ;
HEADER ;
C(X,X2,X3) ;
CTR(X,Y) ;EP - Center X in a field Y wide.
PRINT ;
SPEC ;

External References

Name Field # of Occurrence
COMMA^%DTC C+1
^DIR HEADER+2
$$FMTE^XLFDT HEAD1+2, HEAD1+10

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !?5,"Evaluation and Management Services"
  • Line Location: PRINT+3
Function Call: WRITE
  • Prompt: !,"1",?6,"Evaluation and Management (new patient)",?54,"99201-99205",?68,$$C($G(^XTMP("APCLCAR",APCLJ,APCLH,"CPT",1)),0,8)
  • Line Location: PRINT+5
Function Call: WRITE
  • Prompt: !,"2",?6,"Evaluation and Management (established patient)",?54,"99211-99215",?68,$$C($G(^XTMP("APCLCAR",APCLJ,APCLH,"CPT",2)),0,8)
  • Line Location: PRINT+7
Function Call: WRITE
  • Prompt: !,"3",?6,"Hospital Related Services",?54,"99217-99223",!?54,"99231-99239",!?54,"99477",?68,$$C($G(^XTMP("APCLCAR",APCLJ,APCLH,"CPT",3)),0,8)
  • Line Location: PRINT+9
Function Call: WRITE
  • Prompt: !,"4",?6,"Consultations",?54,"99241-99255",!?54,"99441-99444",?68,$$C($G(^XTMP("APCLCAR",APCLJ,APCLH,"CPT",4)),0,8)
  • Line Location: PRINT+11
Function Call: WRITE
  • Prompt: !?54,"99291-99292"
  • Line Location: PRINT+13
Function Call: WRITE
  • Prompt: !?54,"99354-99360"
  • Line Location: PRINT+14
Function Call: WRITE
  • Prompt: !,"5",?6,"Other Evaluation and Management Services",?54,"99450",!?54,"99455-99456",?68,$$C($G(^XTMP("APCLCAR",APCLJ,APCLH,"CPT",5)),0,8)
  • Line Location: PRINT+16
Function Call: WRITE
  • Prompt: !,?54,"99499"
  • Line Location: PRINT+18
Function Call: WRITE
  • Prompt: !,"6",?6,"Nursing Facility Related Services",?54,"99304-99318",?68,$$C($G(^XTMP("APCLCAR",APCLJ,APCLH,"CPT",6)),0,8)
  • Line Location: PRINT+20
Function Call: WRITE
  • Prompt: !,"7",?6,"Case Management Services",?54,"99363-99368",?68,$$C($G(^XTMP("APCLCAR",APCLJ,APCLH,"CPT",7)),0,8)
  • Line Location: PRINT+22
Function Call: WRITE
  • Prompt: !,?54,"99381-99384"
  • Line Location: PRINT+24
Function Call: WRITE
  • Prompt: !,"8",?6,"Preventive Medicine (infant,child,adolescent)",?54,"99391-99394",?68,$$C($G(^XTMP("APCLCAR",APCLJ,APCLH,"CPT",8)),0,8)
  • Line Location: PRINT+26
Function Call: WRITE
  • Prompt: !,?54,"99431-99440"
  • Line Location: PRINT+28
Function Call: WRITE
  • Prompt: !?54,"99385-99387"
  • Line Location: PRINT+30
Function Call: WRITE
  • Prompt: !,"9",?6,"Preventive Medicine (adults)",?54,"99395-99397",?68,$$C($G(^XTMP("APCLCAR",APCLJ,APCLH,"CPT",9)),0,8)
  • Line Location: PRINT+32
Function Call: WRITE
  • Prompt: !,"10",?6,"Counseling",?54,"99401-99429",!?54,"99605-99607",?68,$$C($G(^XTMP("APCLCAR",APCLJ,APCLH,"CPT",10)),0,8)
  • Line Location: PRINT+34
Function Call: WRITE
  • Prompt: !,?5,"All Other Services"
  • Line Location: PRINT+36
Function Call: WRITE
  • Prompt: !,"11",?6,"Anesthesia",?54,"00100-01999",!?54,"99100, 99116",!?54,"99135, 99140"
  • Line Location: PRINT+38
Function Call: WRITE
  • Prompt: !?54,"99143-99150",?68,$$C($G(^XTMP("APCLCAR",APCLJ,APCLH,"CPT",11)),0,8)
  • Line Location: PRINT+39
Function Call: WRITE
  • Prompt: !,"12",?6,"Integumentary System",?54,"10021-19499",?68,$$C($G(^XTMP("APCLCAR",APCLJ,APCLH,"CPT",12)),0,8)
  • Line Location: PRINT+41
Function Call: WRITE
  • Prompt: !,"13",?6,"Musculoskeletal System",?54,"20000-29999",?68,$$C($G(^XTMP("APCLCAR",APCLJ,APCLH,"CPT",13)),0,8)
  • Line Location: PRINT+43
Function Call: WRITE
  • Prompt: !,"14",?6,"Respiratory System",?54,"30000-32999",?68,$$C($G(^XTMP("APCLCAR",APCLJ,APCLH,"CPT",14)),0,8)
  • Line Location: PRINT+45
Function Call: WRITE
  • Prompt: !,"15",?6,"Cardiovascular System",?54,"33010-37799",?68,$$C($G(^XTMP("APCLCAR",APCLJ,APCLH,"CPT",15)),0,8)
  • Line Location: PRINT+47
Function Call: WRITE
  • Prompt: !,"16",?6,"Hemic and Lymphatic System",?54,"38100-38999",?68,$$C($G(^XTMP("APCLCAR",APCLJ,APCLH,"CPT",16)),0,8)
  • Line Location: PRINT+49
Function Call: WRITE
  • Prompt: !,"17",?6,"Mediastinum and Diaphragm System",?54,"39000-39599",?68,$$C($G(^XTMP("APCLCAR",APCLJ,APCLH,"CPT",17)),0,8)
  • Line Location: PRINT+51
Function Call: WRITE
  • Prompt: !,"18",?6,"Digestive System",?54,"40490-49999",?68,$$C($G(^XTMP("APCLCAR",APCLJ,APCLH,"CPT",18)),0,8)
  • Line Location: PRINT+53
Function Call: WRITE
  • Prompt: !,"19",?6,"Urinary System",?54,"50010-53899",?68,$$C($G(^XTMP("APCLCAR",APCLJ,APCLH,"CPT",19)),0,8)
  • Line Location: PRINT+55
Function Call: WRITE
  • Prompt: !,"20",?6,"Male Genital System",?54,"54000-55899",?68,$$C($G(^XTMP("APCLCAR",APCLJ,APCLH,"CPT",20)),0,8)
  • Line Location: PRINT+57
Function Call: WRITE
  • Prompt: !,"21",?6,"Intersex Surgery",?54,"55970, 55980",?68,$$C($G(^XTMP("APCLCAR",APCLJ,APCLH,"CPT",21)),0,8)
  • Line Location: PRINT+59
Function Call: WRITE
  • Prompt: !,"22",?6,"Female Genital System",?54,"56405-58999",?68,$$C($G(^XTMP("APCLCAR",APCLJ,APCLH,"CPT",22)),0,8)
  • Line Location: PRINT+61
Function Call: WRITE
  • Prompt: !,"23",?6,"Maternity Care and Delivery",?54,"59000-59899",?68,$$C($G(^XTMP("APCLCAR",APCLJ,APCLH,"CPT",23)),0,8)
  • Line Location: PRINT+63
Function Call: WRITE
  • Prompt: !,"24",?6,"Endocrine System",?54,"60000-60699",?68,$$C($G(^XTMP("APCLCAR",APCLJ,APCLH,"CPT",24)),0,8)
  • Line Location: PRINT+65
Function Call: WRITE
  • Prompt: !,"25",?6,"Nervous System",?54,"61000-64999",?68,$$C($G(^XTMP("APCLCAR",APCLJ,APCLH,"CPT",25)),0,8)
  • Line Location: PRINT+67
Function Call: WRITE
  • Prompt: !,"26",?6,"Eye and Ocular Adnexa System",?54,"65091-68899",?68,$$C($G(^XTMP("APCLCAR",APCLJ,APCLH,"CPT",26)),0,8)
  • Line Location: PRINT+69
Function Call: WRITE
  • Prompt: !,"27",?6,"Auditory System",?54,"69000-69990",?68,$$C($G(^XTMP("APCLCAR",APCLJ,APCLH,"CPT",27)),0,8)
  • Line Location: PRINT+71
Function Call: WRITE
  • Prompt: !,"28",?6,"Radiologyic and Lymphatic System",?54,"70010-79999",?68,$$C($G(^XTMP("APCLCAR",APCLJ,APCLH,"CPT",28)),0,8)
  • Line Location: PRINT+73
Function Call: WRITE
  • Prompt: !,"29",?6,"Pathology/Laboratory",?54,"80047-89356",?68,$$C($G(^XTMP("APCLCAR",APCLJ,APCLH,"CPT",29)),0,8)
  • Line Location: PRINT+75
Function Call: WRITE
  • Prompt: !,"30",?6,"Medicine - Special Services",?54,"90281-99091",!?54,"99170-99199",?68,$$C($G(^XTMP("APCLCAR",APCLJ,APCLH,"CPT",30)),0,8)
  • Line Location: PRINT+77
Function Call: WRITE
  • Prompt: !,"31",?6,"Family Planning 'Z' Codes",?54,"'Z' Codes",?68,$$C($G(^XTMP("APCLCAR",APCLJ,APCLH,"CPT",31)),0,8)
  • Line Location: PRINT+79
Function Call: WRITE
  • Prompt: !,"32",?6,"Dental Encounters",?54,"cdt codes",?68,$$C($G(^XTMP("APCLCAR",APCLJ,APCLH,"CPT",32)),0,8)
  • Line Location: PRINT+81
Function Call: WRITE
  • Prompt: !,"33",?6,"Category III Codes",?54,"0016T-9999T",?68,$$C($G(^XTMP("APCLCAR",APCLJ,APCLH,"CPT",33)),0,8)
  • Line Location: PRINT+83
Function Call: WRITE
  • Prompt: !,"44",?6,"All Other encounters",?68,$$C($G(^XTMP("APCLCAR",APCLJ,APCLH,"CPT",44)),0,8)
  • Line Location: PRINT+85
Function Call: WRITE
  • Prompt: !,"45",?6,"Total",?68,$$C(APCLTOTR,0,8)
  • Line Location: PRINT+86
Function Call: WRITE
  • Prompt: !!,"Visits with NO CPT Codes",?72,$$C(APCLNCPT,0,8)
  • Line Location: PRINT+88
Function Call: WRITE
  • Prompt: !,"50",?6,"Mammogram",?54,"77051-77059",?68,$$C($G(^XTMP("APCLCAR",APCLJ,APCLH,"CPT",50)),0,8)
  • Line Location: SPEC+4
Function Call: WRITE
  • Prompt: !?54,"86689, 86701-86703"
  • Line Location: SPEC+6
Function Call: WRITE
  • Prompt: !,"51",?6,"HIV Testing",?54,"87390-87391",?68,$$C($G(^XTMP("APCLCAR",APCLJ,APCLH,"CPT",51)),0,8)
  • Line Location: SPEC+7
Function Call: WRITE
  • Prompt: !?54,"88141-88155"
  • Line Location: SPEC+9
Function Call: WRITE
  • Prompt: !,"52",?6,"Pap Smear",?54,"88164-88167",!?54,"88174-88175",?68,$$C($G(^XTMP("APCLCAR",APCLJ,APCLH,"CPT",52)),0,8)
  • Line Location: SPEC+11
Function Call: WRITE
  • Prompt: !?54,"11975-11977"
  • Line Location: SPEC+14
Function Call: WRITE
  • Prompt: !?54,"55250,55450,57170"
  • Line Location: SPEC+16
Function Call: WRITE
  • Prompt: !,"53",?6,"Contraceptive Management",?54,"58300-58301",?68,$$C($G(^XTMP("APCLCAR",APCLJ,APCLH,"CPT",53)),0,8)
  • Line Location: SPEC+18
Function Call: WRITE
  • Prompt: !?54,"58600-58611",!?54,"58670-58671"
  • Line Location: SPEC+20
Function Call: WRITE
  • Prompt: !,?5,"Vaccinations:"
  • Line Location: SPEC+22
Function Call: WRITE
  • Prompt: !,"60",?6,"DTAP, DTP, Diphtheria",?54,"90698,90700-90703,"
  • Line Location: SPEC+24
Function Call: WRITE
  • Prompt: !?54,"90714-90715"
  • Line Location: SPEC+26
Function Call: WRITE
  • Prompt: !?54,"90718-90723",?68,$$C($G(^XTMP("APCLCAR",APCLJ,APCLH,"CPT",60)),0,8)
  • Line Location: SPEC+28
Function Call: WRITE
  • Prompt: !,"61",?6,"Hemophilus Influenza B (Hib)",?54,"90645-90648",?68,$$C($G(^XTMP("APCLCAR",APCLJ,APCLH,"CPT",61)),0,8)
  • Line Location: SPEC+30
Function Call: WRITE
  • Prompt: !,"62",?6,"Hepatitis A",?54,"90632-90634",!?54,"90636",?68,$$C($G(^XTMP("APCLCAR",APCLJ,APCLH,"CPT",62)),0,8)
  • Line Location: SPEC+32
Function Call: WRITE
  • Prompt: !,"63",?6,"Hepatitis B or HepB-HIB",?54,"90740-90747",?68,$$C($G(^XTMP("APCLCAR",APCLJ,APCLH,"CPT",63)),0,8)
  • Line Location: SPEC+34
Function Call: WRITE
  • Prompt: !,"64",?6,"HepB and Hib",?54,"90748",?68,$$C($G(^XTMP("APCLCAR",APCLJ,APCLH,"CPT",64)),0,8)
  • Line Location: SPEC+36
Function Call: WRITE
  • Prompt: !,"65",?6,"Influenza Virus Vaccine",?54,"90655-90658",!?54,"90660",!?54,"90661-90663",?68,$$C($G(^XTMP("APCLCAR",APCLJ,APCLH,"CPT",65)),0,8)
  • Line Location: SPEC+38
Function Call: WRITE
  • Prompt: !,"66",?6,"Measles, Mumps, Rubella"
  • Line Location: SPEC+40
Function Call: WRITE
  • Prompt: !,?6,"and Varicella (MMRV)",?54,"90704-90708",!?54,"90710",?68,$$C($G(^XTMP("APCLCAR",APCLJ,APCLH,"CPT",66)),0,8)
  • Line Location: SPEC+41
Function Call: WRITE
  • Prompt: !,"67",?6,"Pneumococcal",?54,"90669,90732",?68,$$C($G(^XTMP("APCLCAR",APCLJ,APCLH,"CPT",67)),0,8)
  • Line Location: SPEC+43
Function Call: WRITE
  • Prompt: !,"68",?6,"Poliovirus",?54,"90712-90713",?68,$$C($G(^XTMP("APCLCAR",APCLJ,APCLH,"CPT",68)),0,8)
  • Line Location: SPEC+45
Function Call: WRITE
  • Prompt: !,"69",?6,"Varicella",?54,"90716",?68,$$C($G(^XTMP("APCLCAR",APCLJ,APCLH,"CPT",69)),0,8)
  • Line Location: SPEC+47
Function Call: WRITE
  • Prompt: !,"75",?6,"Total Selected Encounters",?68,$$C(APCLSPE1+APCLSPE2,0,8)
  • Line Location: SPEC+49
Function Call: WRITE
  • Prompt: !
  • Line Location: HEADER+2
Function Call: WRITE
  • Prompt: !?3,$P(^VA(200,DUZ,0),U,2),?35,$$FMTE^XLFDT(DT),?70,"Page ",APCLPG,!
  • Line Location: HEAD1+2
Function Call: WRITE
  • Prompt: !,$$CTR("*** CALIFORNIA ANNUAL UTILIZATION REPORT OF PRIMARY CARE CLINICS, 2008 ***",80),!
  • Line Location: HEAD1+3
Function Call: WRITE
  • Prompt: $$CTR(X,80),!
  • Line Location: HEAD1+5
Function Call: WRITE
  • Prompt: $$CTR(X,80),!
  • Line Location: HEAD1+10
Function Call: WRITE
  • Prompt: !,"ENCOUNTERS BY PRINCIPAL SERVICE - SECTION 5"
  • Line Location: HEAD1+11
Function Call: WRITE
  • Prompt: !,$TR($J("",80)," ","_")
  • Line Location: HEAD1+12
Function Call: WRITE
  • Prompt: !,"Line",?54,"2006",?68,"(1) No."
  • Line Location: HEAD1+13
Function Call: WRITE
  • Prompt: !,"No.",?7,APCLH1,?54,"CPT Codes",?68,"of Encs",!
  • Line Location: HEAD1+14
Function Call: WRITE
  • Prompt: !,$TR($J("",80)," ","_")
  • Line Location: HEAD1+15
Function Call: WRITE
  • Prompt: !,$TR($J("",80)," ","_")
  • Line Location: L+1
Routine Call
  • DIR
  • Line Location:
    • HEADER+2

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DIC(4 - [#4] HEAD1+8
^VA(200 - [#200] HEAD1+2
^XTMP("APCLCAR" PRINT+5, PRINT+7, PRINT+9, PRINT+11, PRINT+16, PRINT+20, PRINT+22, PRINT+26, PRINT+32, PRINT+34
, PRINT+39, PRINT+41, PRINT+43, PRINT+45, PRINT+47, PRINT+49, PRINT+51, PRINT+53, PRINT+55, PRINT+57
, PRINT+59, PRINT+61, PRINT+63, PRINT+65, PRINT+67, PRINT+69, PRINT+71, PRINT+73, PRINT+75, PRINT+77
, PRINT+79, PRINT+81, PRINT+83, PRINT+85, SPEC+4, SPEC+7, SPEC+11, SPEC+18, SPEC+28, SPEC+30
, SPEC+32, SPEC+34, SPEC+36, SPEC+38, SPEC+41, SPEC+43, SPEC+45, SPEC+47

Label References

Name Line Occurrences
$$C PRINT+5, PRINT+7, PRINT+9, PRINT+11, PRINT+16, PRINT+20, PRINT+22, PRINT+26, PRINT+32, PRINT+34
, PRINT+39, PRINT+41, PRINT+43, PRINT+45, PRINT+47, PRINT+49, PRINT+51, PRINT+53, PRINT+55, PRINT+57
, PRINT+59, PRINT+61, PRINT+63, PRINT+65, PRINT+67, PRINT+69, PRINT+71, PRINT+73, PRINT+75, PRINT+77
, PRINT+79, PRINT+81, PRINT+83, PRINT+85, PRINT+86, PRINT+88, SPEC+4, SPEC+7, SPEC+11, SPEC+18
, SPEC+28, SPEC+30, SPEC+32, SPEC+34, SPEC+36, SPEC+38, SPEC+41, SPEC+43, SPEC+45, SPEC+47
, SPEC+49
$$CTR HEAD1+3, HEAD1+5, HEAD1+10
HEAD1 HEADER+1
HEADER PRINT+2, PRINT+4, PRINT+6, PRINT+8, PRINT+10, PRINT+12, PRINT+15, PRINT+17, PRINT+19, PRINT+21
, PRINT+23, PRINT+25, PRINT+27, PRINT+29, PRINT+31, PRINT+33, PRINT+35, PRINT+37, PRINT+40, PRINT+42
, PRINT+44, PRINT+46, PRINT+48, PRINT+50, PRINT+52, PRINT+54, PRINT+56, PRINT+58, PRINT+60, PRINT+62
, PRINT+64, PRINT+66, PRINT+68, PRINT+70, PRINT+72, PRINT+74, PRINT+76, PRINT+78, PRINT+80, PRINT+82
, PRINT+84, PRINT+87, SPEC+1, SPEC+2, SPEC+5, SPEC+8, SPEC+10, SPEC+13, SPEC+15, SPEC+17
, SPEC+19, SPEC+21, SPEC+23, SPEC+25, SPEC+27, SPEC+29, SPEC+31, SPEC+33, SPEC+35, SPEC+37
, SPEC+39, SPEC+42, SPEC+44, SPEC+46, SPEC+48
L PRINT+5, PRINT+7, PRINT+9, PRINT+11, PRINT+18, PRINT+20, PRINT+22, PRINT+28, PRINT+32, PRINT+34
, PRINT+39, PRINT+41, PRINT+43, PRINT+45, PRINT+47, PRINT+49, PRINT+51, PRINT+53, PRINT+55, PRINT+57
, PRINT+59, PRINT+61, PRINT+63, PRINT+65, PRINT+67, PRINT+69, PRINT+71, PRINT+73, PRINT+75, PRINT+77
, PRINT+79, PRINT+81, PRINT+83, PRINT+85, PRINT+86, SPEC+4, SPEC+7, SPEC+11, SPEC+20, SPEC+22
, SPEC+28, SPEC+30, SPEC+32, SPEC+34, SPEC+36, SPEC+38, SPEC+41, SPEC+43, SPEC+45, SPEC+47
, SPEC+49

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
% EOJ+2!
>> APCLBD HEAD1+10
>> APCLED HEAD1+10
>> APCLH PRINT+5, PRINT+7, PRINT+9, PRINT+11, PRINT+16, PRINT+20, PRINT+22, PRINT+26, PRINT+32, PRINT+34
, PRINT+39, PRINT+41, PRINT+43, PRINT+45, PRINT+47, PRINT+49, PRINT+51, PRINT+53, PRINT+55, PRINT+57
, PRINT+59, PRINT+61, PRINT+63, PRINT+65, PRINT+67, PRINT+69, PRINT+71, PRINT+73, PRINT+75, PRINT+77
, PRINT+79, PRINT+81, PRINT+83, PRINT+85, SPEC+4, SPEC+7, SPEC+11, SPEC+18, SPEC+28, SPEC+30
, SPEC+32, SPEC+34, SPEC+36, SPEC+38, SPEC+41, SPEC+43, SPEC+45, SPEC+47
>> APCLH1 PRINT+1*, SPEC+1*, HEAD1+14
>> APCLJ PRINT+5, PRINT+7, PRINT+9, PRINT+11, PRINT+16, PRINT+20, PRINT+22, PRINT+26, PRINT+32, PRINT+34
, PRINT+39, PRINT+41, PRINT+43, PRINT+45, PRINT+47, PRINT+49, PRINT+51, PRINT+53, PRINT+55, PRINT+57
, PRINT+59, PRINT+61, PRINT+63, PRINT+65, PRINT+67, PRINT+69, PRINT+71, PRINT+73, PRINT+75, PRINT+77
, PRINT+79, PRINT+81, PRINT+83, PRINT+85, SPEC+4, SPEC+7, SPEC+11, SPEC+18, SPEC+28, SPEC+30
, SPEC+32, SPEC+34, SPEC+36, SPEC+38, SPEC+41, SPEC+43, SPEC+45, SPEC+47
>> APCLLOCT HEAD1+5, HEAD1+6
>> APCLLOCT( HEAD1+8
>> APCLNCPT PRINT+88
>> APCLPG HEADER+1, HEAD1+1*, HEAD1+2
>> APCLQUIT PRINT+4, PRINT+6, PRINT+8, PRINT+10, PRINT+12, PRINT+15, PRINT+17, PRINT+19, PRINT+21, PRINT+23
, PRINT+25, PRINT+27, PRINT+29, PRINT+31, PRINT+33, PRINT+35, PRINT+37, PRINT+40, PRINT+42, PRINT+44
, PRINT+46, PRINT+48, PRINT+50, PRINT+52, PRINT+54, PRINT+56, PRINT+58, PRINT+60, PRINT+62, PRINT+64
, PRINT+66, PRINT+68, PRINT+70, PRINT+72, PRINT+74, PRINT+76, PRINT+78, PRINT+80, PRINT+82, PRINT+84
, PRINT+87, SPEC+1, SPEC+2, SPEC+5, SPEC+8, SPEC+10, SPEC+13, SPEC+15, SPEC+17, SPEC+19
, SPEC+21, SPEC+23, SPEC+25, SPEC+27, SPEC+29, SPEC+31, SPEC+33, SPEC+35, SPEC+37, SPEC+39
, SPEC+42, SPEC+44, SPEC+46, SPEC+48, HEADER+2*
>> APCLSPE1 SPEC+49
>> APCLSPE2 SPEC+49
>> APCLTOTR PRINT+86
B EOJ+2!
C EOJ+2!
DIR HEADER+2!
DIR(0 HEADER+2*
DT HEAD1+2
>> DTOUT HEADER+2
DUZ HEAD1+2
E EOJ+2!
F EOJ+2!
H EOJ+2!
IO HEADER+2
IO(0 HEADER+2
IOF HEAD1+1
IOM CTR+1
IOSL PRINT+4, PRINT+6, PRINT+8, PRINT+10, PRINT+12, PRINT+15, PRINT+17, PRINT+19, PRINT+21, PRINT+23
, PRINT+25, PRINT+27, PRINT+29, PRINT+31, PRINT+33, PRINT+35, PRINT+37, PRINT+40, PRINT+42, PRINT+44
, PRINT+46, PRINT+48, PRINT+50, PRINT+52, PRINT+54, PRINT+56, PRINT+58, PRINT+60, PRINT+62, PRINT+64
, PRINT+66, PRINT+68, PRINT+70, PRINT+72, PRINT+74, PRINT+76, PRINT+78, PRINT+80, PRINT+82, PRINT+84
, PRINT+87, SPEC+2, SPEC+5, SPEC+8, SPEC+10, SPEC+13, SPEC+15, SPEC+17, SPEC+19, SPEC+21
, SPEC+23, SPEC+25, SPEC+27, SPEC+29, SPEC+31, SPEC+33, SPEC+35, SPEC+37, SPEC+39, SPEC+42
, SPEC+44, SPEC+46, SPEC+48
IOST HEADER+2
L EOJ+2!
N EOJ+2!
P EOJ+2!
T EOJ+2!
U HEAD1+2, HEAD1+8
W EOJ+2!
X EOJ+2!, C~, C+2, HEAD1+5*, HEAD1+7*, HEAD1+8*, HEAD1+9, HEAD1+10*, CTR~, CTR+1
X2 C~
X3 C~
Y EOJ+2!, HEADER+2, HEAD1+8*, CTR~, CTR+1
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables |  All