Routine: APCLNJ12

Package	Total	Call Graph
IHS VA Utilities	3	$$VAL^XBDIQ1 $$EXTSET^XBFUNC $$PROVCLSC^XBFUNC1
VA Fileman	3	DD^%DT EN^DIQ1 ^DIR
Patient Care Component Reports	2	^APCLNJ13 DONE^APCLOSUT
DRG Grouper	1	$$ICDDX^ICDEX

Entry Points

Name	Comments	DBIA/ICR reference
HEAD
SET	;
END	;
PRV1
HEAD1	;
SET41	;
TIME
SET4	;
SET5	;
INIT	;initialize variables
PRV
SET2	;
SET3
PRNT	;

External References

Name	Field # of Occurrence
DD^%DT	INIT+1
^APCLNJ13	INIT+2
DONE^APCLOSUT	END+1
EN^DIQ1	SET41+1
^DIR	HEAD+1
$$ICDDX^ICDEX	PRNT+3, PRNT+5, PRNT+6, PRNT+7, PRNT+11, PRNT+12
$$VAL^XBDIQ1	PRNT+3
$$EXTSET^XBFUNC	PRV1+1, PRNT+10, PRNT+13
$$PROVCLSC^XBFUNC1	PRV+4

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"No injury visits to report." Line Location: INIT+4
Function Call: WRITE	Prompt: !!,$E(APCLNAME,1,20),?22,$J(APCLHRCN,6),?32,$J(APCLAGE,2) Line Location: SET41+4
Function Call: WRITE	Prompt: ?38,$E(APCLVDT,4,5),"/",$E(APCLVDT,6,7),"/",$E(APCLVDT,2,3)_" "_$E($P(APCLVDT,".",2)_"0000",1,4) Line Location: SET41+5
Function Call: WRITE	Prompt: ?54,APCLCLS Line Location: PRV1+0
Function Call: WRITE	Prompt: ?60,$E(APCLTYPE,1,9) Line Location: PRV1+1
Function Call: WRITE	Prompt: ?70,$E(APCLSC,1,10) Line Location: PRV1+1
Function Call: WRITE	Prompt: !,"ICD: ",$P($$ICDDX^ICDEX(+^AUPNVPOV(APCLPOV,0)),U,2),?19,"Provider Narrative: ",$S($P(^AUPNVPOV(APCLPOV,0),U,4):$E($$VAL^XBDIQ1(9000010.07,APCLPOV,.04),1,40),1:"????") Line Location: PRNT+3
Function Call: WRITE	Prompt: !,"Cause of Injury: ",?19,$P(^ICD9($P(^AUPNVPOV(APCLPOV,0),U,9),0),U)," - ",$P(^(0),U,3) Line Location: PRNT+4
Function Call: WRITE	Prompt: !,"Cause of Injury: ",?19,$P($$ICDDX^ICDEX($P(^AUPNVPOV(APCLPOV,0),U,9)),U,2)," - ",$E($P($$ICDDX^ICDEX($P(^AUPNVPOV(APCLPOV,0),U,9)),U,4),1,45) Line Location: PRNT+5
Function Call: WRITE	Prompt: !,"Cause of Injury #2: ",?19,$P($$ICDDX^ICDEX($P(^AUPNVPOV(APCLPOV,0),U,18)),U,2)," - ",$E($P($$ICDDX^ICDEX($P(^AUPNVPOV(APCLPOV,0),U,18)),U,4),1,45) Line Location: PRNT+6
Function Call: WRITE	Prompt: !,"Cause of Injury #3: ",?19,$P($$ICDDX^ICDEX($P(^AUPNVPOV(APCLPOV,0),U,19)),U,2)," - ",$E($P($$ICDDX^ICDEX($P(^AUPNVPOV(APCLPOV,0),U,19)),U,4),1,45) Line Location: PRNT+7
Function Call: WRITE	Prompt: APCLFR Line Location: PRNT+8
Function Call: WRITE	Prompt: !,"Date of Injury: ",?19,$E($P(^AUPNVPOV(APCLPOV,0),U,13),4,5),"/",$E($P(^AUPNVPOV(APCLPOV,0),U,13),6,7),"/",$E($P(^AUPNVPOV(APCLPOV,0),U,13),2,3) Line Location: PRNT+9
Function Call: WRITE	Prompt: !,"Place of Accident: ",APCLPA Line Location: PRNT+10
Function Call: WRITE	Prompt: !,"Place of Occurence: ",?19,$P($$ICDDX^ICDEX($P(^AUPNVPOV(APCLPOV,0),U,21)),U,2)," - ",$E($P($$ICDDX^ICDEX($P(^AUPNVPOV(APCLPOV,0),U,21)),U,4),1,45) Line Location: PRNT+11
Function Call: WRITE	Prompt: !,"Retained Foreign Body: ",?19,$P($$ICDDX^ICDEX($P(^AUPNVPOV(APCLPOV,0),U,23)),U,2)," - ",$E($P($$ICDDX^ICDEX($P(^AUPNVPOV(APCLPOV,0),U,23)),U,4),1,45) Line Location: PRNT+12
Function Call: WRITE	Prompt: !,"Cause of DX: ",$$EXTSET^XBFUNC(9000010.07,.07,$P(^AUPNVPOV(APCLPOV,0),U,7)) Line Location: PRNT+13
Function Call: WRITE	Prompt: ! Line Location: HEAD+1
Function Call: WRITE	Prompt: ! Line Location: HEAD1+2
Function Call: WRITE	Prompt: !,$P(^VA(200,DUZ,0),"^",2),?(80-$L(X)/2),X,?72,"Page ",APCLPAGE,! Line Location: HEAD1+4
Function Call: WRITE	Prompt: ?26,"Visits with Injury Diagnosis",! Line Location: HEAD1+5
Function Call: WRITE	Prompt: ?15,"Visit Dates: ",APCLBDD," to ",APCLEDD Line Location: HEAD1+6
Function Call: WRITE	Prompt: !!,"PATIENT",?23,"HRCN",?31,"AGE",?40,"VISIT DATE",?54,"PRV",?60,"TYPE",?70,"SER CAT",! Line Location: HEAD1+7
Function Call: WRITE	Prompt: "--------------------------------------------------------------------------------" Line Location: HEAD1+8
Routine Call	DIR Line Location: HEAD+1

