Routine: APCLYV22

Information

APCLYV22 ; IHS/CMI/LAB - PRINT OUTPT VISITS WITH ICD CODES ;

Call Graph

Call Graph Total: 7

Package	Total	Call Graph
IHS VA Utilities	2	$$VAL^XBDIQ1 $$PROVCLS^XBFUNC1
VA Fileman	2	EN^DIQ1 ^DIR
DRG Grouper	1	($$ICDDX,$$ICDOP)^ICDEX
IHS Patient Registration	1	$$GETMCR^AGUTL
Patient Care Component Reports	1	DONE^APCLOSUT

Entry Points

Name	Comments	DBIA/ICR reference
SET21	;
SET	;set up print fields
END	;
PRV1
PRC
POV
HEAD	;
TOTALS	;print totals
SET4
INIT	;initialize variables
PRV
SET1
SET2
SET3
PAGE	;

External References

Name	Field # of Occurrence
$$GETMCR^AGUTL	SET21+9
DONE^APCLOSUT	END+1
EN^DIQ1	SET21+5
^DIR	PAGE+2
$$ICDDX^ICDEX	POV+6
$$ICDOP^ICDEX	PRC+5
$$VAL^XBDIQ1	POV+7
$$PROVCLS^XBFUNC1	PRV+4

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"NO DATA TO REPORT" Line Location: INIT+2
Function Call: WRITE	Prompt: !,$E(APCLNAME,1,20),?22,$J(APCLHRCN,6),?31,APCL65,?32,APCLDOB,?43,APCLMCR Line Location: SET21+12
Function Call: WRITE	Prompt: ! Line Location: SET4+2
Function Call: WRITE	Prompt: ?57,$E(APCLVDT,4,5),"/",$E(APCLVDT,6,7),"/",(1700+($E(APCLVDT,1,3))) Line Location: SET4+6
Function Call: WRITE	Prompt: ?69,$E(APCLCLS,1,3) Line Location: PRV1+0
Function Call: WRITE	Prompt: ! Line Location: POV+8
Function Call: WRITE	Prompt: ! Line Location: POV+8
Function Call: WRITE	Prompt: ?74,APCLVRV,?77,APCLVPOV,?87,$E(APCLNAR,1,45) Line Location: POV+10
Function Call: WRITE	Prompt: ! Line Location: PRC+7
Function Call: WRITE	Prompt: ! Line Location: PRC+7
Function Call: WRITE	Prompt: ?73,APCLVRV,?76,"*",APCLPRC,?87,$E(APCLNAR,1,45) Line Location: PRC+9
Function Call: WRITE	Prompt: !!?39,"TOTAL PATIENTS: ",APCLPTOT Line Location: TOTALS+2
Function Call: WRITE	Prompt: !!?40,"TOTALS VISITS: ",APCLVTOT Line Location: TOTALS+3
Function Call: WRITE	Prompt: !!,$P(^VA(200,DUZ,0),"^",2) Line Location: HEAD+2
Function Call: WRITE	Prompt: ?(132-$L(X)/2),X,?122,"Page ",APCLPAGE Line Location: HEAD+4
Function Call: WRITE	Prompt: !,Y Line Location: HEAD+5
Function Call: WRITE	Prompt: ?46,"ALL OUTPATIENT VISITS (exluding dental)" Line Location: HEAD+6
Function Call: WRITE	Prompt: !?51,"for ",$E(APCLBD,4,5),"/",$E(APCLBD,6,7),"/",(1700+($E(APCLBD,1,3))) Line Location: HEAD+10
Function Call: WRITE	Prompt: " to ",$E(APCLED,4,5),"/",$E(APCLED,6,7),"/",(1700+($E(APCLED,1,3))) Line Location: HEAD+11
Function Call: WRITE	Prompt: !!,"NAME",?23,"HRCN",?36,"DOB",?43,"MEDICARE #",?56,"VISIT DATE",?68,"PROV",?73,"F/R",?77,"ICD",?87,"PROV NARRATIVE",! Line Location: HEAD+13
Function Call: WRITE	Prompt: ! Line Location: PAGE+2
Routine Call	DIR Line Location: PAGE+2

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^%ZOSF("RM"	INIT+1, END+2
^AUPNMCR - [#9000003]	SET21+9
^AUPNPAT - [#9000001]	SET2+4, SET2+5
^AUPNVPOV - [#9000010.07]	POV+2
^AUPNVPOV("AD"	POV
^AUPNVPRC - [#9000010.08]	PRC+1
^AUPNVPRC("AD"	PRC
^AUPNVPRV - [#9000010.06]	PRV+2, PRV+3
^AUPNVPRV("AD"	PRV
^AUTNPOV - [#9999999.27]	PRC+6
^AUTTMCS - [#9999999.32]	SET21+10
^DD("DD"	HEAD+5
^DD(9000010.06	PRV+4
^DIC(4 - [#4]	HEAD+3
^DIC(6 - [#6]	PRV+5
^DIC(7 - [#7]	PRV+6
^DPT - [#2]	SET21+3, SET21+8
^UTILITY("DIQ1"	SET21+5!, SET21+6!
^VA(200 - [#200]	HEAD+2
^XTMP("APCLYV2"	INIT+2, SET1, SET2, SET3, SET4, END+7!

Label References

Name	Line Occurrences
END	INIT+2, SET21+11, SET4+2, POV+8, PRC+7
HEAD	INIT+2, SET+1, PAGE+1, PAGE+3
PAGE	SET21+11, SET4+2, POV+8, PRC+7, TOTALS+1
POV	PRV+1, POV+2, POV+11
PRC	POV+1, PRC+1, PRC+10
PRV	PRV+2
PRV1	PRV+4
SET1	SET2
SET2	SET3
SET21	SET2+4
SET3	SET4
SET4	PRC
TOTALS	SET1

Naked Globals

Name	Field # of Occurrence
^(0	SET2+5, SET21+9, SET21+10, PRV+2, POV+2, PRC+1, PRC+6

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%DT	END+3!
A	END+4!
APCL65	SET21+7*, SET21+12, END+3!
APCLAGE	SET21+6*, SET21+7, END+6!
APCLBD	END+3!, HEAD+10
>> APCLBT	INIT+2, SET1, SET2, SET3, SET4, END+7
APCLCLS	PRV+4, PRV+6, PRV1, END+3!
APCLDEN	END+3!
APCLDFN	SET1, SET2, SET2+4, SET2+5, SET21+3, SET21+5, SET21+6, SET21+8, SET21+9, SET3 , SET4, END+3!
APCLDOB	SET21+3*, SET21+12, END+6!
APCLED	END+3!, HEAD+11
APCLFPV	SET4+3, POV+8, POV+9, PRC+7, PRC+8*, END+3!
APCLFVS	SET2+1, SET4+2, SET4+3, END+3!
APCLHRCN	SET2+4, SET2+5, SET21+12, END+6!
APCLIOM	INIT+1*, END+2, END+3!
>> APCLJOB	INIT+2, SET1, SET2, SET3, SET4, END+7
>> APCLLOC	SET2+4
APCLMCR	SET21+8, SET21+9, SET21+10*, SET21+12, END+3!
APCLNAME	SET+1, SET1, SET2, SET21+12, SET3, SET4, END+4!
APCLNAR	POV+4, POV+7, POV+10, PRC+3, PRC+6, PRC+9, END+4!
APCLPAGE	INIT+2, INIT+4, END+3!, HEAD+3*, HEAD+4
APCLPRC	PRC+3, PRC+5, PRC+9, END+4!
APCLPRV	SET4+10, PRV, PRV+1, PRV+2, PRV+3, END+4!
APCLPS	PRC+2*, END+3!
APCLPTOT	INIT+3, SET2+3, TOTALS+2, END+4!
APCLPV	PRV+1, PRV1+3, POV*, POV+1, POV+2, POV+7, END+4!
APCLSEX	SET21+8*, END+6!
APCLSFX	SET21+8, SET21+9, SET21+10, END+6!
APCLSTOP	INIT+4, SET21+11, SET4+2, POV+8, PRC+7, END+5!, PAGE+2
APCLSTR	POV+2, POV+3, POV+4, PRC+1, PRC+2, PRC+3, END+3!, END+6!
APCLVDFN	SET3, SET4, PRV, POV, PRC, END+5!
APCLVDT	SET2+1, SET3, SET4, SET4+6, END+5!
APCLVPOV	POV+4, POV+6, POV+10, END+5!
APCLVPRC	POV+1, PRC, PRC+1, END+5!
APCLVRV	POV+3, POV+10, PRC+2, PRC+9, END+5!
APCLVTOT	INIT+3, SET4+1, TOTALS+3, END+5!
DA	SET21+5*, END+3!
DIC	SET21+5*, END+6!
DIR	PAGE+2!
DIR(0	PAGE+2*
DR	SET21+5*, END+6!
DT	HEAD+5
>> DTOUT	PAGE+2
DUZ	HEAD+2
DUZ(2	SET2+5, HEAD+3
IO	PAGE+2
IO(0	PAGE+2
IOF	END+2, HEAD+1
IOM	INIT+1
IOSL	SET21+11, SET4+2, POV+8, PRC+7, TOTALS+1
IOST	PAGE+1, PAGE+2
POP	END+4!
U	SET2+4, SET2+5, PRV+4
X	INIT+1, SET21+3, PRV+3, PRV+4, PRV+5, PRV+6, END+2, END+6!, HEAD+3, HEAD+4
Y	END+3!, HEAD+5*, PAGE+2

Customize PDF page

Package: Patient Care Component Reports

Routine: APCLYV22

Information

Source Information

Call Graph

Call Graph Total: 7

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: