Routine: APCDEGP3

Information

APCDEGP3 ; IHS/CMI/LAB - NO DESCRIPTION PROVIDED ;

Call Graph

Call Graph Total: 5

Package	Total	Call Graph
IHS VA Utilities	2	$$VAL^XBDIQ1 $$EXTSET^XBFUNC
VA Fileman	2	DD^%DT ^DIR
DRG Grouper	1	$$ICDDX^ICDEX

Caller Graph

Caller Graph Total: 1

Package	Total	Caller Graph
Patient Care Component	1	APCDEGPP

Entry Points

Name	Comments	DBIA/ICR reference
PRTTXT	; GENERALIZED TEXT PRINTER
POV	;EP
DEMO	;demographics
GETFRAG
MEDS	;
POV1	;
FF	;
PTED	;
TRT	;
PRTTXT2

External References

Name	Field # of Occurrence
DD^%DT	DEMO+9
^DIR	FF+1
$$ICDDX^ICDEX	POV1+3
$$VAL^XBDIQ1	POV1+5
$$EXTSET^XBFUNC	DEMO+8

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !,$TR($J("",80)," ","_") Line Location: POV+2
Function Call: WRITE	Prompt: !?3,"ICD CODE PURPOSE OF VISIT (POV)" Line Location: POV+3
Function Call: WRITE	Prompt: !,$TR($J("",80)," ","_") Line Location: POV+4
Function Call: WRITE	Prompt: ! Line Location: POV1+8
Function Call: WRITE	Prompt: !,$TR($J("",80)," ","_") Line Location: POV1+9
Function Call: WRITE	Prompt: !! Line Location: MEDS+1
Function Call: WRITE	Prompt: !?3,"MEDICATIONS: " Line Location: MEDS+3
Function Call: WRITE	Prompt: ! Condition for execution: C Line Location: MEDS+5
Function Call: WRITE	Prompt: ?16,$P(^PSDRUG(Y,0),U) Line Location: MEDS+5
Function Call: WRITE	Prompt: ?48,"QUANTITY: ",$P(^AUPNVMED(X,0),U,6)," DAYS: ",$P(^(0),U,7) Line Location: MEDS+6
Function Call: WRITE	Prompt: !?17,"SIG: ",$P(^AUPNVMED(X,0),U,5) Line Location: MEDS+7
Function Call: WRITE	Prompt: !! Line Location: TRT+1
Function Call: WRITE	Prompt: !,$TR($J("",80)," ","_") Line Location: TRT+3
Function Call: WRITE	Prompt: !?3,"TREATMENTS PROVIDED: " Line Location: TRT+4
Function Call: WRITE	Prompt: ! Condition for execution: C Line Location: TRT+6
Function Call: WRITE	Prompt: ?26,$P(^AUTTTRT(Y,0),U) Line Location: TRT+6
Function Call: WRITE	Prompt: !! Line Location: PTED+1
Function Call: WRITE	Prompt: !,$TR($J("",80)," ","_") Line Location: PTED+3
Function Call: WRITE	Prompt: !?3,"PATIENT EDUCATION PROVIDED: " Line Location: PTED+4
Function Call: WRITE	Prompt: ! Condition for execution: C Line Location: PTED+6
Function Call: WRITE	Prompt: ?32,$P(^AUTTEDT(Y,0),U) Line Location: PTED+6
Function Call: WRITE	Prompt: !,$TR($J("",80)," ","_") Line Location: DEMO+5
Function Call: WRITE	Prompt: !?3,"HR#: ",APCDHRN,?30,"SSN: ",$P(^DPT(DFN,0),U,9) Line Location: DEMO+6
Function Call: WRITE	Prompt: !,?3,"NAME:",?9,$P(^DPT(DFN,0),U) Line Location: DEMO+7
Function Call: WRITE	Prompt: !?3,"SEX: ",?9,$$EXTSET^XBFUNC(2,.02,$P(^DPT(DFN,0),U,2)),?30,"TRIBE: " Line Location: DEMO+8
Function Call: WRITE	Prompt: $P(^AUTTTRI($P(^AUPNPAT(DFN,11),U,8),0),U) Line Location: DEMO+8
Function Call: WRITE	Prompt: !?3,"DOB: " Line Location: DEMO+9
Function Call: WRITE	Prompt: ?9,Y Line Location: DEMO+9
Function Call: WRITE	Prompt: !?3,"RESIDENCE: ",$P($G(^AUPNPAT(DFN,11)),U,18) Line Location: DEMO+10
Function Call: WRITE	Prompt: !?3,"FACILITY: ",$E($P(^DIC(4,DUZ(2),0),U),1,25),?38,"LOCATION: ",$P(^DIC(4,$P(APCDR0,U,6),0),U) Line Location: DEMO+11
Function Call: WRITE	Prompt: !?3,"OUTSIDE LOCATION: ",$P(^AUPNVSIT(APCDR,21),U) Line Location: DEMO+12
Function Call: WRITE	Prompt: !!?20,"PROVIDER SIGNATURE: " Line Location: DEMO+13
Function Call: WRITE	Prompt: !! Line Location: DEMO+14
Function Call: WRITE	Prompt: !,$TR($J("",80)," ","*") Line Location: DEMO+15
Function Call: WRITE	Prompt: ?APCDTICL Line Location: PRTTXT2+0
Function Call: WRITE	Prompt: APCDTF,! Line Location: PRTTXT2+0
Function Call: WRITE	Prompt: ! Line Location: FF+1
Routine Call	DIR Line Location: FF+1

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^AUPNPAT - [#9000001]	DEMO+3, DEMO+8, DEMO+10
^AUPNVMED - [#9000010.14]	MEDS+4, MEDS+6, MEDS+7
^AUPNVMED("AD"	MEDS+1, MEDS+4
^AUPNVPED - [#9000010.16]	PTED+5
^AUPNVPED("AD"	PTED+1, PTED+5
^AUPNVPOV - [#9000010.07]	POV1+3
^AUPNVPOV("AD"	POV1+1
^AUPNVSIT - [#9000010]	DEMO+12
^AUPNVTRT - [#9000010.15]	TRT+5
^AUPNVTRT("AD"	TRT+1, TRT+5
^AUTTEDT - [#9999999.09]	PTED+6
^AUTTTRI - [#9999999.03]	DEMO+8
^AUTTTRT - [#9999999.17]	TRT+6
^DIC(4 - [#4]	DEMO+11
^DPT - [#2]	DEMO+6, DEMO+7, DEMO+8, DEMO+9
^PSDRUG - [#50]	MEDS+5

Label References

Name	Line Occurrences
DEMO	PTED+1
FF	POV+1, POV1+2, POV1+8, POV1+9, MEDS+2, TRT+2, PTED+2, DEMO+1
GETFRAG	PRTTXT2
PRTTXT	POV1+5
PRTTXT2	PRTTXT+2
PTED	TRT+1
TRT	MEDS+1

Naked Globals

Name	Field # of Occurrence
^(0	MEDS+6

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> APCDC	POV1+1, POV1+6, POV1+8
>> APCDHRN	DEMO+3, DEMO+4, DEMO+6
>> APCDQUIT	POV+1, POV1+1, POV1+2, POV1+8, POV1+9, MEDS+2, TRT+2, PTED+2, DEMO+1, FF+1*
>> APCDR	POV1+1, MEDS+1, MEDS+4, TRT+1, TRT+5, PTED+1, PTED+5, DEMO+12
>> APCDR0	DEMO+2, DEMO+11
APCDTC	PRTTXT+3!, GETFRAG+1*, GETFRAG+2
APCDTDLT	PRTTXT+1, PRTTXT+3!, PRTTXT2
APCDTDOO	PRTTXT+3!
APCDTF	PRTTXT+3!, PRTTXT2, GETFRAG, GETFRAG+2
>> APCDTICL	POV1+5, PRTTXT+1, PRTTXT2
APCDTILN	PRTTXT+1, PRTTXT+3!, PRTTXT2, GETFRAG, GETFRAG+1
>> APCDTNRQ	POV1+5, PRTTXT+2
>> APCDTQ	PRTTXT+2*
APCDTTXT	POV1+5, PRTTXT+2, PRTTXT+3!, GETFRAG, GETFRAG+1, GETFRAG+2
>> APCDX	POV1+1*, POV1+3, POV1+5
>> C	MEDS+4, MEDS+5, MEDS+8, TRT+5, TRT+6, TRT+7, PTED+5, PTED+6, PTED+7
>> DFN	DEMO+2*, DEMO+3, DEMO+6, DEMO+7, DEMO+8, DEMO+9, DEMO+10
DIR	FF+1!
DIR(0	FF+1*
>> DTOUT	FF+1
DUZ(2	DEMO+3, DEMO+11
>> I	POV1+8*
IO	FF+1
IO(0	FF+1
IOF	FF+2
IOSL	POV+1, POV1+2, POV1+8, POV1+9, MEDS+2, TRT+2, PTED+2, DEMO+1
IOST	FF+1
U	POV1+3, MEDS+5, MEDS+6, MEDS+7, TRT+6, PTED+6, DEMO+2, DEMO+3, DEMO+6, DEMO+7 , DEMO+8, DEMO+9, DEMO+10, DEMO+11, DEMO+12
>> X	MEDS+4, MEDS+6, MEDS+7, TRT+5, PTED+5*
>> Y	MEDS+4, MEDS+5, TRT+5, TRT+6, PTED+5, PTED+6, DEMO+9, FF+1

Customize PDF page

Package: Patient Care Component

Routine: APCDEGP3

Information

Source Information

Call Graph

Call Graph Total: 5

Caller Graph

Caller Graph Total: 1

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: