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

Package: Patient Care Component Reports

Routine: APCLACGM


Information

APCLACGM ;IHS/CMI/LAB - A/C monthly report; [ 12/9/2009 19:39 PM ]

Source Information

Source file <APCLACGM.m>

Call Graph

Call Graph Total: 12

Package Total Call Graph
Patient Care Component Reports 4 $$LASTLAB^APCLAPIU  $$START1^APCLDF  DONE^APCLOSUT  $$VD^APCLV  
VA Fileman 3 DD^%DT  (COMMA,NOW)^%DTC  ^DIR  
Kernel 2 $$FMTE^XLFDT  $$STRIP^XLFSTR  
IHS Patient 1 ($$DOB,$$HRN)^AUPNPAT  
IHS VA Utilities 1 $$VAL^XBDIQ1  
Patient Care Component 1 $$D1^APCHSMU  

Caller Graph

Caller Graph Total: 2

Package Total Caller Graph
Patient Care Component Reports 2 APCLACG  APCLACG1  

Entry Points

Name Comments DBIA/ICR reference
PER(N,D) ;return % of n/d
LIST5 ;all patient in ^TMP($J,"PATIENTS"
LIST4 ;all patient in ^TMP($J,"PATIENTS"
LIST1 ;all patient in ^TMP($J,"PATIENTS"
LIST3 ;all patient in ^TMP($J,"PATIENTS"
LIST2 ;all patient in ^TMP($J,"PATIENTS"
USR() ;EP - Return name of current user from ^VA(200.
EOP ;EP - End of page.
DONE ;
SUBHEAD1 ;
SUBHEAD2 ;
SUBHEAD3 ;
PRINT ;
LOC() ;EP - Return location name from file 4 based on DUZ(2).
CTR(X,Y) ;EP - Center X in a field Y wide.
INRGOAL(P,A) ;EP - inr goal documented on or before this date
MONT ;
HEAD
MRGOAL(P) ;PEP - most recent INR goal and date
VITK ;
LASTINR(P,BD,ED) ;EP
C(X,X2,X3) ;
HEAD1 ;
RPTPOP ;report population
LISTS ;

External References

Name Field # of Occurrence
DD^%DT PRINT+2
COMMA^%DTC C+2
NOW^%DTC PRINT+2
$$D1^APCHSMU RPTPOP+32, RPTPOP+36, VITK+10, VITK+13, VITK+16, LIST1+7, LIST1+10, LIST2+7, LIST2+10, LIST3+7
, LIST3+10, LIST4+7, LIST4+10, LIST5+7, LIST5+10
$$LASTLAB^APCLAPIU LASTINR+2
$$START1^APCLDF RPTPOP+40, VITK+18
DONE^APCLOSUT APCLACGM+7
$$VD^APCLV MRGOAL+13
$$DOB^AUPNPAT RPTPOP+32, VITK+10, LIST1+7, LIST2+7, LIST3+7, LIST4+7, LIST5+7
$$HRN^AUPNPAT RPTPOP+32, VITK+10, LIST1+7, LIST2+7, LIST3+7, LIST4+7, LIST5+7
^DIR HEAD+1, EOP+5
$$VAL^XBDIQ1 MRGOAL+12, INRGOAL+14
$$FMTE^XLFDT PRINT+8, PRINT+13, RPTPOP+13, HEAD1+2
$$STRIP^XLFSTR C+3, PER+4

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,"Date Range:",?40,$$FMTE^XLFDT(APCLBD)," - ",$$FMTE^XLFDT(APCLED),!
  • Line Location: PRINT+8
Function Call: WRITE
  • Prompt: !,"Total Demographics",!
  • Line Location: PRINT+9
Function Call: WRITE
  • Prompt: !,"User Population",?40,$J($$C(APCLUPOP,0,8),12),!
  • Line Location: PRINT+10
Function Call: WRITE
  • Prompt: !,"Number of patients in the User Population",!
  • Line Location: PRINT+11
Function Call: WRITE
  • Prompt: "who had a prescription for Warfarin in the",!
  • Line Location: PRINT+12
Function Call: WRITE
  • Prompt: "45 days prior to ",$$FMTE^XLFDT(APCLED),".",?40,$J($$C(APCLUPWR,0,8),12),?55,$$PER(APCLUPWR,APCLUPOP)," (of User Pop)",!
  • Line Location: PRINT+13
Function Call: WRITE
  • Prompt: !,"Number of patients on Warfarin managed "
  • Line Location: PRINT+14
Function Call: WRITE
  • Prompt: !,"by the Anticoagulation Clinic (had a visit",!,"to Anticoagulation clinic in the ",!,"time period",?40,$J($$C(APCLUPAC,0,8),12),?55,$$PER(APCLUPAC,APCLUPWR)," (of Warfarin Pop)"
  • Line Location: PRINT+15
Function Call: WRITE
  • Prompt: !!,"Report Demographics",!
  • Line Location: RPTPOP+1
Function Call: WRITE
  • Prompt: !,"Report Population:"
  • Line Location: RPTPOP+2
Function Call: WRITE
  • Prompt: ?40,"Warfarin Patients",!
  • Line Location: RPTPOP+3
Function Call: WRITE
  • Prompt: ?40,"Anticoagulation Clinic Patients",!
  • Line Location: RPTPOP+4
Function Call: WRITE
  • Prompt: ?40,$P(^DIC(40.7,X,0),U),!
  • Line Location: RPTPOP+5
Function Call: WRITE
  • Prompt: ?40,"Search Template: ",!?40,$P(^DIBT(APCLSTMP,0),U),!
  • Line Location: RPTPOP+6
Function Call: WRITE
  • Prompt: ?40,"iCare Panel: ",!?40,$P(APCLICP,U,3),!
  • Line Location: RPTPOP+7
Function Call: WRITE
  • Prompt: ?40,"EHR Personal List: ",!?40,$P(APCLICP,U,3),!
  • Line Location: RPTPOP+8
Function Call: WRITE
  • Prompt: !,"Number of patients included on this",!,"report",?40,$J($$C(APCLRPOP,0,8),12),!
  • Line Location: RPTPOP+9
Function Call: WRITE
  • Prompt: !,"Number of patients included in this ",!
  • Line Location: RPTPOP+11
Function Call: WRITE
  • Prompt: "report who had a prescription for Warfarin ",!
  • Line Location: RPTPOP+12
Function Call: WRITE
  • Prompt: "in the 45 days prior to ",$$FMTE^XLFDT(APCLED),".",?40,$J($$C(APCLRPWR,0,8),12),?55,$$PER(APCLRPWR,APCLRPOP)," (of Report Pop)",!
  • Line Location: RPTPOP+13
Function Call: WRITE
  • Prompt: !,"Number of patients on Warfarin managed ",!
  • Line Location: RPTPOP+15
Function Call: WRITE
  • Prompt: "by the Anticoagulation Clinic (had a visit",!,"to Anticoagulation clinic in the ",!,"time period",?40,$J($$C(APCLRPWA,0,8),12),?55,$$PER(APCLRPWA,APCLRPWR)," (of Warfarin Pop)",!
  • Line Location: RPTPOP+16
Function Call: WRITE
  • Prompt: !,"Number of patients included on this",!
  • Line Location: RPTPOP+18
Function Call: WRITE
  • Prompt: "report who had a prescription for Warfarin",!
  • Line Location: RPTPOP+19
Function Call: WRITE
  • Prompt: "AND had a documented INR within the 45",!
  • Line Location: RPTPOP+20
Function Call: WRITE
  • Prompt: "days prior to the end of the report:",?40,$J($$C(APCLRPIN,0,8),12),?55,$$PER(APCLRPIN,APCLRPWR)," (of Rep/INR Pop)",!
  • Line Location: RPTPOP+21
Function Call: WRITE
  • Prompt: !,"Number of patients included on this",!
  • Line Location: RPTPOP+23
Function Call: WRITE
  • Prompt: "report who had a prescription for Warfarin",!
  • Line Location: RPTPOP+24
Function Call: WRITE
  • Prompt: "AND had an INR value greater than or equal",!
  • Line Location: RPTPOP+25
Function Call: WRITE
  • Prompt: "to 9.0 during the report date range:",?40,$J($$C(APCLRPI9,0,8),12),?55,$$PER(APCLRPI9,APCLRPIN)," (of Rep/War Pop)",!
  • Line Location: RPTPOP+26
Function Call: WRITE
  • Prompt: !?3,"Patients who had an INR > 9 this month:",!
  • Line Location: RPTPOP+28
Function Call: WRITE
  • Prompt: " ",$P(APCLD(X),U,2)
  • Line Location: RPTPOP+42
Function Call: WRITE
  • Prompt: !!!,"Number of patients included on this",!
  • Line Location: VITK+2
Function Call: WRITE
  • Prompt: "report who had a prescription for Vitamin K",!
  • Line Location: VITK+3
Function Call: WRITE
  • Prompt: "during the report date range:",?40,$J($$C(APCLRPVK,0,8),12),?55,$$PER(APCLRPVK,APCLRPWR)," (of Rep/War Pop)",!
  • Line Location: VITK+4
Function Call: WRITE
  • Prompt: !?3,"Patients who received Vitamin K this month:",!
  • Line Location: VITK+6
Function Call: WRITE
  • Prompt: " ",$P(APCLD(X),U,2)
  • Line Location: VITK+20
Function Call: WRITE
  • Prompt: !,"Number of patients included on this",!
  • Line Location: MONT+2
Function Call: WRITE
  • Prompt: "report who had a prescription for Warfarin,",!
  • Line Location: MONT+3
Function Call: WRITE
  • Prompt: "are within their INR Goal range and were",!
  • Line Location: MONT+4
Function Call: WRITE
  • Prompt: "monitored this month",?40,$J($$C(APCLRPMI,0,8),12),?55,$$PER(APCLRPMI,APCLRPWR)," (of Rep/War Pop)",!
  • Line Location: MONT+5
Function Call: WRITE
  • Prompt: !,"Number of patients included on this",!
  • Line Location: MONT+7
Function Call: WRITE
  • Prompt: "report who had a prescription for Warfarin,",!
  • Line Location: MONT+8
Function Call: WRITE
  • Prompt: "are within their INR Goal range but were",!
  • Line Location: MONT+9
Function Call: WRITE
  • Prompt: "NOT monitored this month",?40,$J($$C(APCLRPNI,0,8),12),?55,$$PER(APCLRPNI,APCLRPWR)," (of Rep/War Pop)",!
  • Line Location: MONT+10
Function Call: WRITE
  • Prompt: !,"Number of patients included on this",!
  • Line Location: MONT+12
Function Call: WRITE
  • Prompt: "report who had a prescription for Warfarin,",!
  • Line Location: MONT+13
Function Call: WRITE
  • Prompt: "who are NOT within their INR Goal range but",!
  • Line Location: MONT+14
Function Call: WRITE
  • Prompt: "were monitored this month",?40,$J($$C(APCLRPMN,0,8),12),?55,$$PER(APCLRPMN,APCLRPWR)," (of Rep/War Pop)",!
  • Line Location: MONT+15
Function Call: WRITE
  • Prompt: !,"Number of patients included on this",!
  • Line Location: MONT+17
Function Call: WRITE
  • Prompt: "report who had a prescription for Warfarin,",!
  • Line Location: MONT+18
Function Call: WRITE
  • Prompt: "who are NOT within their INR Goal range and",!
  • Line Location: MONT+19
Function Call: WRITE
  • Prompt: "were NOT monitored this month",?40,$J($$C(APCLRPNN,0,8),12),?55,$$PER(APCLRPNN,APCLRPWR)," (of Rep/War Pop)",!
  • Line Location: MONT+20
Function Call: WRITE
  • Prompt: !,"Number of patients included on this",!
  • Line Location: MONT+22
Function Call: WRITE
  • Prompt: "report who had a prescription for Warfarin,",!
  • Line Location: MONT+23
Function Call: WRITE
  • Prompt: "who were monitored this month but their INR",!
  • Line Location: MONT+24
Function Call: WRITE
  • Prompt: "in goal status could not be determined",?40,$J($$C(APCLRPMU,0,8),12),?55,$$PER(APCLRPMU,APCLRPWR)," (of Rep/War Pop)",!
  • Line Location: MONT+25
Function Call: WRITE
  • Prompt: !,"Number of patients included on this",!
  • Line Location: MONT+27
Function Call: WRITE
  • Prompt: "report who had a prescription for Warfarin,",!
  • Line Location: MONT+28
Function Call: WRITE
  • Prompt: "who were NOT monitored this month and their INR",!
  • Line Location: MONT+29
Function Call: WRITE
  • Prompt: "in goal status could not be determined",?40,$J($$C(APCLRPNU,0,8),12),?55,$$PER(APCLRPNU,APCLRPWR)," (of Rep/War Pop)",!
  • Line Location: MONT+30
Function Call: WRITE
  • Prompt: !!,"No data to report."
  • Line Location: LIST1+4
Function Call: WRITE
  • Prompt: !!,"No data to report."
  • Line Location: LIST2+4
Function Call: WRITE
  • Prompt: !!,"No data to report."
  • Line Location: LIST3+4
Function Call: WRITE
  • Prompt: !!,"No data to report."
  • Line Location: LIST4+4
Function Call: WRITE
  • Prompt: !!,"No data to report."
  • Line Location: LIST5+4
Function Call: WRITE
  • Prompt: !?1,"NAME",?25,"HRN",?32,"DOB",?43,"INR GOAL",?56,"Last INR",?66,"Last INR Date",!?62,"(in rpt period)",!
  • Line Location: SUBHEAD2+1
Function Call: WRITE
  • Prompt: APCL80S,!
  • Line Location: SUBHEAD2+2
Function Call: WRITE
  • Prompt: !?1,"NAME",?25,"HRN",?32,"DOB",?43,"GOAL INR",?56,"INR Value",?66,"INR Date",!
  • Line Location: SUBHEAD1+1
Function Call: WRITE
  • Prompt: APCL80S,!
  • Line Location: SUBHEAD1+2
Function Call: WRITE
  • Prompt: !?1,"NAME",?25,"HRN",?32,"DOB",?43,"INR GOAL",?56,"LAST INR",?66,"LAST INR DATE",!,?46,"----- last in report period -----",!
  • Line Location: SUBHEAD3+1
Function Call: WRITE
  • Prompt: APCL80S,!
  • Line Location: SUBHEAD3+2
Function Call: WRITE
  • Prompt: !
  • Line Location: HEAD+1
Function Call: WRITE
  • Prompt: $$FMTE^XLFDT(DT),?72,"Page ",APCLPG,!
  • Line Location: HEAD1+2
Function Call: WRITE
  • Prompt: !,$$CTR($$LOC())
  • Line Location: HEAD1+3
Function Call: WRITE
  • Prompt: !!,$$CTR("ANTICOAGULATION INR MANAGEMENT REPORT",80),!
  • Line Location: HEAD1+4
Function Call: WRITE
  • Prompt: !,"PATIENT LIST",!,$$CTR(APCLSHD),!
  • Line Location: HEAD1+5
Function Call: WRITE
  • Prompt: APCL80S,!
  • Line Location: HEAD1+6
Routine Call
  • DIR
  • Line Location:
    • HEAD+1
    • EOP+5

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^ATXAX("B" LASTINR+2
^ATXLAB("B" LASTINR+2
^AUPNVACG - [#9000010.51] MRGOAL+8, MRGOAL+9, MRGOAL+10, MRGOAL+11, MRGOAL+13, INRGOAL+8, INRGOAL+9, INRGOAL+12, INRGOAL+13
^AUPNVACG("AA" MRGOAL+2, MRGOAL+5, MRGOAL+6, MRGOAL+7, INRGOAL+2, INRGOAL+5, INRGOAL+6, INRGOAL+7
^DIBT( RPTPOP+6
^DIC(4 - [#4] LOC+1
^DIC(40.7 - [#40.7] RPTPOP+5
^DPT - [#2] RPTPOP+32, VITK+10, LIST1+7, LIST2+7, LIST3+7, LIST4+7, LIST5+7
^VA(200 - [#200] USR+1
^XTMP("APCLACG" APCLACGM+5!, RPTPOP+30, RPTPOP+33, RPTPOP+34, RPTPOP+35, VITK+8, VITK+16, LIST1+4, LIST1+5, LIST2+4
, LIST2+5, LIST3+4, LIST3+5, LIST4+4, LIST4+5, LIST5+4, LIST5+5

Label References

Name Line Occurrences
$$C PRINT+10, PRINT+13, PRINT+15, RPTPOP+9, RPTPOP+13, RPTPOP+16, RPTPOP+21, RPTPOP+26, VITK+4, MONT+5
, MONT+10, MONT+15, MONT+20, MONT+25, MONT+30
$$CTR HEAD1+3, HEAD1+4, HEAD1+5
$$INRGOAL RPTPOP+36, VITK+11, LIST1+8, LIST2+8, LIST3+8, LIST4+8, LIST5+8
$$LASTINR VITK+12, LIST1+9, LIST2+9, LIST3+9, LIST4+9, LIST5+9
$$LOC HEAD1+3
$$PER PRINT+13, PRINT+15, RPTPOP+13, RPTPOP+16, RPTPOP+21, RPTPOP+26, VITK+4, MONT+5, MONT+10, MONT+15
, MONT+20, MONT+25, MONT+30
DONE LISTS+1, LISTS+3, LISTS+5, LISTS+7, LISTS+9
HEAD PRINT+5, PRINT+16, RPTPOP+10, RPTPOP+14, RPTPOP+17, RPTPOP+22, RPTPOP+27, RPTPOP+31, RPTPOP+38, VITK+1
, VITK+5, VITK+9, VITK+15, MONT+1, MONT+6, MONT+11, MONT+16, MONT+21, MONT+26, LIST1+2
, LIST1+6, LIST2+2, LIST2+6, LIST3+2, LIST3+6, LIST4+2, LIST4+6, LIST5+2, LIST5+6
HEAD1 HEAD
LIST1 LISTS+2
LIST2 LISTS+4
LIST3 LISTS+6
LIST4 LISTS+8
LIST5 LISTS+10
PRINT APCLACGM+4
SUBHEAD1 RPTPOP+29, RPTPOP+31, RPTPOP+38
SUBHEAD2 VITK+7, VITK+9, VITK+15
SUBHEAD3 LIST1+6, LIST2+6, LIST3+6, LIST4+6, LIST5+6, HEAD1+7

Naked Globals

Name Field # of Occurrence
^(0 USR+1, LOC+1

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> % RPTPOP+40*, VITK+18*
A INRGOAL~, INRGOAL+11
>> APCL80S PRINT+1*, SUBHEAD2+2, SUBHEAD1+2, SUBHEAD3+2, HEAD1+6
>> APCLACCR( RPTPOP+5
>> APCLAP PRINT+3*
>> APCLBD PRINT+8, RPTPOP+40, VITK+12, VITK+18, LIST1+9, LIST2+9, LIST3+9, LIST4+9, LIST5+9
APCLBTH APCLACGM+5, APCLACGM+6!, RPTPOP+30, RPTPOP+33, RPTPOP+34, RPTPOP+35, VITK+8, VITK+16, LIST1+4, LIST1+5
, LIST2+4, LIST2+5, LIST3+4, LIST3+5, LIST4+4, LIST4+5, LIST5+4, LIST5+5
APCLD RPTPOP+39!, VITK+17!
APCLD( RPTPOP+42, VITK+20
>> APCLDT PRINT+2*
>> APCLED PRINT+8, PRINT+13, RPTPOP+13, RPTPOP+36, RPTPOP+40, VITK+11, VITK+12, VITK+18, LIST1+8, LIST1+9
, LIST2+8, LIST2+9, LIST3+8, LIST3+9, LIST4+8, LIST4+9, LIST5+8, LIST5+9
>> APCLGRP RPTPOP+3, RPTPOP+4, RPTPOP+6, RPTPOP+7, RPTPOP+8
>> APCLI RPTPOP+34*, RPTPOP+35
>> APCLICP RPTPOP+7, RPTPOP+8
APCLJOB APCLACGM+5, APCLACGM+6!, RPTPOP+30, RPTPOP+33, RPTPOP+34, RPTPOP+35, VITK+8, VITK+16, LIST1+4, LIST1+5
, LIST2+4, LIST2+5, LIST3+4, LIST3+5, LIST4+4, LIST4+5, LIST5+4, LIST5+5
>> APCLL VITK+12*, VITK+13, LIST1+9*, LIST1+10, LIST2+9*, LIST2+10, LIST3+9*, LIST3+10, LIST4+9*, LIST4+10
, LIST5+9*, LIST5+10
>> APCLLIST LISTS+1
>> APCLLIST(1 LISTS+2
>> APCLLIST(2 LISTS+4
>> APCLLIST(3 LISTS+6
>> APCLLIST(4 LISTS+8
>> APCLLIST(5 LISTS+10
>> APCLPG PRINT+3*, HEAD, HEAD1+1*, HEAD1+2
APCLQUIT PRINT+4!, PRINT+16, RPTPOP+10, RPTPOP+14, RPTPOP+17, RPTPOP+22, RPTPOP+27, RPTPOP+30, RPTPOP+31, RPTPOP+33
, RPTPOP+34, RPTPOP+38, VITK+1, VITK+5, VITK+8, VITK+9, VITK+15, MONT+1, MONT+6, MONT+11
, MONT+16, MONT+21, MONT+26, LISTS+3, LISTS+5, LISTS+7, LISTS+9, LISTS+11, LIST1+3, LIST1+5
, LIST1+6, LIST2+3, LIST2+5, LIST2+6, LIST3+3, LIST3+5, LIST3+6, LIST4+3, LIST4+5, LIST4+6
, LIST5+3, LIST5+5, LIST5+6, HEAD+1*
>> APCLR RPTPOP+35*, RPTPOP+36
>> APCLRPI9 RPTPOP+26
>> APCLRPIN RPTPOP+21, RPTPOP+26
>> APCLRPMI MONT+5
>> APCLRPMN MONT+15
>> APCLRPMU MONT+25
>> APCLRPNI MONT+10
>> APCLRPNN MONT+20
>> APCLRPNU MONT+30
>> APCLRPOP RPTPOP+9, RPTPOP+13
>> APCLRPVK VITK+4
>> APCLRPWA RPTPOP+16
>> APCLRPWR RPTPOP+13, RPTPOP+16, RPTPOP+21, VITK+4, MONT+5, MONT+10, MONT+15, MONT+20, MONT+25, MONT+30
>> APCLSHD PRINT+7*, LIST1+1*, LIST2+1*, LIST3+1*, LIST4+1*, LIST5+1*, HEAD1+5, HEAD1+7
>> APCLSTMP RPTPOP+6
>> APCLUPAC PRINT+15
>> APCLUPOP PRINT+10, PRINT+13
>> APCLUPWR PRINT+13, PRINT+15
APCLVAL LASTINR+1~, LASTINR+2*, LASTINR+3
>> APCLVD RPTPOP+33*, RPTPOP+34, RPTPOP+35, RPTPOP+36
BD LASTINR~, LASTINR+2
D MRGOAL+3~, MRGOAL+5*, MRGOAL+6, MRGOAL+7, INRGOAL+3~, INRGOAL+5*, INRGOAL+6, INRGOAL+7, PER~, PER+1
, PER+3
>> DFN RPTPOP+30*, RPTPOP+32, RPTPOP+33, RPTPOP+34, RPTPOP+35, RPTPOP+36, RPTPOP+40, VITK+8*, VITK+10, VITK+11
, VITK+12, VITK+16, VITK+18, LIST1+5*, LIST1+7, LIST1+8, LIST1+9, LIST2+5*, LIST2+7, LIST2+8
, LIST2+9, LIST3+5*, LIST3+7, LIST3+8, LIST3+9, LIST4+5*, LIST4+7, LIST4+8, LIST4+9, LIST5+5*
, LIST5+7, LIST5+8, LIST5+9
DFOUT EOP+4!
DIR HEAD+1!, EOP+3~
DIR(0 HEAD+1*, EOP+5*
DIRUT EOP+4!
DLOUT EOP+4!
DT HEAD1+2
DTOUT HEAD+1, EOP+4!
DUOUT EOP+4!
DUZ USR+1
DUZ(2 RPTPOP+32, VITK+10, LIST1+7, LIST2+7, LIST3+7, LIST4+7, LIST5+7, LOC+1
>> E RPTPOP+40*, VITK+18*
ED LASTINR~, LASTINR+2
I MRGOAL+3~, MRGOAL+7*, MRGOAL+8, MRGOAL+9, MRGOAL+10, MRGOAL+11, MRGOAL+12, MRGOAL+13, INRGOAL+3~, INRGOAL+7*
, INRGOAL+8, INRGOAL+9, INRGOAL+12, INRGOAL+13, INRGOAL+14
IO HEAD+1
IO("S" EOP+2
IO(0 HEAD+1
IOF HEAD1+1
IOM CTR+1
IOSL PRINT+16, RPTPOP+10, RPTPOP+14, RPTPOP+17, RPTPOP+22, RPTPOP+27, RPTPOP+31, RPTPOP+38, VITK+1, VITK+5
, VITK+9, VITK+15, MONT+1, MONT+6, MONT+11, MONT+16, MONT+21, MONT+26, LIST1+6, LIST2+6
, LIST3+6, LIST4+6, LIST5+6
IOST HEAD+1, EOP+1
>> IOT EOP+2
J INRGOAL+3~, INRGOAL+10*, INRGOAL+11
N PER~, PER+3
P LASTINR~, LASTINR+2, MRGOAL~, MRGOAL+1, MRGOAL+2, MRGOAL+5, MRGOAL+6, MRGOAL+7, INRGOAL~, INRGOAL+1
, INRGOAL+2, INRGOAL+5, INRGOAL+6, INRGOAL+7
R MRGOAL+3~, MRGOAL+4*, MRGOAL+5, MRGOAL+6, MRGOAL+13*, MRGOAL+14, INRGOAL+3~, INRGOAL+4*, INRGOAL+5, INRGOAL+6
, INRGOAL+15*, INRGOAL+16
S MRGOAL+3~, MRGOAL+11*, MRGOAL+12*, MRGOAL+13, INRGOAL+3~, INRGOAL+13*, INRGOAL+14*, INRGOAL+15
U RPTPOP+5, RPTPOP+6, RPTPOP+7, RPTPOP+8, RPTPOP+32, RPTPOP+36, RPTPOP+42, VITK+10, VITK+11, VITK+13
, VITK+20, LIST1+7, LIST1+8, LIST1+10, LIST2+7, LIST2+8, LIST2+10, LIST3+7, LIST3+8, LIST3+10
, LIST4+7, LIST4+8, LIST4+10, LIST5+7, LIST5+8, LIST5+10, MRGOAL+8, MRGOAL+9, MRGOAL+10, MRGOAL+11
, MRGOAL+13, INRGOAL+8, INRGOAL+9, INRGOAL+12, INRGOAL+13, USR+1, LOC+1
X PRINT+2, RPTPOP+5*, RPTPOP+42*, VITK+20*, MRGOAL+3~, MRGOAL+6*, MRGOAL+7, INRGOAL+3~, INRGOAL+6*, INRGOAL+7
, INRGOAL+10, C~, C+3, CTR~, CTR+1
X2 C~
X3 C~, C+1*
Y PRINT+2*, MRGOAL+3~, INRGOAL+3~, HEAD+1, CTR~, CTR+1
Z MRGOAL+3~, MRGOAL+10*, MRGOAL+11, MRGOAL+12, INRGOAL+3~, INRGOAL+12*, INRGOAL+13, INRGOAL+14, PER+2~, PER+3*
, PER+4
>> ZTQUEUED EOP+2
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All