Name	Line Occurrences (* Changed, ! Killed)
^AUPNPAT - [#9000001]	SET4+2
^AUPNVPOV - [#9000010.07]	PRNT+3, PRNT+5, PRNT+6, PRNT+7, PRNT+9, PRNT+10, PRNT+11, PRNT+12, PRNT+13
^AUPNVPRV - [#9000010.06]	PRV+2, PRV+3
^AUPNVPRV("AD"	PRV
^AUPNVSIT - [#9000010]	PRV1+1
^DD(9000010.06	PRV+4
^DIC(4 - [#4]	HEAD1+3
^DIC(6 - [#6]	PRV+5
^DIC(7 - [#7]	PRV+6
^UTILITY("DIQ1"	SET41+1!, SET41+2!
^VA(200 - [#200]	HEAD1+4
^XTMP("APCLNJ1"	INIT+4, SET+2, END+2!, SET2+2, SET3, SET4+1, SET5+1

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%A	TIME~, TIME+1*, TIME+2, TIME+3!
%B	TIME~, TIME+1*, TIME+3!
%C	TIME~, TIME+2*, TIME+3!
>> APCLAGE	SET41+2*, SET41+4
>> APCLBD	INIT+1
>> APCLBDD	INIT+1*, HEAD1+6
>> APCLBT	INIT+4, SET+2, END+2, SET2+2, SET3, SET4+1, SET5+1
>> APCLCLS	PRV+4, PRV+6, PRV1
>> APCLDFN	SET2+1, SET2+2, SET3, SET4+1, SET4+2, SET41+1, SET41+2, SET5+1
>> APCLED	INIT+1
>> APCLEDD	INIT+1*, HEAD1+6
APCLET	END+2!
>> APCLHRCN	SET4+2*, SET41+4
>> APCLJOB	INIT+4, SET+2, END+2, SET2+2, SET3, SET4+1, SET5+1
>> APCLNAME	SET+1, SET+2, SET2+2, SET3, SET4+1, SET41+4, SET5+1
>> APCLPA	PRNT+10*
APCLPAGE	INIT+2!, INIT+3, HEAD, HEAD1+1, HEAD1+4
>> APCLPOV	SET5+1*, PRNT+3, PRNT+5, PRNT+6, PRNT+7, PRNT+9, PRNT+10, PRNT+11, PRNT+12, PRNT+13
>> APCLPRV	SET41+7, PRV, PRV+1, PRV+2, PRV+3
>> APCLPV	PRV+1*
>> APCLSC	PRV1+1*
APCLSTOP	INIT+2!, INIT+3, SET+2, SET3, SET41+3, SET5+1, PRNT+1, HEAD+1
>> APCLTYPE	PRV1+1*
>> APCLVDFN	SET4+1*, PRV, PRV1+1, SET5+1
>> APCLVDT	SET3*, SET4+1, SET41+5, SET5+1
>> DA	SET41+1*
>> DIC	SET41+1*
DIR	HEAD+1!
DIR(0	HEAD+1*
>> DR	SET41+1*
>> DTOUT	HEAD+1
DUZ	HEAD1+4
DUZ(2	SET4+2, HEAD1+3
IO	HEAD+1
IO(0	HEAD+1
IOF	HEAD1+1
IOSL	SET41+3, PRNT+1
IOST	HEAD+1
U	SET4+2, PRV+4, PRV1+1, PRNT+3, PRNT+5, PRNT+6, PRNT+7, PRNT+9, PRNT+10, PRNT+11 , PRNT+12, PRNT+13
>> X	PRV+3, PRV+4, PRV+5, PRV+6, HEAD1+3*, HEAD1+4, TIME, TIME+1
Y	INIT+1, HEAD+1, TIME~, TIME+3*

Customize PDF page

Package: Patient Care Component Reports

Routine: APCLNJ12

Information

Source Information

Call Graph

Call Graph Total: 9

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend:

Name	Line Occurrences
END	INIT+4
HEAD	INIT+3, SET41+3, PRNT+1
HEAD1	HEAD
PRNT	SET5+1
PRV	PRV+2
PRV1	PRV+4
SET2	SET+2
SET4	SET3
SET5	PRV+1