Routine: APCHS3E

Package	Total	Call Graph
IHS VA Utilities	1	$$VAL^XBDIQ1

Entry Points

Name	Comments	DBIA/ICR reference
LDATE
SITE(P,A,D,V)	;return site/specimen
MICX
GSR(P,A,D,V)	;
MIC	; ******************** MIC DATA * 9000010.09 *******
LPRT3	;write out line
LPRT2	;
ORGR(P,A,D,V)	;
LSET	;
LBLD	;
LPRT	;
COL(P,A,D,V)	;

External References

Name	Field # of Occurrence
$$VAL^XBDIQ1	LPRT3+6, LPRT3+8, SITE+5, COL+5, GSR+6, ORGR+6

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !?3,"See the Lab Package for More Complete Microbiology Information than ",!,"contained below." Line Location: MIC+2
Function Call: WRITE	Prompt: ?34,"RESULT",?58,"COLL DATE",?68,"COMP DATE",! Line Location: MIC+3
Function Call: WRITE	Prompt: ?34,"RESULT",?58,"COLL DATE",?68,"COMP DATE",! Line Location: LPRT+2
Function Call: WRITE	Prompt: ?34,"RESULT",?58,"COLL DATE",?68,"COMP DATE",! Line Location: LPRT3+2
Function Call: WRITE	Prompt: !?3,$$VAL^XBDIQ1(9000010.25,APCHSVL,.04)," ",$$ORGR(APCHSPAT,APCHSACC,$P($G(^AUPNVMIC(APCHSVL,12)),U),APCHSVL) Line Location: LPRT3+5
Function Call: WRITE	Prompt: ?68,Y,?79,$E($P($G(^AUPNVMIC(APCHSVL,11)),U,9)),! Line Location: LPRT3+5
Function Call: WRITE	Prompt: !?2,$$VAL^XBDIQ1(9000010.25,APCHSVL,.04)," ",?34,$$ORGR(APCHSPAT,APCHSACC,$P($G(^AUPNVMIC(APCHSVL,12)),U),APCHSVL) Line Location: LPRT3+6
Function Call: WRITE	Prompt: ?68,Y,! Line Location: LPRT3+6
Function Call: WRITE	Prompt: ?3,$$VAL^XBDIQ1(9000010.25,APCHSVL,.05),?34,$P(APCHSN,U,7) Line Location: LPRT3+7
Function Call: WRITE	Prompt: ?68,Y,?79,$E($P($G(^AUPNVMIC(APCHSVL,11)),U,9)),! Line Location: LPRT3+7
Function Call: WRITE	Prompt: ?3,$$VAL^XBDIQ1(9000010.25,APCHSVL,.05),?34,$P(APCHSN,U,7) Line Location: LPRT3+8
Function Call: WRITE	Prompt: ?68,Y,! Line Location: LPRT3+8
Function Call: WRITE	Prompt: $P(^LAB(60,$P(APCHSN,U),0),U) Line Location: LPRT3+9
Function Call: WRITE	Prompt: ?58,Y,?47,$P(APCHSN,U,7) Line Location: LPRT3+9
Function Call: WRITE	Prompt: ?58,Y,?47,$P(APCHSN,U,7) Line Location: LPRT3+9
Function Call: WRITE	Prompt: $P(^LAB(60,$P(APCHSN,U),0),U) Line Location: LPRT3+10
Function Call: WRITE	Prompt: ?68,Y,! Line Location: LPRT3+12

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^AUPNVMIC - [#9000010.25]	LSET+1, LSET+2, LSET+3, LPRT3+1, LPRT3+6, LPRT3+11, LPRT3+13, SITE+5, COL+5
^AUPNVMIC("AE"	MIC+1, LBLD+1, LDATE, LDATE+1
^DPT - [#2]	SITE+7, COL+7, GSR+7, ORGR+7
^LAB(60 - [#60]	LPRT3+10, LPRT3+11
^LAB(61 - [#61]	SITE+14, SITE+15
^LAB(62 - [#62]	COL+14, COL+15
^LR - [#63]	SITE+10, SITE+11, SITE+12, COL+10, COL+11, COL+12, GSR+10, GSR+11, GSR+12, ORGR+10 , ORGR+11, ORGR+12
^TMP($J	MIC+6!, MICX+2!, LSET+7, LSET+8, LPRT+1, LPRT+3, LPRT+4, LPRT+5, LPRT+6, LPRT2+2 , LPRT2+3, LPRT2+4, LPRT3+4!

Label References

Name	Line Occurrences
$$COL	LPRT3+13
$$GSR	LPRT3+11
$$ORGR	LPRT3+6
$$SITE	LPRT3+13
LBLD	MIC+8
LDATE	LBLD+1
LPRT	MIC+8
LPRT2	LPRT+6
LPRT3	LPRT2+4
LSET	LDATE+1
MICX	MIC+1

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
A	MICX!, LSET+4, LSET+5, LSET+8, SITE~, SITE+2, SITE+11, COL~, COL+2, COL+11 , GSR~, GSR+2, GSR+11, ORGR~, ORGR+2, ORGR+11
APCHIVD	SITE+6~, SITE+9, SITE+10, SITE+11, SITE+12, COL+6~, COL+9, COL+10, COL+11, COL+12 , GSR+5~, GSR+9, GSR+10, GSR+11, GSR+12, ORGR+5~, ORGR+9, ORGR+10, ORGR+11, ORGR+12
APCHLRDF	SITE+6~, SITE+7, SITE+8, SITE+10, SITE+11, SITE+12, COL+6~, COL+7, COL+8, COL+10 , COL+11, COL+12, GSR+5~, GSR+7, GSR+8, GSR+10, GSR+11, GSR+12, ORGR+5~, ORGR+7 , ORGR+8, ORGR+10, ORGR+11, ORGR+12
APCHS01	MICX+1!, LPRT+5*, LPRT+6, LPRT2+2, LPRT2+3, LPRT2+4, LPRT3+4
APCHSACC	MICX+1!, LPRT+4*, LPRT+5, LPRT+6, LPRT2+2, LPRT2+3, LPRT2+4, LPRT3+4, LPRT3+6, LPRT3+11 , LPRT3+13
APCHSANT	MICX+1!, LPRT2+3*, LPRT2+4, LPRT3+4, LPRT3+6, LPRT3+8
>> APCHSBRK	MIC+4
>> APCHSCKP	MIC+3, LPRT3+2
>> APCHSCVD	LPRT3+6, LPRT3+8, LPRT3+10, LPRT3+12
>> APCHSDLM	LBLD+1
APCHSIEN	MICX+1!, LDATE+1, LSET+1, LSET+2, LSET+3, LSET+7, LSET+8, LPRT+6
APCHSIVD	MICX+1!, LBLD+1, LDATE, LDATE+1, LSET+7, LPRT+3, LPRT+4, LPRT+5, LPRT+6, LPRT3+10
APCHSLT	MICX+1!, LDATE*, LDATE+1
>> APCHSN	LPRT3+1*, LPRT3+6, LPRT3+8, LPRT3+10, LPRT3+11, LPRT3+12
>> APCHSNPG	MIC+3, MIC+4, LPRT3+2, LPRT3+10
APCHSORG	MICX+1!, LPRT2+2*, LPRT2+3, LPRT2+4, LPRT3+4, LPRT3+6
>> APCHSPAT	MIC+1, LBLD+1, LDATE, LDATE+1, LPRT3+6, LPRT3+11, LPRT3+13
>> APCHSQIT	MIC+3, LPRT+3, LPRT+4, LPRT+5, LPRT+6, LPRT2+2, LPRT2+3, LPRT2+4, LPRT3+2
APCHSVL	MICX+1!, LPRT2+4*, LPRT3+1, LPRT3+4, LPRT3+6, LPRT3+8, LPRT3+11, LPRT3+13
C	MICX!, LSET+4, LSET+5, LSET+7, LSET+8
D	MICX!, LSET+2*, LSET+7, SITE~, SITE+3, SITE+9, COL~, COL+3, COL+9, GSR~ , GSR+3, GSR+9, ORGR~, ORGR+3, ORGR+9
N	MICX!, LSET+1*, LSET+4
O	MICX!, LSET+4, LSET+5, LSET+8
P	MICX!, LSET+3*, LSET+7, SITE~, SITE+1, SITE+7, COL~, COL+1, COL+7, GSR~ , GSR+1, GSR+7, ORGR~, ORGR+1, ORGR+7
R	GSR+5~, GSR+6, ORGR+5~, ORGR+6
T	MICX!, LSET+4*, LSET+6, LSET+7, LSET+8
U	LSET+2, LSET+3, LSET+4, LPRT3+6, LPRT3+8, LPRT3+10, LPRT3+11, LPRT3+12, LPRT3+13, SITE+5 , SITE+7, SITE+11, SITE+12, SITE+15, COL+5, COL+7, COL+11, COL+12, COL+15, GSR+7 , GSR+11, ORGR+7, ORGR+11, ORGR+12
V	SITE~, SITE+4, SITE+5, COL~, COL+4, COL+5, GSR~, GSR+4, GSR+6, ORGR~ , ORGR+4, ORGR+6
X	MICX!, SITE+6~, SITE+12, SITE+13, SITE+14, SITE+15, COL+6~, COL+12, COL+13, COL+14 , COL+15, GSR+5~, GSR+12, GSR+13, GSR+15, ORGR+5~, ORGR+12, ORGR+13, ORGR+15
Y	MICX!, LPRT3+6, LPRT3+8, LPRT3+10, LPRT3+12

Customize PDF page

Package: Patient Care Component

Routine: APCHS3E

Information

Source Information

Call Graph

Call Graph Total: 1

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Local Variables

Legend: