Routine: APCDEGPP

Package	Total	Call Graph
Patient Care Component	4	(VFL,VST)^APCDEF MAIN^APCDEFC MAIN^APCDEFP POV^APCDEGP3
VA Fileman	2	DD^%DT ^DIR
DRG Grouper	1	$$ICDOP^ICDEX
IHS Patient	1	$$OUT^AUPNVMSR

Entry Points

Name	Comments	DBIA/ICR reference
PRINT1	;EP - CALLED FROM LAST VISIT DISPLAY
MEAS	;
HF	;
D	; Run by visit date
POV
COMP	;EP - do nothing
SKIN	;
IMM	;
GETFRAG
PRTTXT	; GENERALIZED TEXT PRINTER
LABS	;
DATE
XIT	;
AT	;
FF	;
TIME
PRINT	; EP - print individual forms
PRTTXT2
PROC	;
EXAM	;

External References

Name	Field # of Occurrence
DD^%DT	DATE+1, TIME
VFL^APCDEF	PRINT1+3
VST^APCDEF	PRINT1+2
MAIN^APCDEFC	PRINT1+5
MAIN^APCDEFP	PRINT1+6
POV^APCDEGP3	POV+1
$$OUT^AUPNVMSR	MEAS+6
^DIR	FF+1
$$ICDOP^ICDEX	PROC+5

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!!!,?16,"***** CONFIDENTIAL PATIENT INFORMATION *****" Line Location: PRINT1+11
Function Call: WRITE	Prompt: !?25,"PCC AMBULATORY ENCOUNTER RECORD" Line Location: PRINT1+12
Function Call: WRITE	Prompt: !,?9,"* Computer Generated Encounter Record from GROUP FORM *" Line Location: PRINT1+13
Function Call: WRITE	Prompt: !!,$TR($J("",80)," ","*") Line Location: PRINT1+14
Function Call: WRITE	Prompt: !?3,"Visit Date: " Line Location: DATE+1
Function Call: WRITE	Prompt: Y Line Location: DATE+1
Function Call: WRITE	Prompt: ?49,$P(^VA(200,Y,0),U) Line Location: DATE+3
Function Call: WRITE	Prompt: !?3,"Clinic: " Line Location: DATE+4
Function Call: WRITE	Prompt: $P(^DIC(40.7,X,0),U) Line Location: DATE+4
Function Call: WRITE	Prompt: ! Condition for execution: C Line Location: DATE+6
Function Call: WRITE	Prompt: ?49,$P(^VA(200,$P(^AUPNVPRV(APCDX,0),U),0),U) Line Location: DATE+6
Function Call: WRITE	Prompt: !?3,"Arrival Time: " Line Location: TIME+0
Function Call: WRITE	Prompt: $P(Y,"@",2) Line Location: TIME+0
Function Call: WRITE	Prompt: !?3,"Activity Time: " Line Location: AT+2
Function Call: WRITE	Prompt: $P(^AUPNVTM(X,0),U) Line Location: AT+2
Function Call: WRITE	Prompt: !,$TR($J("",80)," ","_") Line Location: MEAS+1
Function Call: WRITE	Prompt: !! Line Location: MEAS+2
Function Call: WRITE	Prompt: !?3,"MEASUREMENTS: " Line Location: MEAS+4
Function Call: WRITE	Prompt: ! Condition for execution: C Line Location: MEAS+6
Function Call: WRITE	Prompt: ?18,$P(^AUTTMSR(Y,0),U),?23,$$OUT^AUPNVMSR(X,$P(^AUPNVMSR(X,0),U,4)) Line Location: MEAS+6
Function Call: WRITE	Prompt: !,$TR($J("",80)," ","_") Line Location: MEAS+8
Function Call: WRITE	Prompt: !! Line Location: LABS+1
Function Call: WRITE	Prompt: !?3,"LAB TESTS: " Line Location: LABS+3
Function Call: WRITE	Prompt: ! Condition for execution: C Line Location: LABS+5
Function Call: WRITE	Prompt: ?15,$P(^LAB(60,Y,0),U)," RESULT: ",$P(^AUPNVLAB(X,0),U,4) Line Location: LABS+5
Function Call: WRITE	Prompt: !! Line Location: PROC+1
Function Call: WRITE	Prompt: !?3,"PROCEDURES: " Line Location: PROC+3
Function Call: WRITE	Prompt: ! Condition for execution: C Line Location: PROC+5
Function Call: WRITE	Prompt: ?16,$P($$ICDOP^ICDEX(Y,,,"I"),U,2),?25,$P(^AUTNPOV($P(^AUPNVPRC(X,0),U,4),0),U) Line Location: PROC+5
Function Call: WRITE	Prompt: !! Line Location: IMM+1
Function Call: WRITE	Prompt: !?3,"IMMUNIZATIONS: " Line Location: IMM+3
Function Call: WRITE	Prompt: ! Condition for execution: C Line Location: IMM+5
Function Call: WRITE	Prompt: ?18,$P(^AUTTIMM(Y,0),U)," SERIES: ",$P(^AUPNVIMM(X,0),U,4) Line Location: IMM+5
Function Call: WRITE	Prompt: !! Line Location: SKIN+1
Function Call: WRITE	Prompt: !?3,"SKIN TESTS: " Line Location: SKIN+3
Function Call: WRITE	Prompt: ! Condition for execution: C Line Location: SKIN+5
Function Call: WRITE	Prompt: ?16,$P(^AUTTSK(Y,0),U)," READING: ",$P(^AUPNVSK(X,0),U,5) Line Location: SKIN+5
Function Call: WRITE	Prompt: !! Line Location: EXAM+1
Function Call: WRITE	Prompt: !?3,"EXAMS: " Line Location: EXAM+3
Function Call: WRITE	Prompt: ! Condition for execution: C Line Location: EXAM+5
Function Call: WRITE	Prompt: ?12,$P(^AUTTEXAM(Y,0),U)," RESULTS: ",$P(^AUPNVXAM(X,0),U,4) Line Location: EXAM+5
Function Call: WRITE	Prompt: !! Line Location: HF+1
Function Call: WRITE	Prompt: !?3,"HEALTH FACTORS: " Line Location: HF+3
Function Call: WRITE	Prompt: ! Condition for execution: C Line Location: HF+5
Function Call: WRITE	Prompt: ?18,$P(^AUTTHF(Y,0),U) Line Location: HF+5
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)
^AUPNVHF - [#9000010.23]	HF+4
^AUPNVHF("AD"	HF+1, HF+4
^AUPNVIMM - [#9000010.11]	IMM+4, IMM+5
^AUPNVIMM("AD"	IMM+1, IMM+4
^AUPNVLAB - [#9000010.09]	LABS+4, LABS+5
^AUPNVLAB("AD"	LABS+1, LABS+4
^AUPNVMSR - [#9000010.01]	MEAS+5, MEAS+6
^AUPNVMSR("AD"	MEAS+2, MEAS+5
^AUPNVPRC - [#9000010.08]	PROC+4, PROC+5
^AUPNVPRC("AD"	PROC+1, PROC+4
^AUPNVPRV - [#9000010.06]	DATE+2, DATE+5, DATE+6
^AUPNVPRV("AD"	DATE+2, DATE+5
^AUPNVSIT - [#9000010]	PRINT1+8
^AUPNVSK - [#9000010.12]	SKIN+4, SKIN+5
^AUPNVSK("AD"	SKIN+1, SKIN+4
^AUPNVTM - [#9000010.19]	AT+2
^AUPNVTM("AD"	AT+1, AT+2
^AUPNVXAM - [#9000010.13]	EXAM+4, EXAM+5
^AUPNVXAM("AD"	EXAM+1, EXAM+4
^AUTNPOV - [#9999999.27]	PROC+5
^AUTTEXAM - [#9999999.15]	EXAM+5
^AUTTHF - [#9999999.64]	HF+5
^AUTTIMM - [#9999999.14]	IMM+5
^AUTTMSR - [#9999999.07]	MEAS+6
^AUTTSK - [#9999999.28]	SKIN+5
^DIC(40.7 - [#40.7]	DATE+4
^LAB(60 - [#60]	LABS+5
^VA(200 - [#200]	DATE+3, DATE+6

Label References

Name	Line Occurrences
EXAM	SKIN+1
FF	DATE, MEAS+3, LABS+2, PROC+2, IMM+2, SKIN+2, EXAM+2, HF+2
GETFRAG	PRTTXT2
HF	EXAM+1
IMM	PROC+1
LABS	MEAS+2
MEAS	AT+1
POV	HF+1
PRINT1	D+2
PROC	LABS+1
PRTTXT2	PRTTXT+2
SKIN	IMM+1

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
APCDC	XIT+1!
>> APCDEGP("FORMS"	D+2
>> APCDGROP	PRINT1+4*
APCDHRN	XIT+1!
APCDQUIT	PRINT+1, D+2, PRINT1+9, DATE, MEAS+3, LABS+2, PROC+2, IMM+2, SKIN+2, EXAM+2 , HF+2, POV+2, FF+1*, XIT+1!
APCDR	D+1, D+2, D+3!, PRINT1+1, PRINT1+8, DATE+2, DATE+5, AT+1, AT+2, MEAS+2 , MEAS+5, LABS+1, LABS+4, PROC+1, PROC+4, IMM+1, IMM+4, SKIN+1, SKIN+4, EXAM+1 , EXAM+4, HF+1, HF+4, XIT+1!
APCDR0	D+3!, PRINT1+8*, DATE+1, DATE+4, TIME, XIT+1!
APCDTC	PRTTXT+3!, GETFRAG+1*, GETFRAG+2, XIT+1!
APCDTDLT	PRTTXT+1, PRTTXT+3!, PRTTXT2, XIT+1!
APCDTDOO	PRTTXT+3!, XIT+1!
APCDTF	PRTTXT+3!, PRTTXT2, GETFRAG, GETFRAG+2, XIT+1!
APCDTICL	PRTTXT+1, PRTTXT2*, XIT+1!
APCDTILN	PRTTXT+1, PRTTXT+3!, PRTTXT2, GETFRAG, GETFRAG+1, XIT+1!
APCDTNRQ	PRTTXT+2*, XIT+1!
APCDTQ	PRTTXT+2*, XIT+1!
APCDTTXT	PRTTXT+2, PRTTXT+3!, GETFRAG, GETFRAG+1, GETFRAG+2*, XIT+1!
>> APCDVIEN	PRINT1+1*
APCDX	DATE+5*, DATE+6, XIT+1!
C	DATE+2, DATE+5, DATE+6, MEAS+5, MEAS+6, MEAS+7, LABS+4, LABS+5, LABS+6, PROC+4* , PROC+5, PROC+6, IMM+4, IMM+5, IMM+6, SKIN+4, SKIN+5, SKIN+6, EXAM+4, EXAM+5 , EXAM+6, HF+4, HF+5, HF+6*, XIT+1!
DFN	XIT+1!
DIR	FF+1!, XIT+1!
DIR(0	FF+1*
>> DTOUT	FF+1
I	XIT+1!
IO	FF+1
IO(0	FF+1
IOF	PRINT1+10, FF+2
IOSL	DATE, MEAS+3, LABS+2, PROC+2, IMM+2, SKIN+2, EXAM+2, HF+2
IOST	FF+1
U	DATE+1, DATE+2, DATE+3, DATE+4, DATE+5, DATE+6, TIME, AT+2, MEAS+6, LABS+5 , PROC+5, IMM+5, SKIN+5, EXAM+5, HF+5
X	DATE+2, DATE+4, AT+2, MEAS+5, MEAS+6, LABS+4, LABS+5, PROC+4, PROC+5, IMM+4* , IMM+5, SKIN+4, SKIN+5, EXAM+4, EXAM+5, HF+4*, XIT+1!
Y	DATE+1, DATE+2!, DATE+3, TIME, MEAS+5, MEAS+6, LABS+4, LABS+5, PROC+4, PROC+5 , IMM+4, IMM+5, SKIN+4, SKIN+5, EXAM+4, EXAM+5, HF+4, HF+5, FF+1, XIT+1!

Customize PDF page

Package: Patient Care Component

Routine: APCDEGPP

Information

Source Information

Call Graph

Call Graph Total: 8

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Local Variables

Legend: