Routine: CIMGAGPX

Package	Total	Call Graph
IHS Patient	1	($$AGE,$$HRN)^AUPNPAT
Kernel	1	$$FMTE^XLFDT
VA Fileman	1	^DIR

Package

Total

Call Graph

IHS Patient

($$AGE,$$HRN)^AUPNPAT

Kernel

$$FMTE^XLFDT

VA Fileman

^DIR

Package	Total	Caller Graph
Aberdeen GPRA Report	1	CIMGAGPW

Package

Total

Caller Graph

Aberdeen GPRA Report

CIMGAGPW

Entry Points

Name	Comments	DBIA/ICR reference
SET	;
END	;
LOC()	;EP - Return location name from file 4 based on DUZ(2).
HEADER
PRNT	;
CTR(X,Y)	;EP - Center X in a field Y wide.
USR()	;EP - Return name of current user from ^VA(200.
SET4	;
SET5	;
INIT	;initialize variables
HEADER1	;
SET2	;
SET3

Name	Field # of Occurrence
$$AGE^AUPNPAT	SET4+2
$$HRN^AUPNPAT	SET4+2
^DIR	HEADER+1
$$FMTE^XLFDT	HEADER1+2, HEADER1+5, HEADER1+6

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"No injury visits to report." Line Location: INIT+3
Function Call: WRITE	Prompt: !!,$E(CIMNAME,1,20),?22,$J($$HRN^AUPNPAT(DFN,DUZ(2)),6),?32,$J($$AGE^AUPNPAT(DFN,$P($P(^AUPNVSIT(CIMV,0),U),".")),2),?40,$P($G(^AUPNPAT(DFN,11)),U,18) Line Location: SET4+2
Function Call: WRITE	Prompt: ?60,$E(D,4,5),"/",$E(D,6,7),"/",(1700+$E(D,1,3)) Line Location: SET4+3
Function Call: WRITE	Prompt: !,"ICD9: ",$P(^ICD9(+^AUPNVPOV(CIMPOV,0),0),U),?19,"Provider Narrative: ",$S($P(^AUPNVPOV(CIMPOV,0),U,4):$E($P(^AUTNPOV($P(^AUPNVPOV(CIMPOV,0),U,4),0),U),1,40),1:"<no narrative available>") Line Location: PRNT+2
Function Call: WRITE	Prompt: !,"Cause of Injury: ",?19,$P(^ICD9($P(^AUPNVPOV(CIMPOV,0),U,9),0),U)," - ",$P(^(0),U,3) Line Location: PRNT+3
Function Call: WRITE	Prompt: !,"Date of Injury: ",?19,$E($P(^AUPNVPOV(CIMPOV,0),U,13),4,5),"/",$E($P(^AUPNVPOV(CIMPOV,0),U,13),6,7),"/",$E($P(^AUPNVPOV(CIMPOV,0),U,13),2,3) Line Location: PRNT+4
Function Call: WRITE	Prompt: ! Line Location: HEADER+1
Function Call: WRITE	Prompt: !?3,$P(^VA(200,DUZ,0),U,2),?35,$$FMTE^XLFDT(DT),?70,"Page ",CIMGPG,! Line Location: HEADER1+2
Function Call: WRITE	Prompt: !,$$CTR("* ABERDEEN AREA GPRA INDICATORS *",80),! Line Location: HEADER1+3
Function Call: WRITE	Prompt: $$CTR($P(^DIC(4,DUZ(2),0),U)),! Line Location: HEADER1+4
Function Call: WRITE	Prompt: $$CTR(X,80),! Line Location: HEADER1+5
Function Call: WRITE	Prompt: $$CTR(X,80),! Line Location: HEADER1+6
Function Call: WRITE	Prompt: ?26,"Visits with Injury Diagnosis",! Line Location: HEADER1+7
Function Call: WRITE	Prompt: !!,"PATIENT",?23,"HRCN",?31,"AGE",?40,"COMMUNITY",?60,"VISIT DATE",! Line Location: HEADER1+8
Function Call: WRITE	Prompt: "--------------------------------------------------------------------------------" Line Location: HEADER1+9
Routine Call	DIR Line Location: HEADER+1

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^AUPNPAT - [#9000001]	SET4+2
^AUPNVPOV - [#9000010.07]	PRNT+2, PRNT+3, PRNT+4
^AUPNVSIT - [#9000010]	SET4+2, SET4+3
^AUTNPOV - [#9999999.27]	PRNT+2
^DIC(4 - [#4]	HEADER1+4, LOC+1
^ICD9 - [#80]	PRNT+2, PRNT+3
^VA(200 - [#200]	HEADER1+2, USR+1
^XTMP("CIMGAGP"	INIT+3, SET+2, SET2+2, SET3+1, SET5+1

Name	Line Occurrences
$$CTR	HEADER1+3, HEADER1+4, HEADER1+5, HEADER1+6
END	INIT+3
HEADER	INIT+2, SET4+1, PRNT+1
HEADER1	HEADER
PRNT	SET5+1
SET2	SET+2
SET3	SET2+2
SET4	SET3+1

Name	Field # of Occurrence
^(0	PRNT+3, USR+1, LOC+1

Local Variables

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> CIM98B	HEADER1+6
>> CIM98E	HEADER1+6
>> CIMBD	HEADER1+5
>> CIMED	HEADER1+5
>> CIMGH	INIT+3, SET+2, SET2+2, SET3+1, SET5+1
>> CIMGJ	INIT+3, SET+2, SET2+2, SET3+1, SET5+1
>> CIMGPG	INIT+1, HEADER, HEADER1+1, HEADER1+2
>> CIMNAME	SET+1, SET+2, SET2+2, SET3+1, SET4+2, SET5+1
>> CIMPOV	SET5+1*, PRNT+2, PRNT+3, PRNT+4
>> CIMQUIT	INIT+2, SET+2, SET3+1, SET4+1, SET5+1, PRNT+1, HEADER+1*
>> CIMV	SET3+1*, SET4+2, SET4+3, SET5+1
>> D	SET4+3*
>> DFN	SET2+1, SET2+2, SET3+1, SET4+2, SET5+1
DIR	HEADER+1!
DIR(0	HEADER+1*
DT	HEADER1+2
>> DTOUT	HEADER+1
DUZ	HEADER1+2, USR+1
DUZ(2	SET4+2, HEADER1+4, LOC+1
IO	HEADER+1
IO(0	HEADER+1
IOF	HEADER1+1
IOM	CTR+1
IOSL	SET4+1, PRNT+1
IOST	HEADER+1
U	SET4+2, SET4+3, PRNT+2, PRNT+3, PRNT+4, HEADER1+2, HEADER1+4, USR+1, LOC+1
X	HEADER1+5, HEADER1+6, CTR~, CTR+1
Y	HEADER+1, CTR~, CTR+1
>> ZTQUEUED	HEADER+1

Customize PDF page

Package: Aberdeen GPRA Report

Routine: CIMGAGPX

Information

Source Information

Call Graph

Call Graph Total: 3

Caller Graph

Caller Graph Total: 1

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: