Routine: APCDHOS

Package	Total	Call Graph
DRG Grouper	1	($$ICDDX,$$ICDOP)^ICDEX
IHS VA Utilities	1	$$VAL^XBDIQ1
Patient Care Component Reports	1	$$VD^APCLV
Taxonomy	1	BLDTAX^ATXAPI

Entry Points

Name	Comments	DBIA/ICR reference
GETNARR	;
HOSDSP
PRTTXT	; GENERALIZED TEXT PRINTER
GETSITEV	;
HOSCHK	;
GETFRAG
DATE
GETICDOP	;
PRTICD	;
GETSITE	;
PRTTXT2
GETICDDX	;
HOSX
HOS	; ************* HISTORY OF SURGERY * 9000010.08 (V PROCEDURE) ******* ; <SETUP>

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"*************** NO SURGICAL HISTORY ON FILE ****************",!! Line Location: HOS+4
Function Call: WRITE	Prompt: !!,"********************** SURGICAL HISTORY ********************",!! Line Location: HOS+5
Function Call: WRITE	Prompt: "Minor procedures are on file but have not been displayed.",! Line Location: HOS+12
Function Call: WRITE	Prompt: APCDTDS,?12,$$VAL^XBDIQ1(9000010.08,APCDTDFN,.01) Line Location: HOSDSP+11
Function Call: WRITE	Prompt: ?APCDTICL Line Location: PRTTXT2+0
Function Call: WRITE	Prompt: APCDTF,! Line Location: PRTTXT2+0

Name	Line Occurrences (* Changed, ! Killed)
^ATXAX("B"	HOS+9
^AUPNVPRC - [#9000010.08]	HOSDSP
^AUPNVPRC("AA"	HOS+11
^AUPNVPRC("AC"	HOS+4
^AUPNVSIT - [#9000010]	HOSDSP+5, GETSITEV+1
^AUTNPOV - [#9999999.27]	GETNARR+1
^AUTTLOC - [#9999999.06]	GETSITE+2
^DIC(4 - [#4]	GETSITE+3
^TMP($J	HOS+7!, HOS+8, HOSX+1!, HOSCHK+3

Name	Field # of Occurrence
^(0	GETSITE+3

Name	Field # of Occurrence
>> %	GETSITEV+1, GETSITE+2, GETSITE+3, GETSITE+4, GETSITE+5
>> APCDPAT	HOS+4, HOS+11
APCDTC	PRTTXT+3!, GETFRAG+1*, GETFRAG+2
APCDTCNT	HOS+6, HOS+12, HOSX!, HOSDSP+3
APCDTCOD	HOSX!
APCDTCVD	HOSX!, HOSDSP+5, HOSDSP+9, HOSDSP+10, DATE*
APCDTDAT	HOSX!, HOSDSP+5*, HOSDSP+11
APCDTDFN	HOS+11*, HOSX!, HOSDSP, HOSDSP+11
APCDTDLT	PRTTXT+1, PRTTXT+3!, PRTTXT2
APCDTDS	HOSX!, HOSDSP+8, HOSDSP+9, HOSDSP+10*, HOSDSP+11
APCDTF	PRTTXT+3!, PRTTXT2, GETFRAG, GETFRAG+2
APCDTICD	HOSX!, HOSDSP+1, HOSDSP+2, HOSCHK+3, GETICDDX+1, GETICDOP+1, PRTICD+1*, PRTICD+2
APCDTICF	HOS+3*, HOSX!, GETICDDX+1, GETICDOP+1
APCDTICL	HOSX!, HOSDSP+11, 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
APCDTIVD	HOS+11*, HOSX!, HOSDSP+10
APCDTN	HOSX!, HOSDSP*, HOSDSP+1, HOSDSP+5, HOSDSP+6, HOSDSP+9, GETICDDX+1, GETICDOP+1
>> APCDTNAB	GETSITE+5*
>> APCDTNFL	GETSITE+3*
APCDTNRQ	HOSX!, HOSDSP+6, PRTICD+1, PRTTXT+2, GETNARR+1, GETNARR+2*
>> APCDTNSH	GETSITE+4*
APCDTNTD	HOSX!, HOSDSP+11*
APCDTQ	HOS+11, HOSX!, PRTTXT+2
APCDTTXT	PRTICD+2, PRTTXT+2, PRTTXT+3!, GETFRAG, GETFRAG+1, GETFRAG+2
>> APCDTVDF	GETSITEV+1
>> APCDTVSC	GETSITEV+1*
>> F	HOS+8*, HOS+9
U	HOSDSP+1, HOSDSP+5, HOSDSP+6, HOSDSP+9, GETICDDX+1, GETICDOP+1, GETNARR+1, GETSITEV+1, GETSITE+3, GETSITE+4 , GETSITE+5
Y	HOSX!, HOSDSP+5, HOSDSP+9, HOSDSP+10*, DATE!