Routine: APCDHIST

Package	Total	Call Graph
DRG Grouper	2	($$ICDDX,$$ICDOP)^ICDEX $$CPT^ICPTCOD
IHS VA Utilities	1	$$VAL^XBDIQ1

Entry Points

Name	Comments	DBIA/ICR reference
GETNARR	;
PMHX
FMHX
PRTTXT	; GENERALIZED TEXT PRINTER
GETICDDX	;
IMMCPT	;EP - called from APCD CPT templates
GETFRAG
PHDSP
PRTICD	;
FHDSP
GETICDOP	;
FMH	; ******************** FAMILY HISTORY * 9000014 *******
GETSITEV	;
DATE
GETSITE	;
REF	;EP - called from [APCD REF] template to
PMH	; ******************** PERSONAL HISTORY * 9000013 ******* ; <SETUP>
PRTTXT2

External References

Name	Field # of Occurrence
$$ICDDX^ICDEX	GETICDDX+1
$$ICDOP^ICDEX	GETICDOP+1
$$CPT^ICPTCOD	IMMCPT+3
$$VAL^XBDIQ1	FHDSP+3, FHDSP+8, FHDSP+9, FHDSP+11, FHDSP+12, PHDSP+7, REF+15, REF+16

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"***************** NO FAMILY HISTORY ON FILE ********************" Line Location: FMH+4
Function Call: WRITE	Prompt: !!,"**************** FAMILY HISTORY ****************",!! Line Location: FMH+5
Function Call: WRITE	Prompt: APCDTDAT Line Location: FHDSP+5
Function Call: WRITE	Prompt: !!,"***************** NO PERSONAL HISTORY ON FILE ********************" Line Location: PMH+5
Function Call: WRITE	Prompt: !!,"******************** PERSONAL HISTORY ******************",!! Line Location: PMH+7
Function Call: WRITE	Prompt: APCDTDAT,?12,$$VAL^XBDIQ1(9000013,APCDTDFN,.01) Line Location: PHDSP+7
Function Call: WRITE	Prompt: ?APCDTICL Line Location: PRTTXT2+0
Function Call: WRITE	Prompt: APCDTF,! Line Location: PRTTXT2+0
Function Call: WRITE	Prompt: !!,"Last of each service type documented in PCC for "_$P(^DPT(APCDPAT,0),U)_":",! Line Location: REF+11
Function Call: WRITE	Prompt: ! Line Location: REF+18
Function Call: WRITE	Prompt: !!,"REMINDER: You have entered a CPT code for an immunization. Please check the",!,"immunizations listed below and make sure the immunization has been entered using",!,"the IM mnemonic as well as with the CPT mnemonic." Line Location: IMMCPT+6
Function Call: WRITE	Prompt: !,"There are no immunizations entered via the IM mnemonic.",! Line Location: IMMCPT+7
Function Call: WRITE	Prompt: ! Line Location: IMMCPT+11

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^AUPNFH - [#9000014]	FHDSP, FHDSP+10
^AUPNFH("AC"	FMH+4, FMH+7
^AUPNPH - [#9000013]	PHDSP
^AUPNPH("AC"	PMH+5, PMH+8
^AUPNPREF - [#9000022]	REF+5
^AUPNPREF("AC"	REF+2, REF+4
^AUPNVIMM - [#9000010.11]	IMMCPT+9
^AUPNVIMM("AD"	IMMCPT+7, IMMCPT+8
^AUPNVSIT - [#9000010]	GETSITEV+1
^AUTTIMM - [#9999999.14]	IMMCPT+9
^AUTTLOC - [#9999999.06]	GETSITE+2
^DIC(4 - [#4]	GETSITE+3
^DPT - [#2]	REF+11

Label References

Name	Line Occurrences
DATE	FMH+1, PMH+2
FHDSP	FMH+7
GETFRAG	PRTTXT2
GETICDDX	FHDSP+1, PHDSP+1
GETNARR	FHDSP+4, PHDSP+5
PHDSP	PMH+8
PRTICD	FHDSP+20, PHDSP+7
PRTTXT	PRTICD+2
PRTTXT2	PRTTXT+2

Naked Globals

Name	Field # of Occurrence
^(0	GETSITE+3

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %	GETSITEV+1, GETSITE+2, GETSITE+3, GETSITE+4, GETSITE+5
A	FHDSP+6~, FHDSP+7, FHDSP+10, FHDSP+16, REF+4~, REF+5, REF+7, REF+9, REF+12, REF+13 , REF+14
>> APCDCPTP	IMMCPT+3
>> APCDPAT	FMH+4, FMH+7, PMH+5, PMH+8, REF+2, REF+4, REF+11
APCDREF	REF+3!
APCDREF(	REF+9*, REF+12, REF+13, REF+14
APCDTC	PRTTXT+3!, GETFRAG+1*, GETFRAG+2
APCDTCVD	DATE*, FMHX!, FHDSP+2, PMHX!, PHDSP+2, PHDSP+3
APCDTDAT	FMHX!, FHDSP+2, FHDSP+5, PMHX!, PHDSP+2, PHDSP+7
APCDTDFN	FMH+7, FMHX!, FHDSP, FHDSP+3, FHDSP+8, FHDSP+9, FHDSP+10, FHDSP+11, FHDSP+12, PMH+8 , PMHX!, PHDSP, PHDSP+7
APCDTDLT	PRTTXT+1, PRTTXT+3!, PRTTXT2
APCDTDTH	PMHX!, PHDSP+3*, PHDSP+6
APCDTF	PRTTXT+3!, PRTTXT2, GETFRAG, GETFRAG+2
APCDTICD	FMHX!, FHDSP+1, FHDSP+19, PMHX!, PHDSP+1, GETICDDX+1, GETICDOP+1, PRTICD+1, PRTICD+2
APCDTICF	FMH+2, FMHX!, PMH+3, PMHX!, GETICDDX+1, GETICDOP+1
APCDTICL	FMHX!, FHDSP+5, FHDSP+19, PMHX!, PHDSP+7, PRTTXT+1, PRTTXT2
APCDTILN	PRTTXT+1, PRTTXT+3!, PRTTXT2, GETFRAG, GETFRAG+1
>> APCDTITE	GETSITEV+1, GETSITE+1, GETSITE+2, GETSITE+3, GETSITE+4, GETSITE+5
APCDTN	FMHX!, FHDSP, FHDSP+1, FHDSP+2, PMHX!, PHDSP, PHDSP+1, PHDSP+2, PHDSP+3, PHDSP+4 , GETICDDX+1, GETICDOP+1
>> APCDTNAB	GETSITE+5*
>> APCDTNFL	GETSITE+3*
APCDTNQ	FMHX!
APCDTNRQ	FMHX!, FHDSP+3, FHDSP+19, PMHX!, PHDSP+4, PHDSP+6, PRTICD+1, PRTTXT+2
>> APCDTNSH	GETSITE+4*
APCDTQ	FMH+7, FMHX!, PMH+8, PMHX!, PRTTXT+2*
APCDTTXT	PRTICD+2, PRTTXT+2, PRTTXT+3!, GETFRAG, GETFRAG+1, GETFRAG+2
>> APCDTVDF	GETSITEV+1
>> APCDTVSC	GETSITEV+1*
>> APCDVSIT	IMMCPT+7, IMMCPT+8
APCDX	REF+4~, REF+5, REF+9, REF+14, REF+15, REF+16
B	REF+4~, REF+5, REF+6, REF+9, REF+12, REF+13, REF+14
C	REF+4~
D	REF+4~, REF+5, REF+8, REF+9, REF+13*, REF+14
>> N	FHDSP+7, FHDSP+9, FHDSP+15
P	FHDSP+6~, FHDSP+7, FHDSP+12, FHDSP+18
R	FHDSP+6~, FHDSP+7, FHDSP+8, FHDSP+13
S	FHDSP+6~, FHDSP+7, FHDSP+11, FHDSP+17
U	FHDSP+1, FHDSP+2, FHDSP+10, PHDSP+1, PHDSP+2, PHDSP+3, PHDSP+4, GETICDDX+1, GETICDOP+1, GETSITEV+1 , GETSITE+3, GETSITE+4, GETSITE+5, REF+5, REF+11, IMMCPT+3, IMMCPT+9
X	FHDSP+6~, FHDSP+7, FHDSP+13, FHDSP+14, FHDSP+15, FHDSP+16, FHDSP+17, FHDSP+18, FHDSP+19, IMMCPT+1~ , IMMCPT+3, IMMCPT+4, IMMCPT+5, IMMCPT+8*, IMMCPT+9
Y	DATE!, FMHX!, FHDSP+2, PMHX!, PHDSP+2, PHDSP+3*, IMMCPT+8~

Customize PDF page

Package: Patient Care Component

Routine: APCDHIST

Information

Source Information

Call Graph

Call Graph Total: 3

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: