Routine: MAGCRPT

Package	Total	Call Graph
Kernel	3	(,HOME)^%ZIS ^%ZISC ^%ZTLOAD
VA FileMan	2	(,H,NOW)^%DTC ^DIR
Imaging	1	RPT^MAGGSQI
MailMan	1	^XMD
Registration	1	DEM^VADPT

Package	Total	Caller Graph
Imaging	2	MAG_IC_RPT_GM MAG_IC_RPT_QA

Name	Comments	DBIA/ICR reference
RPT(TYPE)	; This entry is called from the VistA Menu Option handler ; The value of TYPE is equal to either ; "QA" -- report for Quality Assurance (option MAG_IC_RPT_QA) ; "CO" -- report for Central Office (option MAG_IC_RPT_CO)
WORK
L(X,N)
PTLKP(DFN,IPN,ISS4)	;
PN
HDR(ERR)	;
QA	; Report for QA
CO	; Report for CO
TEST
DOCU	;

Name	Field # of Occurrence
^%DTC	RPT+29
H^%DTC	WORK+4, WORK+5
NOW^%DTC	RPT+12
^%ZIS	RPT+43
HOME^%ZIS	RPT+57, RPT+64
^%ZISC	RPT+64
^%ZTLOAD	RPT+57
^DIR	RPT+22, RPT+36, RPT+50
RPT^MAGGSQI	WORK+3
DEM^VADPT	PTLKP+4
^XMD	WORK+111, WORK+116

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"Scanning appears to be active. It was started on: "_Y Line Location: RPT+19
Function Call: WRITE	Prompt: !,"Note: Report will be partial and not the complete report." Line Location: RPT+23
Function Call: WRITE	Prompt: !,"Note: You will get an old report." Line Location: RPT+37
Function Call: WRITE	Prompt: !!,"Report is formatted for 132 columns",!,"Try again" Line Location: RPT+44
Function Call: WRITE	Prompt: !!,$C(7),"Request canceled.",! Line Location: RPT+58
Function Call: WRITE	Prompt: !!,"Request queued." Line Location: RPT+59
Function Call: WRITE	Prompt: !!,"Report being produced on ",IOST,!! Line Location: RPT+63
Function Call: WRITE	Prompt: !,$J(D0,7)," ",$$L(IPN,31)," ",$$L(PPN,31)," " Line Location: WORK+77
Function Call: WRITE	Prompt: $$L(ISS4,5)," ",$$L(PSS4,5)," " Line Location: WORK+78
Function Call: WRITE	Prompt: $J(IDFN,8)," ",$J(PDFN,8)," ",$$L(PK,8)," ",$J(X,5)," ",$J(ASITE,5) Line Location: WORK+79
Function Call: WRITE	Prompt: !,"S u m m a r y" Line Location: WORK+86
Function Call: WRITE	Prompt: !!,+X," ",$P(X,"^",2),!! Line Location: WORK+87
Function Call: WRITE	Prompt: !!,X," entries scanned." Line Location: WORK+88
Function Call: WRITE	Prompt: " of ",I Line Location: WORK+92
Function Call: WRITE	Prompt: !!,"Database scan took " Line Location: WORK+98
Function Call: WRITE	Prompt: HRS Line Location: WORK+99
Function Call: WRITE	Prompt: MIN Line Location: WORK+100
Function Call: WRITE	Prompt: SEC Line Location: WORK+101
Function Call: WRITE	Prompt: DT#100," " Line Location: PN+3
Function Call: WRITE	Prompt: $P("Jan Feb Mar Apr May Jun Jul Aug Sep Oct Nov Dec"," ",DT\100#100) Line Location: PN+4
Function Call: WRITE	Prompt: " ",DT\10000+1700,?(IOM-$L(X)),X Line Location: PN+5
Function Call: WRITE	Prompt: !?(IOM-$L(HEADING)\2),HEADING Line Location: HDR+3
Function Call: WRITE	Prompt: !?(IOM-$L(ERR)\2),ERR,! Line Location: HDR+4
Function Call: WRITE	Prompt: !,"Image Patient Name Patient Name SSN4 SSN4 DFN DFN Package" Line Location: HDR+5
Function Call: WRITE	Prompt: !,"Number (First one found) (Other one found) (fst) (oth) (fst) (oth) Package IEN SITE" Line Location: HDR+6
Function Call: WRITE	Prompt: !,"======= =============================== =============================== ===== ===== ======== ======== ======= ======= =====" Line Location: HDR+7
Function Call: WRITE	Prompt: ! Line Location: HDR+8
Routine Call	DIR Line Location: RPT+22 RPT+36 RPT+50
Routine Call	%ZIS Line Location: RPT+43
Routine Call	%ZIS Line Location: RPT+57 RPT+64

Name	Line Occurrences (* Changed, ! Killed)
^DD("DD"	RPT+16
^MAG(2005 - [#2005]	WORK+35, WORK+36, WORK+37, WORK+60, WORK+61, WORK+63, WORK+64
^TMP("MAGMAIL"	WORK+1!, WORK+2, WORK+80, WORK+81, WORK+89, WORK+90, WORK+93, WORK+94, WORK+102, WORK+103* , WORK+119!
^XTMP("MAGCHK"	RPT+6, RPT+7, RPT+11, RPT+13, RPT+14, RPT+16, WORK+3, WORK+4, WORK+5, WORK+23 , WORK+32, WORK+88, WORK+110, WORK+112, WORK+115, WORK+117

Name	Line Occurrences
$$L	WORK+77, WORK+78, WORK+79
$$PTLKP	WORK+43, WORK+54, WORK+69
HDR	WORK+30, WORK+72
PN	WORK+85, HDR+1
RPT	QA+1, CO+1
WORK	RPT+64, TEST

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %	RPT+12
>> %H	WORK+4, WORK+5
>> %T	WORK+4, WORK+5
ASITE	WORK+33~, WORK+35*, WORK+79, WORK+81
D0	WORK~, WORK+32*, WORK+35, WORK+36, WORK+37, WORK+60, WORK+61, WORK+77, WORK+81
>> DAYS	RPT+30*
DFN	WORK+33~, PTLKP~, PTLKP+3
DIR	RPT+17~, RPT+31~, RPT+47~
DIR("A"	RPT+21, RPT+34, RPT+35, RPT+49
DIR("B"	RPT+20, RPT+33, RPT+49*
DIR(0	RPT+20, RPT+33, RPT+48*
DT	PN+3, PN+4, PN+5
ERR	WORK~, WORK+23*, WORK+25, WORK+26, WORK+27, WORK+29, WORK+30, WORK+32, WORK+45, WORK+57 , WORK+72, WORK+75, WORK+76, WORK+81, HDR~, HDR+4
ERRTYPE	RPT+5~
ERRTYPE(	WORK+29!, WORK+76, WORK+91, WORK+92, WORK+94
G0	WORK+58~, WORK+63, WORK+64, WORK+65
GF	WORK+46~
GP	WORK+46~, WORK+49*, WORK+50
GR	WORK+46~, WORK+48*
GR0	WORK+46~, WORK+48*, WORK+50
GT	WORK+46~
H1	WORK~, WORK+4*, WORK+96, WORK+97
H2	WORK~, WORK+5*, WORK+97
>> HEADING	HDR+2*, HDR+3
>> HRS	WORK+99*, WORK+103
I	RPT+5~, WORK~, WORK+80, WORK+81, WORK+91, WORK+92, WORK+94
IDFN	WORK+33~, WORK+38*, WORK+43, WORK+52, WORK+53, WORK+62, WORK+65, WORK+68, WORK+79, WORK+81
II	RPT+5~, WORK+89, WORK+90, WORK+93, WORK+94, WORK+102*, WORK+103
IO	RPT+64, TEST*
IO("Q"	RPT+52
IOF	PN+2
IOM	RPT+44, PN+5, HDR+3, HDR+4, TEST*
ION	RPT+54
IOSL	WORK+72, TEST*
IOST	RPT+46, RPT+63
IPN	WORK+33~, WORK+43, WORK+52, WORK+77, WORK+81, PTLKP~, PTLKP+1, PTLKP+5
ISS4	WORK+33~, WORK+43, WORK+78, WORK+81, PTLKP~, PTLKP+2, PTLKP+5
LIN	WORK~, WORK+72, PN+1
>> MIN	WORK+100*, WORK+103
N	WORK~, WORK+31, WORK+34, L~
NUMBER	RPT+5~, RPT+6, RPT+7, RPT+10, RPT+11, RPT+13, RPT+14, RPT+15, RPT+16, RPT+24* , RPT+29, RPT+38, WORK+3, WORK+4, WORK+5, WORK+23, WORK+32, WORK+88, WORK+110, WORK+112 , WORK+115, WORK+117
OK	RPT+5~, RPT+18, RPT+22, RPT+23, RPT+24, RPT+32, RPT+36, RPT+37, RPT+38, RPT+42* , RPT+45, RPT+46, RPT+50, RPT+58, RPT+59, RPT+62
>> OUT	RPT+9, RPT+25, RPT+27, RPT+39*, RPT+41
P0	WORK+46~, WORK+50, WORK+58~, WORK+59, WORK+63, WORK+64
PAG	WORK~, WORK+6, PN+1, PN+2
PD0	WORK+33~, WORK+39*, WORK+51, WORK+73
PD1	WORK+33~, WORK+39*, WORK+73
PDFN	WORK+33~, WORK+44, WORK+50, WORK+51, WORK+52, WORK+53, WORK+54, WORK+62, WORK+65, WORK+68 , WORK+69, WORK+79, WORK+81
PF	WORK+33~, WORK+39*, WORK+40, WORK+48, WORK+49, WORK+51
PK	WORK+33~, WORK+41*, WORK+47, WORK+74, WORK+79, WORK+81
POP	RPT+5~, RPT+42, RPT+43, RPT+62
PPN	WORK+33~, WORK+44*, WORK+54, WORK+69, WORK+77, WORK+81
PSS4	WORK+33~, WORK+44*, WORK+54, WORK+69, WORK+78, WORK+81
PT	WORK~
PT(	WORK+7, WORK+9, WORK+10, WORK+11, WORK+12, WORK+16, WORK+17, WORK+20, WORK+40, WORK+48 , WORK+49
PT(130	WORK+14*
PT(63	WORK+8*
PT(691	WORK+15*
PT(694	WORK+18*
PT(699	WORK+19*
PT(74	WORK+13*
PT(8925	WORK+22*
>> SEC	WORK+101*, WORK+103
SQI	WORK~, WORK+3
>> START	RPT+13*
STATUS	RPT+5~, RPT+11*, RPT+15, RPT+29
STOP	RPT+5~, RPT+14*, RPT+29
T	WORK+46~
TODAY	RPT+5~, RPT+12*, RPT+29
TYPE	RPT~, RPT+56, WORK+24, WORK+74, WORK+108, WORK+110, WORK+115, HDR+2, TEST*
VA	RPT+5~
VA("BID"	PTLKP+5
VADM	RPT+5~
VADM(1	PTLKP+5
>> VAERR	PTLKP+5, PTLKP+6
X	RPT+5~, RPT+29, RPT+30, RPT+34, WORK~, WORK+4, WORK+5, WORK+24, WORK+25, WORK+26* , WORK+27, WORK+40, WORK+41, WORK+73, WORK+79, WORK+81, WORK+88, WORK+90, WORK+97, WORK+99 , WORK+100, WORK+101, L~, PN~, PN+1, PN+5
X0	WORK+33~, WORK+36, WORK+38, WORK+59, WORK+60, WORK+62, WORK+64*, WORK+65
>> X1	RPT+29*
X2	RPT+29, WORK+33~, WORK+37, WORK+39, WORK+61*
XMSUB	WORK+105~, WORK+108*
XMTEXT	WORK+105~, WORK+107*
XMY	WORK+105~
XMY("G.MAG SE	RVER" , WORK+106*
>> XX	WORK+43, WORK+54, WORK+69*
Y	RPT+5~, RPT+16*, RPT+19, RPT+22, RPT+25, RPT+36, RPT+39, RPT+50
>> ZTDESC	RPT+55*
>> ZTIO	RPT+54*
>> ZTRTN	RPT+53*
>> ZTSAVE("TYPE"	RPT+56*
>> ZTSK	RPT+58

Customize PDF page

Package: Imaging

Routine: MAGCRPT

Information

Source Information

Call Graph

Call Graph Total: 8

Caller Graph

Legends:

Package Component Superscript legend

Caller Graph Total: 2

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Local Variables

Legend: