Routine: LREPIRP7

Package	Total	Call Graph
Kernel	3	(,HOME)^%ZIS ^%ZISC ^%ZTLOAD
Lab Service	1	(PPRT1,PPRT2,PPRT3,PPRT4)^LREPIRP8
VA FileMan	1	^DIR

Package	Total	Caller Graph
Lab Service	2	LREPI VERIFICATION REPORT LREPIRP8

Name	Comments	DBIA/ICR reference
CHOOSE	;which date report to print
PRIV	;PRIVACY MESSAGE
ALL
EXIT	;
REP	;
Q
PRT	;Print report
PATH
ZXETOT	;PRINT PHARMACY SUBTOTALS
DSPTOT
PAUSE	;
NPG	;NEW PAGE
HDG	;

Name	Field # of Occurrence
^%ZIS	Q
HOME^%ZIS	Q+4
^%ZISC	EXIT+1
^%ZTLOAD	Q+1
^DIR	CHOOSE+8, PRIV+4, ALL+3, ALL+12, PAUSE+2
PPRT1^LREPIRP8	PRT+3, PRT+9, PRT+15, PRT+21, PRT+30, PATH+5
PPRT2^LREPIRP8	PRT+12, PRT+18, PATH+3
PPRT3^LREPIRP8	PRT+6, PRT+27, PATH+4
PPRT4^LREPIRP8	PRT+24, PATH+2

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !?5,"Print Detailed Verification Report Option",!! Line Location: LREPIRP7+4
Function Call: WRITE	Prompt: !,LRNUM_" "_$P(LRREP(LRNUM),"^",2),$E(^XTMP("LREPIREP"_$P(LRREP(LRNUM),"^"),"HDG",3),12,99) Line Location: CHOOSE+4
Function Call: WRITE	Prompt: !!!,"This report will contain Confidential Information." Line Location: PRIV+1
Function Call: WRITE	Prompt: !,"Sorry No Pathogens Selected" Line Location: ALL+17
Function Call: WRITE	Prompt: !!?5,"Report Cancelled." Line Location: Q+2
Function Call: WRITE	Prompt: !!?5,"The Task has been queued",!,"Task #",$G(ZTSK) Line Location: Q+3
Function Call: WRITE	Prompt: @IOF Line Location: PRT+33
Function Call: WRITE	Prompt: !,?70," PAGE ",LRPAGE Line Location: PRT+34
Function Call: WRITE	Prompt: !,^(LRHDGLC) Line Location: PRT+36
Function Call: WRITE	Prompt: !!,"Name LAST 4 Admission date Discharge date" Line Location: PRT+38
Function Call: WRITE	Prompt: !,"__________________________________________________________________" Line Location: PRT+39
Function Call: WRITE	Prompt: !,^(LRUPDNUM) Line Location: PRT+41
Function Call: WRITE	Prompt: @IOF Line Location: PRT+42
Function Call: WRITE	Prompt: !,?70,"PAGE ",LRPAGE Line Location: PRT+43
Function Call: WRITE	Prompt: !,^(LRHDGLC) Line Location: PRT+45
Function Call: WRITE	Prompt: !! Line Location: PRT+47
Function Call: WRITE	Prompt: !,"------------------------------------------------------------" Line Location: PRT+56
Function Call: WRITE	Prompt: !?5,"COUNT ",LRCOUNT Line Location: PRT+57
Function Call: WRITE	Prompt: @IOF Line Location: PRT+58
Function Call: WRITE	Prompt: !?70,"PAGE ",LRPAGE Line Location: PRT+59
Function Call: WRITE	Prompt: !,^(LRHDGLC) Line Location: PRT+61
Function Call: WRITE	Prompt: !! Line Location: PRT+63
Function Call: WRITE	Prompt: !! Line Location: PRT+64
Function Call: WRITE	Prompt: !,"DECLINED ASSESSMENT FOR HEPATITIS C" Line Location: PRT+65
Function Call: WRITE	Prompt: !,"NO RISK FACTORS FOR HEPATITIS C" Line Location: PRT+66
Function Call: WRITE	Prompt: !,"PREVIOUSLY ASSESSED FOR HEPATITIS C" Line Location: PRT+67
Function Call: WRITE	Prompt: !,"RISK FACTORS FOR HEPATITIS C" Line Location: PRT+68
Function Call: WRITE	Prompt: !,"POSITIVE TEST FOR HEPATITIS C ANTIBODY" Line Location: PRT+69
Function Call: WRITE	Prompt: !,"NEGATIVE TEST FOR HEPATITIS C ANTIBODY" Line Location: PRT+70
Function Call: WRITE	Prompt: !,"HEPATITIS C DIAGNOSIS (ICD BASED)" Line Location: PRT+71
Function Call: WRITE	Prompt: !!,"NO PATIENTS REPORTED FOR THE REPORT PERIOD" Line Location: PRT+74
Function Call: WRITE	Prompt: !?5,^XTMP("LREPIREP"_LRDATE,"DSP",LRTYPE,LRDFN,LRDSPCNT) Line Location: PRT+79
Function Call: WRITE	Prompt: !?5,^XTMP("LREPIREP"_LRDATE,"DSP",LRTYPE,LRDFN,LRDSPCNT) Line Location: PRT+80
Function Call: WRITE	Prompt: !?5,^XTMP("LREPIREP"_LRDATE,"DSP",LRTYPE,LRDFN,LRDSPCNT) Line Location: PRT+81
Function Call: WRITE	Prompt: !?5,^XTMP("LREPIREP"_LRDATE,"DSP",LRTYPE,LRDFN,LRDSPCNT) Line Location: PRT+82
Function Call: WRITE	Prompt: !?5,^XTMP("LREPIREP"_LRDATE,"DSP",LRTYPE,LRDFN,LRDSPCNT) Line Location: PRT+83
Function Call: WRITE	Prompt: !?5,^XTMP("LREPIREP"_LRDATE,"DSP",LRTYPE,LRDFN,LRDSPCNT) Line Location: PRT+84
Function Call: WRITE	Prompt: !?5,^XTMP("LREPIREP"_LRDATE,"DSP",LRTYPE,LRDFN,LRDSPCNT) Line Location: PRT+85
Function Call: WRITE	Prompt: !,"-----------------------------------------------------------------" Line Location: PRT+86
Function Call: WRITE	Prompt: !?5,"COUNT ",LRCOUNT Line Location: PRT+87
Function Call: WRITE	Prompt: !,"---------------------------------------------------------------" Line Location: ZXETOT+1
Function Call: WRITE	Prompt: !,?5,"SUBCOUNT ",LRSBCNT Line Location: ZXETOT+2
Function Call: WRITE	Prompt: !! Line Location: ZXETOT+3
Function Call: WRITE	Prompt: !,"---------------------------------------------------------------" Line Location: DSPTOT+0
Function Call: WRITE	Prompt: !?5,"SUBCOUNT ",LRSBCNT Line Location: DSPTOT+1
Function Call: WRITE	Prompt: !! Line Location: DSPTOT+2
Function Call: WRITE	Prompt: @IOF Line Location: NPG+3
Function Call: WRITE	Prompt: @IOF Line Location: HDG+1
Function Call: WRITE	Prompt: !,?70," PAGE ",LRPAGE Line Location: HDG+3
Function Call: WRITE	Prompt: ! Line Location: HDG+7
Routine Call	%ZIS Line Location: Q
Routine Call	%ZIS Line Location: Q+4
Routine Call	DIR Line Location: CHOOSE+8 PRIV+4 ALL+3 ALL+12 PAUSE+2

