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

Package: IHS GPRA Information System

Routine: BGP6DPEP


Information

BGP6DPEP ; IHS/CMI/LAB - IHS gpra print 01 Jul 2010 7:54 PM ; 27 Jan 2016 12:32 PM

Source Information

Source file <BGP6DPEP.m>

Call Graph

Call Graph Total: 11

Package Total Call Graph
IHS GPRA Information System 5 ^BGP6DH  DEL^BGP6DPED  ^BGP6DPEL  7^BGP6DPEQ  (H1,H2,HEADER)^BGP6DPH  
Kernel 3 ^%ZISC  $$FMTE^XLFDT  $$STRIP^XLFSTR  
VA Fileman 3 COMMA^%DTC  ^DIR  ^DIWP  

Caller Graph

Caller Graph Total: 3

Package Total Caller Graph
IHS GPRA Information System 3 BGP6DPE  BGP6DPEQ  BGP6PPEL  

Entry Points

Name Comments DBIA/ICR reference
KITM ;
SETEXA(T,N,P) ;EP - set denominator
V(T,R,N,P,ND) ;EP ;SPDX
USR() ;EP - Return name of current user from ^VA(200.
EOP ;EP - End of page.
DEL ;create delimited output file
WP ;
PRINT ;
PRINT1 ;EP
CTR(X,Y) ;EP - Center X in a field Y wide.
SETN ;EP - set numerator fields
WPS ;
1 ;
3 ;
2 ;
5 ;
4 ;
7 ;
6 ;
VA ;
SETNM ;
SETNMA1 ;
S(Y,F,P) ;EP set up array
HEADER ;EP
SETNMA ;
C(X,X2,X3) ;EP
HEADER1 ;
EXIT ;
SL(V) ;
CALC

External References

Name Field # of Occurrence
COMMA^%DTC C+1
^%ZISC DEL+2
^BGP6DH PRINT+7
DEL^BGP6DPED DEL+6
^BGP6DPEL CALC+3
7^BGP6DPEQ 7+1
H1^BGP6DPH 1+2, 2+2, 2+15, 2+44, 2+64, 2+77, 3+2, 3+16, 4+2, 4+16
, 5+2, 5+16, 6+2
H2^BGP6DPH 1+11, 2+23, 3+24, 4+24, 5+24, 6+12, 6+15, 6+18, 6+21, 6+24
, 6+27
HEADER^BGP6DPH WPS+2
^DIR HEADER+2, EXIT+1, EOP+5
^DIWP WP+5
$$FMTE^XLFDT HEADER1+3, HEADER1+8, HEADER1+9, HEADER1+10
$$STRIP^XLFSTR SL+2

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,$P(^BGPPEIM(BGPIC,0),U,2)
  • Line Location: 1+1
Function Call: WRITE
  • Prompt: !!,"User Pop"
  • Line Location: 1+6
Function Call: WRITE
  • Prompt: !!,$P(^DIBT(BGPSEAT,0),U,1),!," Population"
  • Line Location: 1+7
Function Call: WRITE
  • Prompt: ?20,$$C(BGPCYD,0,8),?35,$$C(BGPPRD,0,8),?58,$$C(BGPBLD,0,8),!
  • Line Location: 1+8
Function Call: WRITE
  • Prompt: !,"# w/ Patient Ed"
  • Line Location: 1+10
Function Call: WRITE
  • Prompt: !,$P(^BGPPEIM(BGPIC,0),U,2)
  • Line Location: 2+1
Function Call: WRITE
  • Prompt: !!,$P(^DIBT(BGPSEAT,0),U,1)," Population"
  • Line Location: 2+6
Function Call: WRITE
  • Prompt: !,"Total Time Spent",!,"Providing Education",!,"(mins)"
  • Line Location: 2+7
Function Call: WRITE
  • Prompt: ?20,$$C(BGPCYD,0,8),?35,$$C(BGPPRD,0,8),?58,$$C(BGPBLD,0,8),!
  • Line Location: 2+8
Function Call: WRITE
  • Prompt: !,$P(^BGPPEIM(BGPIC,0),U,2)
  • Line Location: 2+15
Function Call: WRITE
  • Prompt: !
  • Line Location: 2+15
Function Call: WRITE
  • Prompt: !,$P(^BGPPEIM(BGPIC,0),U,2)
  • Line Location: 2+44
Function Call: WRITE
  • Prompt: !
  • Line Location: 2+44
Function Call: WRITE
  • Prompt: !!,"Total # of Minutes recorded",!,"for All Providers"
  • Line Location: 2+45
Function Call: WRITE
  • Prompt: ?20,$$C(BGPAA,0,8),?35,$$C(BGPAB,0,8),?58,$$C(BGPAC,0,8),!
  • Line Location: 2+46
Function Call: WRITE
  • Prompt: !,"Total # of Pt Ed Codes with Provider",!,"and minutes recorded"
  • Line Location: 2+47
Function Call: WRITE
  • Prompt: ?20,$$C(BGPCYN,0,8),?35,$$C(BGPPRN,0,8),?58,$$C(BGPBLN,0,8)
  • Line Location: 2+48
Function Call: WRITE
  • Prompt: !!,"Average Time Spent",!,"All Providers",!,"(minutes)"
  • Line Location: 2+49
Function Call: WRITE
  • Prompt: ?20,$$C(BGPCYD,0,8),?35,$$C(BGPPRD,0,8),?58,$$C(BGPBLD,0,8),!
  • Line Location: 2+50
Function Call: WRITE
  • Prompt: !,$P(^BGPPEIM(BGPIC,0),U,2)
  • Line Location: 2+64
Function Call: WRITE
  • Prompt: !
  • Line Location: 2+64
Function Call: WRITE
  • Prompt: !,"Minimum Time Spent",!,"All Providers",!,"(minutes)"
  • Line Location: 2+65
Function Call: WRITE
  • Prompt: ?20,$$C(BGPCYD,0,8),?35,$$C(BGPPRD,0,8),?58,$$C(BGPBLD,0,8),!
  • Line Location: 2+66
Function Call: WRITE
  • Prompt: !,$P(^BGPPEIM(BGPIC,0),U,2)
  • Line Location: 2+77
Function Call: WRITE
  • Prompt: !
  • Line Location: 2+77
Function Call: WRITE
  • Prompt: !!,"Maximum Time Spent",!,"All Providers",!,"(minutes)"
  • Line Location: 2+78
Function Call: WRITE
  • Prompt: ?20,$$C(BGPCYD,0,8),?35,$$C(BGPPRD,0,8),?58,$$C(BGPBLD,0,8),!
  • Line Location: 2+79
Function Call: WRITE
  • Prompt: !,$P(^BGPPEIM(BGPIC,0),U,2)
  • Line Location: 3+1
Function Call: WRITE
  • Prompt: !!,$P(^DIBT(BGPSEAT,0),U,1)," Population"
  • Line Location: 3+6
Function Call: WRITE
  • Prompt: !,"Total # Education",!,"Codes"
  • Line Location: 3+7
Function Call: WRITE
  • Prompt: ?20,$$C(BGPCYD,0,8),?35,$$C(BGPPRD,0,8),?58,$$C(BGPBLD,0,8),!
  • Line Location: 3+8
Function Call: WRITE
  • Prompt: !,$P(^BGPPEIM(BGPIC,0),U,2)
  • Line Location: 3+16
Function Call: WRITE
  • Prompt: !
  • Line Location: 3+16
Function Call: WRITE
  • Prompt: !,$P(^BGPPEIM(BGPIC,0),U,2)
  • Line Location: 4+1
Function Call: WRITE
  • Prompt: !!,$P(^DIBT(BGPSEAT,0),U,1)," Population"
  • Line Location: 4+6
Function Call: WRITE
  • Prompt: !,"Total # Education",!,"Codes"
  • Line Location: 4+7
Function Call: WRITE
  • Prompt: ?20,$$C(BGPCYD,0,8),?35,$$C(BGPPRD,0,8),?58,$$C(BGPBLD,0,8),!
  • Line Location: 4+8
Function Call: WRITE
  • Prompt: !,$P(^BGPPEIM(BGPIC,0),U,2)
  • Line Location: 4+16
Function Call: WRITE
  • Prompt: !
  • Line Location: 4+16
Function Call: WRITE
  • Prompt: !,$P(^BGPPEIM(BGPIC,0),U,2)
  • Line Location: 5+1
Function Call: WRITE
  • Prompt: !!,$P(^DIBT(BGPSEAT,0),U,1)," Population"
  • Line Location: 5+6
Function Call: WRITE
  • Prompt: !,"Total # Education",!,"Codes"
  • Line Location: 5+7
Function Call: WRITE
  • Prompt: ?20,$$C(BGPCYD,0,8),?35,$$C(BGPPRD,0,8),?58,$$C(BGPBLD,0,8),!
  • Line Location: 5+8
Function Call: WRITE
  • Prompt: !,$P(^BGPPEIM(BGPIC,0),U,2)
  • Line Location: 5+16
Function Call: WRITE
  • Prompt: !
  • Line Location: 5+16
Function Call: WRITE
  • Prompt: !,$P(^BGPPEIM(BGPIC,0),U,2)
  • Line Location: 6+1
Function Call: WRITE
  • Prompt: !!,$P(^DIBT(BGPSEAT,0),U,1)," Population"
  • Line Location: 6+6
Function Call: WRITE
  • Prompt: !,"Total # Education",!,"Codes"
  • Line Location: 6+7
Function Call: WRITE
  • Prompt: ?20,$$C(BGPCYD,0,8),?35,$$C(BGPPRD,0,8),?58,$$C(BGPBLD,0,8),!
  • Line Location: 6+8
Function Call: WRITE
  • Prompt: !,"Patient Understanding"
  • Line Location: 6+9
Function Call: WRITE
  • Prompt: !,"Good"
  • Line Location: 6+11
Function Call: WRITE
  • Prompt: !,"Fair"
  • Line Location: 6+14
Function Call: WRITE
  • Prompt: !,"Poor"
  • Line Location: 6+17
Function Call: WRITE
  • Prompt: !,"Refused"
  • Line Location: 6+20
Function Call: WRITE
  • Prompt: !,"Group-No Assessment"
  • Line Location: 6+23
Function Call: WRITE
  • Prompt: !,"Blank"," (Not recorded)"
  • Line Location: 6+26
Function Call: WRITE
  • Prompt: !
  • Line Location: HEADER+2
Function Call: WRITE
  • Prompt: "ZZZZZZZ",!
  • Line Location: HEADER1+2
Function Call: WRITE
  • Prompt: $P(^VA(200,DUZ,0),U,2),?35,$$FMTE^XLFDT(DT),?70,"Page ",BGPGPG,!
  • Line Location: HEADER1+3
Function Call: WRITE
  • Prompt: $$CTR("*** IHS 2016 Patient Education with Community Specified Report ***",80),!
  • Line Location: HEADER1+4
Function Call: WRITE
  • Prompt: $$CTR("*** IHS 2016 Patient Education with Patient Panel Population Report ***",80),!
  • Line Location: HEADER1+5
Function Call: WRITE
  • Prompt: $$CTR("AREA AGGREGATE",80),!
  • Line Location: HEADER1+6
Function Call: WRITE
  • Prompt: $$CTR($P(^DIC(4,DUZ(2),0),U),80),!
  • Line Location: HEADER1+7
Function Call: WRITE
  • Prompt: $$CTR(X,80),!
  • Line Location: HEADER1+8
Function Call: WRITE
  • Prompt: $$CTR(X,80),!
  • Line Location: HEADER1+9
Function Call: WRITE
  • Prompt: $$CTR(X,80),!
  • Line Location: HEADER1+10
Function Call: WRITE
  • Prompt: $TR($J("",80)," ","-")
  • Line Location: HEADER1+11
Function Call: WRITE
  • Prompt: !
  • Line Location: EXIT+1
Routine Call
  • DIR
  • Line Location:
    • HEADER+2
    • EXIT+1
    • EOP+5

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^BGPGPDBM - [#90556.05] SETEXA+6
^BGPPEDBM - [#90556.14] 2+56, 2+72, SETNM+9, SETNM+10, SETNMA1+7, SETNMA1+8, V+5, VA+4
^BGPPEDCM - [#90556.12] 2+54, 2+70, SETNM+3, SETNM+4, SETNMA1+1, SETNMA1+2, SETEXA+4, V+3, VA+2
^BGPPEDPM - [#90556.13] 2+55, 2+71, SETNM+6, SETNM+7, SETNMA1+4, SETNMA1+5, SETEXA+5, V+4, VA+3
^BGPPEIM - [#90556.15] WP+3, WP+5, PRINT1+5, PRINT1+10, PRINT1+11, PRINT1+16, PRINT1+17, PRINT1+20, PRINT1+22, 1+1
, 2+1, 2+15, 2+44, 2+64, 2+77, 3+1, 3+16, 4+1, 4+16, 5+1
, 5+16, 6+1
^DIBT( 1+7, 2+6, 3+6, 4+6, 5+6, 6+6
^DIC(4 - [#4] HEADER1+7
^TMP($J PRINT+2!, PRINT+12!, DEL+3!, DEL+4*, DEL+8!, PRINT1+1!, KITM+1!, S+2*, S+3*, S+4*
^UTILITY($J WP+1!, WPS+1, WPS+3, WPS+5!
^VA(200 - [#200] HEADER1+3, USR+1
^XTMP("BGP6PE" DEL+7!, KITM+2!

Label References

Name Line Occurrences
$$C 1+8, 2+8, 2+46, 2+48, 2+50, 2+66, 2+79, 3+8, 4+8, 5+8
, 6+8
$$CTR HEADER1+4, HEADER1+5, HEADER1+6, HEADER1+7, HEADER1+8, HEADER1+9, HEADER1+10
$$V 1+3, 1+4, 1+5, 2+3, 2+4, 2+5, 2+25, 2+26, 2+27, 2+28
, 2+29, 2+30, 2+31, 2+32, 2+33, 2+35, 2+36, 2+37, 2+38, 2+39
, 2+40, 2+61, 2+62, 2+63, 2+74, 2+75, 2+76, 3+3, 3+4, 3+5
, 4+3, 4+4, 4+5, 5+3, 5+4, 5+5, 6+3, 6+4, 6+5, SETN+1
, SETN+2, SETN+3
@( CALC
CALC PRINT1+6
DEL PRINT+4
EXIT CALC+4
HEADER PRINT1+3, PRINT1+4, PRINT1+7, PRINT1+13, PRINT1+21, 1+1, 2+1, 2+15, 2+44, 2+64
, 2+77, 3+1, 3+16, 4+1, 4+16, 5+1, 5+16, 6+1
HEADER1 HEADER+1
KITM PRINT+8, PRINT+13
PRINT1 PRINT+11
SETN 1+9, 6+10, 6+13, 6+16, 6+19, 6+22, 6+25
SETNM 2+10, 3+10, 4+10, 5+10
SETNMA SETNM+2
SETNMA1 SETNMA+1
VA V+1
WP PRINT1+12, PRINT1+18

Naked Globals

Name Field # of Occurrence
^(0 USR+1

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> % S+2*, S+3, S+4
>> A SETNM+14*, SETNMA+3*
>> B SETNM+15*, SETNMA+4*
>> BGP1 2+13*, 2+14, 2+16, 2+17, 2+18, 2+19, 2+20, 2+21, 2+22, 3+14*
, 3+15, 3+17, 3+18, 3+19, 3+20, 3+21, 3+22, 3+23, 4+14*, 4+15
, 4+17, 4+18, 4+19, 4+20, 4+21, 4+22, 4+23, 5+14*, 5+15, 5+17
, 5+18, 5+19, 5+20, 5+21, 5+22, 5+23
>> BGP2 2+14*, 2+16, 2+17, 2+18, 2+19, 2+20, 2+21, 2+22, 3+15*, 3+17
, 3+18, 3+19, 3+20, 3+21, 3+22, 3+23, 4+15*, 4+17, 4+18, 4+19
, 4+20, 4+21, 4+22, 4+23, 5+15*, 5+17, 5+18, 5+19, 5+20, 5+21
, 5+22, 5+23
>> BGPAA 2+25*, 2+35*, 2+41, 2+46
>> BGPAB 2+26*, 2+36*, 2+42, 2+46
>> BGPAC 2+27*, 2+37*, 2+43, 2+46
>> BGPAREAA 2+24, 2+34, 2+51, 2+60, 2+67, 2+73, HEADER1+6, HEADER1+7, SETNM+2, V+1
>> BGPBBD HEADER1+10
>> BGPBD HEADER1+8
>> BGPBED HEADER1+10
>> BGPBLD 1+5*, 1+8, 2+5*, 2+8, 2+33*, 2+43*, 2+50, 2+52*, 2+56*, 2+58*
, 2+63*, 2+66, 2+68*, 2+72*, 2+76*, 2+79, 3+5*, 3+8, 4+5*, 4+8
, 5+5*, 5+8, 6+5*, 6+8, SETNM+16, SETNMA+5, SETN+6
>> BGPBLN 2+19*, 2+30*, 2+40*, 2+43, 2+48, 3+20*, 4+20*, 5+20*, SETN+3*, SETN+6
>> BGPBLP 2+22*, 3+23*, 4+23*, 5+23*, SETN+6*
>> BGPCNT 3+12*, 3+14, 3+15*, 3+17, 4+12*, 4+14, 4+15*, 4+17, 5+12*, 5+14
, 5+15*, 5+17
>> BGPCYD 1+3*, 1+8, 2+3*, 2+8, 2+31*, 2+41*, 2+50, 2+52*, 2+54*, 2+57*
, 2+61*, 2+66, 2+68*, 2+70*, 2+74*, 2+79, 3+3*, 3+8, 4+3*, 4+8
, 5+3*, 5+8, 6+3*, 6+8, SETNM+14, SETNMA+3, SETN+4
>> BGPCYN 2+17*, 2+28*, 2+38*, 2+41, 2+48, 3+18*, 4+18*, 5+18*, SETN+1*, SETN+4
>> BGPCYP 2+20*, 3+21*, 4+21*, 5+21*, SETN+4*
BGPDELIM PRINT+3!
>> BGPDNT PRINT1+6
>> BGPED HEADER1+8
>> BGPEXCEL SETEXA+1
>> BGPEXCT( SETEXA+4*, SETEXA+5*, SETEXA+6*
>> BGPGPG PRINT+9*, HEADER+1, HEADER1+1*, HEADER1+3
>> BGPGUI PRINT+6, DEL+2, HEADER1+2
>> BGPH DEL+7, KITM+2
>> BGPIC WP+3, WP+5, PRINT1+2*, PRINT1+5, PRINT1+10, PRINT1+11, PRINT1+16, PRINT1+17, PRINT1+20, PRINT1+22
, CALC, 1+1, 2+1, 2+15, 2+44, 2+64, 2+77, 3+1, 3+16, 4+1
, 4+16, 5+1, 5+16, 6+1
>> BGPIND( PRINT1+2
>> BGPIOSL PRINT+6*, WPS+2, PRINT1+4, PRINT1+7, PRINT1+13, PRINT1+21, 1+1, 2+1, 2+15, 2+44
, 2+64, 2+77, 3+1, 3+16, 4+1, 4+16, 5+1, 5+16, 6+1
>> BGPJ DEL+7, KITM+2
>> BGPLCNT WP+2*, WP+4*, WP+5
>> BGPNODE WP+3, WP+5, PRINT1+9*, PRINT1+15*, PRINT1+19*, PRINT1+20, PRINT1+22
>> BGPPBD HEADER1+9
>> BGPPED HEADER1+9
>> BGPPRD 1+4*, 1+8, 2+4*, 2+8, 2+32*, 2+42*, 2+50, 2+52*, 2+55*, 2+59*
, 2+62*, 2+66, 2+68*, 2+71*, 2+75*, 2+79, 3+4*, 3+8, 4+4*, 4+8
, 5+4*, 5+8, 6+4*, 6+8, SETNM+15, SETNMA+4, SETN+5
>> BGPPRN 2+18*, 2+29*, 2+39*, 2+42, 2+48, 3+19*, 4+19*, 5+19*, SETN+2*, SETN+5
BGPPROVS 2+9!, 3+9!, 4+9!, 5+9!, SETNM+1!
BGPPROVS( 2+12, 3+13, 4+13, 5+13, SETNM+5*, SETNM+8*, SETNM+11*, SETNM+13, SETNM+14*, SETNM+15*
, SETNM+16*, SETNMA+2, SETNMA+3*, SETNMA+4*, SETNMA+5*, SETNMA1+3*, SETNMA1+6*, SETNMA1+9*
>> BGPPRP 2+21*, 3+22*, 4+22*, 5+22*, SETN+5*
>> BGPPTYPE PRINT+5*, DEL+1*
>> BGPQHDR PRINT+8, DEL+5*
>> BGPQUIT PRINT+10*, WPS+2, PRINT1+2, PRINT1+4, PRINT1+7, PRINT1+10, PRINT1+11, PRINT1+13, PRINT1+16, PRINT1+17
, PRINT1+21, CALC+1, 1+1, 2+1, 2+13, 2+14, 2+15, 2+44, 2+64, 2+77
, 3+1, 3+14, 3+15, 3+16, 4+1, 4+14, 4+15, 4+16, 5+1, 5+14
, 5+15, 5+16, 6+1, HEADER+2*
>> BGPROT PRINT+4, PRINT+13
>> BGPRPT 1+3, 1+4, 1+5, 2+3, 2+4, 2+5, 2+25, 2+26, 2+27, 2+28
, 2+29, 2+30, 2+31, 2+32, 2+33, 2+35, 2+36, 2+37, 2+38, 2+39
, 2+40, 2+61, 2+62, 2+63, 2+74, 2+75, 2+76, 3+3, 3+4, 3+5
, 4+3, 4+4, 4+5, 5+3, 5+4, 5+5, 6+3, 6+4, 6+5, SETNM+3
, SETNM+4, SETNM+6, SETNM+7, SETNM+9, SETNM+10, SETN+1, SETN+2, SETN+3
>> BGPRTYPE PRINT+1*
>> BGPSEAT 1+6, 1+7, 2+6, 2+7, 3+6, 3+7, 4+6, 4+7, 5+6, 5+7
, 6+6, 6+7, HEADER1+4, HEADER1+5
>> BGPSUL( 2+53, 2+69, SETNMA+1, SETEXA+3, VA+1
BGPX PRINT1+10*, PRINT1+11, PRINT1+16*, PRINT1+17, PRINT1+20*, PRINT1+22, 2+11!, 3+11!, 4+11!, 5+11!
BGPX( 2+12*, 2+13, 2+14, 2+16, 2+17, 2+18, 2+19, 2+20, 2+21, 2+22
, 3+13*, 3+14, 3+15, 3+17, 3+18, 3+19, 3+20, 3+21, 3+22, 3+23
, 4+13*, 4+14, 4+15, 4+17, 4+18, 4+19, 4+20, 4+21, 4+22, 4+23
, 5+13*, 5+14, 5+15, 5+17, 5+18, 5+19, 5+20, 5+21, 5+22, 5+23
>> BGPY WP+3, WP+5, PRINT1+11*, PRINT1+17*
>> BGPYRPTH PRINT+1*
>> BGPZ WP+2*, WP+3*, WP+5
C 2+12*, 3+13*, 4+13*, 5+13*, SETNM+4*, SETNM+5, SETNM+7*, SETNM+8, SETNM+10*, SETNM+11
, SETNM+16*, SETNMA+1~*, SETNMA+5*, SETNMA1+2*, SETNMA1+3, SETNMA1+5*, SETNMA1+6, SETNMA1+8*, SETNMA1+9, VA+1~*
, VA+2*, VA+3*, VA+4*, VA+6
DFOUT EOP+4!
DIR HEADER+2!, EXIT+1!, EOP+3~
DIR("A" EXIT+1*
DIR(0 HEADER+2*, EXIT+1*, EOP+5*
DIRUT EXIT+1*, EOP+4!
DIWF WP+3*, WPS+4!
DIWL WP+3*, WPS+1, WPS+3, WPS+4!
DIWR WP+3*, WPS+4!
DLOUT EOP+4!
DT HEADER1+3
DTOUT HEADER+2, EOP+4!
DUOUT EXIT+1, EOP+4!
DUZ HEADER1+3, USR+1
DUZ(2 HEADER1+7
F S~, S+1*, S+2
IO HEADER+2, EXIT+1
IO("S" EOP+2
IO(0 HEADER+2, EXIT+1
IOF HEADER1+1
IOM CTR+1
IOSL PRINT+6
IOST HEADER+2, EXIT+1, EOP+1
>> IOT EOP+2
>> L SETNM+4*, SETNM+5, SETNM+7*, SETNM+8, SETNM+10*, SETNM+11, SETNMA1+2*, SETNMA1+3, SETNMA1+5*, SETNMA1+6
, SETNMA1+8*, SETNMA1+9
>> M SETNM+4*, SETNM+5, SETNM+7*, SETNM+8, SETNM+10*, SETNM+11, SETNMA1+2*, SETNMA1+3, SETNMA1+5*, SETNMA1+6
, SETNMA1+8*, SETNMA1+9
N 1+9*, 2+10*, 3+10*, 4+10*, 5+10*, 6+10*, 6+13*, 6+16*, 6+19*, 6+22*
, 6+25*, SETNM+3, SETNM+4, SETNM+6, SETNM+7, SETNM+9, SETNM+10, SETNMA1+1, SETNMA1+2, SETNMA1+4
, SETNMA1+5, SETNMA1+7, SETNMA1+8, SETN+1, SETN+2, SETN+3, SETEXA~, SETEXA+4, SETEXA+5, SETEXA+6
, V~, V+3, V+4, V+5, VA+2, VA+3, VA+4
ND V~
P 1+9*, 6+10*, 6+13*, 6+16*, 6+19*, 6+22*, 6+25*, S~, S+4, SETN+1
, SETN+2, SETN+3, SETEXA~, SETEXA+4, SETEXA+5, SETEXA+6, V~, V+3, V+4, V+5
, VA+2, VA+3, VA+4
R V~, V+3, V+4, V+5
T SETEXA~, SETEXA+4, SETEXA+5, SETEXA+6, V~, V+3, V+4, V+5, VA+2, VA+3
, VA+4
U PRINT1+5, 1+1, 1+7, 2+1, 2+6, 2+12, 2+15, 2+16, 2+17, 2+18
, 2+19, 2+20, 2+21, 2+22, 2+44, 2+54, 2+55, 2+56, 2+64, 2+70
, 2+71, 2+72, 2+77, 3+1, 3+6, 3+13, 3+16, 3+17, 3+18, 3+19
, 3+20, 3+21, 3+22, 3+23, 4+1, 4+6, 4+13, 4+16, 4+17, 4+18
, 4+19, 4+20, 4+21, 4+22, 4+23, 5+1, 5+6, 5+13, 5+16, 5+17
, 5+18, 5+19, 5+20, 5+21, 5+22, 5+23, 6+1, 6+6, HEADER1+3, HEADER1+7
, S+2, S+4, USR+1, SETNM+4, SETNM+5, SETNM+7, SETNM+8, SETNM+10, SETNM+11, SETNM+14
, SETNM+15, SETNM+16, SETNMA+3, SETNMA+4, SETNMA+5, SETNMA1+2, SETNMA1+3, SETNMA1+5, SETNMA1+6, SETNMA1+8
, SETNMA1+9, SETEXA+4, SETEXA+5, SETEXA+6, V+3, V+4, V+5, VA+2, VA+3, VA+4
V SETNMA+1~, SL~, SL+1*, SL+2, VA+1~
X WP+5*, WPS+5!, 2+12*, 2+53*, 2+54, 2+55, 2+56, 2+69*, 2+70, 2+71
, 2+72, 3+13*, 4+13*, 5+13*, HEADER1+8*, HEADER1+9*, HEADER1+10*, C~, C+2, CTR~
, CTR+1, SETNM+3*, SETNM+4, SETNM+6*, SETNM+7, SETNM+9*, SETNM+10, SETNM+13*, SETNM+14, SETNM+15
, SETNM+16, SETNMA+1~, SETNMA+2*, SETNMA+3, SETNMA+4, SETNMA+5, SETNMA1+1*, SETNMA1+2, SETNMA1+4*, SETNMA1+5
, SETNMA1+7*, SETNMA1+8, SETEXA+2~, SETEXA+3*, SETEXA+4, SETEXA+5, SETEXA+6, V+2~, V+3*, V+4*
, V+5*, VA+1~*, VA+2, VA+3, VA+4
X2 C~
X3 C~
Y 2+12*, 3+13*, 4+13*, 5+13*, HEADER+2, S~, S+4, CTR~, CTR+1, SETNM+13*
, SETNM+14, SETNM+15, SETNM+16, SETNMA+2*, SETNMA+3, SETNMA+4, SETNMA+5, SETEXA+2~
Z WPS+1*, WPS+3, WPS+4!, SETNMA+1*, SETNMA1+1, SETNMA1+2, SETNMA1+4, SETNMA1+5, SETNMA1+7, SETNMA1+8
, SETEXA+2~
>> ZTQUEUED HEADER+2, EXIT+1, 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