Routine: RGMTUT03

Package	Total	Call Graph
Kernel	2	($$FMDIFF,$$FMTE)^XLFDT EN^XUTMDEVQ
Registration	1	$$SITE^VASITE
VA FileMan	1	NOW^%DTC

Caller Graph

Legends:

Package Component Superscript legend

action

extended action

^Ea

event driver

^Ed

subscriber

^Su

protocol

limited protocol

^LP

run routine

^RR

broker

edit

server

^Se

screenman

^SM

inquire

Caller Graph Total: 1

Package	Total	Caller Graph
Clinical Information Resource Network	1	RGMTUT01

Entry Points

Name	Comments	DBIA/ICR reference
DEV	;
START	;
CMOR	;Loop on CMOR totals in ^XTMP("RGMT","UT01","CMOR")
TF	;Loop on Treating Facility totals
DIAG1	;print diagnostic data
DIAG2	;display counts for total patients with local/nat'l/no ICN
QUIT	;

External References

Name	Field # of Occurrence
NOW^%DTC	START+3
$$SITE^VASITE	START+2
$$FMDIFF^XLFDT	START+8
$$FMTE^XLFDT	START+3, START+4
EN^XUTMDEVQ	DEV+4

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"^RGMTUT01 must be run before this report can be printed!" Line Location: RGMTUT03+4
Function Call: WRITE	Prompt: !!,"Right Margin for this report is 80." Line Location: DEV+2
Function Call: WRITE	Prompt: !,"NO DEVICE SELECTED OR REPORT PRINTED!!" Line Location: DEV+5
Function Call: WRITE	Prompt: !,"=>CMOR TOTALS:" Line Location: CMOR+2
Function Call: WRITE	Prompt: !,CMORNM,?30," = ",?33,$J(TOT,7) Line Location: CMOR+15
Function Call: WRITE	Prompt: !?59,"TOTAL: ",?66,$J(GRAND,7) Line Location: CMOR+16
Function Call: WRITE	Prompt: !!,"=>TREATING FACILITY TOTALS:" Line Location: TF+1
Function Call: WRITE	Prompt: !,TFNM,?30," = ",?33,$J(TOT,7) Line Location: TF+12
Function Call: WRITE	Prompt: !! Line Location: TF+15

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^XTMP("RGMT"	RGMTUT03+3, RGMTUT03+5!, START+4, START+6, START+7, START+13, CMOR+3, CMOR+4, CMOR+11, CMOR+12 , CMOR+14, TF+3, TF+4, TF+11, TF+13, DIAG1+1, DIAG1+4, DIAG1+5, DIAG1+7, DIAG1+10 , DIAG1+11, DIAG1+13, DIAG1+16, DIAG1+17, DIAG1+19, DIAG1+22, DIAG1+23, DIAG1+25, DIAG1+28, DIAG1+29* , DIAG1+31, DIAG1+34, DIAG1+35, DIAG1+37, DIAG1+40, DIAG1+41, DIAG1+43, DIAG1+46, DIAG1+47, DIAG1+49* , DIAG1+52, DIAG1+53, DIAG2+2, DIAG2+5, DIAG2+6, DIAG2+8, DIAG2+11, DIAG2+12, DIAG2+14, DIAG2+17 , DIAG2+18*

Name

Line Occurrences (* Changed, ! Killed)

^XTMP("RGMT"

RGMTUT03+3, RGMTUT03+5!, START+4, START+6, START+7, START+13*, CMOR+3, CMOR+4, CMOR+11, CMOR+12
, CMOR+14*, TF+3, TF+4, TF+11, TF+13*, DIAG1+1*, DIAG1+4, DIAG1+5*, DIAG1+7*, DIAG1+10
, DIAG1+11*, DIAG1+13*, DIAG1+16, DIAG1+17*, DIAG1+19*, DIAG1+22, DIAG1+23*, DIAG1+25*, DIAG1+28, DIAG1+29*
, DIAG1+31*, DIAG1+34, DIAG1+35*, DIAG1+37*, DIAG1+40, DIAG1+41*, DIAG1+43*, DIAG1+46, DIAG1+47*, DIAG1+49*
, DIAG1+52, DIAG1+53*, DIAG2+2*, DIAG2+5, DIAG2+6*, DIAG2+8*, DIAG2+11, DIAG2+12*, DIAG2+14*, DIAG2+17
, DIAG2+18*

Label References

Name	Line Occurrences
DIAG1	START+15
DIAG2	TF+15
QUIT	RGMTUT03+3, DEV+6
START	DEV+1

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%	START+3, QUIT+1!
CMOR	CMOR+3*, CMOR+4, CMOR+9, CMOR+10, CMOR+11, CMOR+12, CMOR+14, QUIT+1!
CMORNM	CMOR+6, CMOR+7, CMOR+10*, CMOR+15, QUIT+1!
CMORSTA	CMOR+4*, CMOR+6, CMOR+7, CMOR+11, CMOR+12, CMOR+14, QUIT+1!
COMDT	QUIT+1!
COMPB	START+6*, START+8, QUIT+1!
COMPDT	START+4*, START+12, QUIT+1!
COMPS	START+7*, START+8, QUIT+1!
DIFF	START+8*, START+12, START+13, QUIT+1!
FRSTNM	CMOR+9, CMOR+10, TF+9, TF+10, QUIT+1!
GRAND	CMOR+1, CMOR+13, CMOR+16, QUIT+1!
HDT	START+3*, START+11, START+13, QUIT+1!
IOF	START+11
LN	START+1!, START+2*, START+12, QUIT+1!
LOCSTA	START+2*, START+13, CMOR+14, TF+13, DIAG1+5, DIAG1+11, DIAG1+17, DIAG1+23, DIAG1+29, DIAG1+35 , DIAG1+41, DIAG1+47, DIAG1+53, DIAG2+6, DIAG2+12, DIAG2+18, QUIT+1!
>> POP	DEV+4
>> RGHLMQ	RGMTUT03+4, DEV+1, START+10, START+13, START+15, CMOR+2, CMOR+14, CMOR+15, CMOR+16, TF+1 , TF+12, TF+13, TF+15, DIAG1+2, DIAG1+5, DIAG1+8, DIAG1+11, DIAG1+14, DIAG1+17, DIAG1+20 , DIAG1+23, DIAG1+26, DIAG1+29, DIAG1+32, DIAG1+35, DIAG1+38, DIAG1+41, DIAG1+44, DIAG1+47, DIAG1+50 , DIAG1+53, DIAG2+3, DIAG2+6, DIAG2+9, DIAG2+12, DIAG2+15, DIAG2+18
SITE	START+2*, START+11, QUIT+1!
SITEOPT	RGMTUT03+6*, START+15, TF+15, QUIT+1!
SKIP	CMOR+5, CMOR+6, CMOR+7, CMOR+8, TF+5, TF+6, TF+7, TF+8, QUIT+1!
TF	TF+2, TF+3, TF+4, TF+9, TF+10, TF+11, TF+13, QUIT+1!
TFNM	TF+6, TF+7, TF+10*, TF+12, QUIT+1!
TFSTA	TF+4*, TF+6, TF+7, TF+11, TF+13, QUIT+1!
TOT	CMOR+11, CMOR+12, CMOR+13, CMOR+14, CMOR+15, TF+11*, TF+12, TF+13, QUIT+1!
ZTSAVE	DEV+3!, DEV+4
ZTSAVE("SITEOPT"	DEV+3*

Customize PDF page

Package: Clinical Information Resource Network