Name	Line Occurrences (* Changed, ! Killed)
^DD("DD"	CHOOSE+3
^LAB(69.5 - [#69.5]	ALL+14
^XTMP(	CHOOSE+2
^XTMP("LREPIREP"	CHOOSE+4, CHOOSE+14, PRT+36, PRT+41, PRT+45, PRT+49, PRT+51, PRT+52, PRT+53, PRT+61 , PRT+73, PRT+76, PRT+77, PRT+78, PRT+79, PRT+80, PRT+81, PRT+82, PRT+83, PRT+84 , PRT+85, HDG+4, HDG+9, HDG+10

Name	Line Occurrences
CHOOSE	CHOOSE+12, ALL+17
DSPTOT	PRT+76
EXIT	CHOOSE+9, PRIV+5, Q+4, PRT+1, PRT+4, PRT+7, PRT+10, PRT+13, PRT+16, PRT+19 , PRT+22, PRT+25, PRT+28, PRT+31, PATH+6
NPG	PRT+41, PRT+55, PRT+79, PRT+80, PRT+81, PRT+82, PRT+85
PATH	PRT+1
PAUSE	NPG+1
PRT	Q
Q	ALL+16
REP	ALL+18
ZXETOT	PRT+49

Name	Field # of Occurrence
^(	PRT+36, PRT+41, PRT+45, PRT+61

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%DT	EXIT+3!
%ZIS	EXIT+3!, Q*
D0	EXIT+2!
DIC	EXIT+2!
DIR	CHOOSE+11!, PRIV+2!, ALL!, ALL+5!, ALL+15!, EXIT+5!, PAUSE+2!
DIR("?"	ALL+2, ALL+10
DIR("A"	CHOOSE+7, PRIV+2, ALL+1, ALL+9
DIR("B"	PRIV+3, ALL+1
DIR("S"	ALL+11*
DIR(0	CHOOSE+6, PRIV+2, ALL+1, ALL+9, PAUSE+2*
DIRUT	CHOOSE+9, CHOOSE+11!, CHOOSE+12, PRIV+4, ALL!, ALL+8, ALL+13, ALL+15!, EXIT+5!
DTOUT	ALL+15!, ALL+16, EXIT+5!, PAUSE+3
DUOUT	ALL+15!, ALL+16, EXIT+5!, PAUSE+3
IO	Q
IO("Q"	Q
IOF	ALL+7, PRT+33, PRT+42, PRT+58, NPG+3, HDG+1
IOSL	PRT+41, PRT+55, PRT+79, PRT+80, PRT+81, PRT+82, PRT+85
IOST	NPG+1
J	EXIT+5!
LRADMDT	EXIT+8!
LRALL	ALL+4*, ALL+6, ALL+17, EXIT+6!, PRT+1
LRAUTO	EXIT+2!
LRBEG	EXIT+2!
LRCOUNT	EXIT+4!, EXIT+6!, PRT+48, PRT+57, PRT+60, PRT+75, PRT+87, ZXETOT+4, DSPTOT+3*
LRDATE	CHOOSE+1, CHOOSE+2, CHOOSE+3, CHOOSE+13*, CHOOSE+14, EXIT+6!, PRT+36, PRT+41, PRT+45, PRT+49 , PRT+51, PRT+52, PRT+53, PRT+61, PRT+73, PRT+76, PRT+77, PRT+78, PRT+79, PRT+80 , PRT+81, PRT+82, PRT+83, PRT+84, PRT+85, HDG+4, HDG+9, HDG+10
LRDFN	EXIT+6!, PRT+2, PRT+5, PRT+8, PRT+9, PRT+11, PRT+14, PRT+17, PRT+20, PRT+23* , PRT+24, PRT+26, PRT+27, PRT+29, PRT+30, PRT+32, PRT+48, PRT+51, PRT+52, PRT+53 , PRT+75, PRT+77, PRT+78, PRT+79, PRT+80, PRT+81, PRT+82, PRT+83, PRT+84, PRT+85 , PATH, PATH+1
LRDG1	EXIT+6!, PRT+5, PRT+11, PRT+17, PRT+23, PRT+26, PRT+32
LRDG1CNT	EXIT+8!
LRDISDT	EXIT+8!
LRDSP	EXIT+8!
LRDSPCNT	EXIT+6!, PRT+75, PRT+78, PRT+79, PRT+80, PRT+81, PRT+82, PRT+83, PRT+84, PRT+85
LRDT	EXIT+2!
LRDTHDG	EXIT+8!
LREND	CHOOSE+18, PRIV+4, EXIT+2!, PAUSE+1
LREPI	ALL+17, EXIT+2!
LREPI(	ALL+14*, PATH+1
LRHDG	EXIT+4!, HDG+4, HDG+5, HDG+10, HDG+11
LRHDGL2	EXIT+8!
LRHDGLC	EXIT+4!, PRT+35, PRT+36, PRT+44, PRT+45, PRT+60, PRT+61, HDG+4, HDG+8, HDG+9* , HDG+10
LRI	EXIT+9!
LRLC	EXIT+4!, PRT+35, PRT+44, PRT+60, HDG+2, HDG+6, HDG+7, HDG+12*
LRMSGLIN	EXIT+5!
LRNAME	EXIT+9!
LRNODE	CHOOSE+1, CHOOSE+2, EXIT+4!
LRNOPAT	EXIT+8!
LRNTECNT	EXIT+9!
LRNUM	CHOOSE+1, CHOOSE+3, CHOOSE+4, CHOOSE+5, CHOOSE+6, EXIT+6!, PRT+2, PRT+14, PRT+20, PRT+64 , PRT+65, PRT+66, PRT+67, PRT+68, PRT+69, PRT+70, PRT+71, PRT+73, PRT+74, PRT+79 , PRT+80, PRT+81, PRT+82, PRT+83, PRT+84, PRT+85
LRNUM1	EXIT+9!
LROBR	EXIT+6!, PRT+2, PRT+26, PATH*
LROBRCNT	EXIT+9!
LROBX	EXIT+6!, PRT+2, PRT+26, PATH*
LROBXCNT	EXIT+9!
LRPAGE	EXIT+4!, EXIT+6!, PRT+2, PRT+34, PRT+37, PRT+43, PRT+46, PRT+59, PRT+62, PATH* , HDG+3, HDG+13*
LRPATH	EXIT+7!, PRT+2, PRT+3, PRT+6, PRT+9, PRT+12, PRT+15, PRT+18, PRT+21, PRT+24* , PRT+27, PRT+30, PATH, PATH+1, PATH+2, PATH+3, PATH+4, HDG+9, HDG+10
LRPATHCT	EXIT+9!
LRPERCNT	EXIT+9!
LRPID	EXIT+7!
LRPV1	EXIT+8!, PRT+2, PRT+5, PRT+11, PRT+17, PRT+23, PRT+26, PRT+32, PATH
LRPV1CNT	EXIT+10!
LRPV1N	EXIT+10!
LRPV1ND	EXIT+10!
LRQUIT	EXIT+4!, PRT+2, PRT+4, PRT+7, PRT+9, PRT+10, PRT+13, PRT+16, PRT+19, PRT+22 , PRT+24, PRT+25, PRT+27, PRT+28, PRT+30, PRT+31, PATH, PATH+1, PAUSE+3*, NPG+2
LRREP	CHOOSE+10*, CHOOSE+13, EXIT+5!
LRREP(	CHOOSE+3*, CHOOSE+4, CHOOSE+13
LRRNDT	EXIT+2!
LRRPE	EXIT+2!
LRRPS	EXIT+2!
LRSBCNT	EXIT+8!, PRT+48, PRT+49, PRT+54, PRT+75, PRT+76, PRT+79, PRT+80, PRT+81, PRT+82* , PRT+83, PRT+84, PRT+85*, ZXETOT+2, ZXETOT+4, DSPTOT+1, DSPTOT+3
LRSEG	EXIT+7!, PRT+88!
LRSPSHT	EXIT+5!
LRSUBCNT	EXIT+10!, PRT+60*
LRTMP	EXIT+10!
LRTOT	EXIT+10!
LRTOT(	PRT+73*, PRT+74
LRTOTCNT	EXIT+10!
LRTYPE	EXIT+7!, PRT+48, PRT+49, PRT+50, PRT+51, PRT+52, PRT+53, PRT+75, PRT+76, PRT+77 , PRT+78, PRT+79, PRT+80, PRT+81, PRT+82, PRT+83, PRT+84, PRT+85
LRUPDNUM	EXIT+7!, PRT+40, PRT+41
LRZXE	EXIT+10!
LRZXECNT	EXIT+7!, PRT+48, PRT+52, PRT+53
MSG	EXIT+5!
MSGLIN	PRT+88!
POP	EXIT+3!, Q
SITE	EXIT+10!
SSN	EXIT+10!
U	ALL+14
X	ALL+8, EXIT+3!
X1	EXIT+3!
Y	CHOOSE+3*, CHOOSE+10, PRIV+5, ALL+4, ALL+13, ALL+14, EXIT+3!
ZTDESC	EXIT+3!, Q+1*
ZTDTH	EXIT+3!
ZTIO	EXIT+3!
ZTREQ	EXIT+11!, Q+1*
ZTRTN	EXIT+3!, Q+1*
ZTSAVE	EXIT+2!
ZTSAVE("LR*"	Q+1*
ZTSK	EXIT+3!, Q+2, Q+3

Customize PDF page

Package: Lab Service

Routine: LREPIRP7

Information

Source Information

Call Graph

Call Graph Total: 5

Caller Graph

Legends:

Package Component Superscript legend

Caller Graph Total: 2

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: