Routine: APCHSAS1

Package	Total	Call Graph
DRG Grouper	1	$$ICDDX^ICDEX
IHS VA Utilities	1	($$VAL,ENP)^XBDIQ1
Kernel	1	($$FMADD,$$FMDIFF,$$FMTE)^XLFDT
Patient Care Component	1	S^APCHSAST
Patient Care Component Reports	1	$$START1^APCLDF
Taxonomy	1	$$ICD^ATXAPI
VA Fileman	1	^DIWP

Package	Total	Caller Graph
Patient Care Component	1	APCHSAST
iCare	1	BQIRGASU

Name	Comments	DBIA/ICR reference
RELMEDS	;
PRTTXT	;EP - PUBLISHED ENTRY POINT ; GENERALIZED TEXT PRINTER
FMH2	;
FMH1
LDM(I)	;get last date modified of Family History or relation
S2(N)	;
SIG	;CONSTRUCT THE FULL TEXT FROM THE ENCODED SIG
PRTICD	;ENTRY POINT
DISPMEDS	;
PRTTXT1	;
TXT1	;
TXT2
PRTTXT2
REF	;DETERMINE THE NUMBER OF REFILLS REMAINING
LAST1YRR	;
S1(Y)	;
TXT	;EP - PUBLISHED ENTRY POINT ; GENERALIZED TEXT PRINTER
FRAG
LAST1YRC	;
GETFRAG
ICD	;EP - ENTRY POINT print text
FMH(APCHSPAT,APCHTFP)	;EP - ASTHMA ******* FAMILY HISTORY * 9000014 ******* ; <SETUP>
DISPEDUC	;
EDUC(P,DATA)	;EP pass back array of all asthma educ topics
COMN	;if comments/notes in register print them
N1	;
N	;EP - called from APCHSAST
FMHX
SR	;
FHDSP
SC	;
CONTMEDS	;

Name	Field # of Occurrence
S^APCHSAST	RELMEDS+3, RELMEDS+5, RELMEDS+7, RELMEDS+8, CONTMEDS+1, CONTMEDS+2, DISPEDUC+3, DISPEDUC+4, DISPEDUC+5, DISPEDUC+6 , DISPEDUC+7, DISPEDUC+8, COMN+2, COMN+4, N1+1, DISPMEDS+16, DISPMEDS+20, DISPMEDS+21
$$START1^APCLDF	EDUC+7
$$ICD^ATXAPI	FMH+11, FMH+13, EDUC+15
^DIWP	DISPMEDS+19
$$ICDDX^ICDEX	EDUC+15
$$VAL^XBDIQ1	FMH+16, FMH+18, FHDSP+4, FHDSP+5, FHDSP+8, FHDSP+10, FHDSP+13, FHDSP+16, FHDSP+17, EDUC+16
ENP^XBDIQ1	COMN+3
$$FMADD^XLFDT	DISPMEDS+9, LAST1YRR+9, LAST1YRC+9
$$FMDIFF^XLFDT	DISPMEDS+8
$$FMTE^XLFDT	DISPEDUC+6, DISPMEDS+3, DISPMEDS+9, DISPMEDS+11

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^APCHSCTL - [#9001015]	FMH1+3
^ATXAX - [#9002226]	LAST1YRR+15, LAST1YRR+16, LAST1YRR+17, LAST1YRR+20, LAST1YRR+21, LAST1YRR+23, LAST1YRC+15, LAST1YRC+16, LAST1YRC+17, LAST1YRC+20 , LAST1YRC+21, LAST1YRC+22
^ATXAX("B"	FMH+11, FMH+13, LAST1YRR+3, LAST1YRR+4, LAST1YRR+5, LAST1YRR+6, LAST1YRR+7, LAST1YRR+8, LAST1YRC+3, LAST1YRC+4 , LAST1YRC+5, LAST1YRC+6, LAST1YRC+7, LAST1YRC+8, EDUC+15
^AUPNFH - [#9000014]	FMH+9, FMH+10, FMH+15, LDM+2, LDM+5, LDM+6, LDM+7, FHDSP+4, FHDSP+11, FHDSP+17
^AUPNFH("AC"	FMH+4, FMH+8
^AUPNFHR - [#9000014.1]	FMH+18, FMH+19, LDM+5, FHDSP+5, FHDSP+7, FHDSP+8, FHDSP+9, FHDSP+10
^AUPNFHR("AC"	FMH+4
^AUPNVMED - [#9000010.14]	DISPMEDS+2, DISPMEDS+12, LAST1YRR+12, LAST1YRR+13, LAST1YRC+12, LAST1YRC+13
^AUPNVMED("AA"	LAST1YRR+10, LAST1YRR+11, LAST1YRC+10, LAST1YRC+11
^AUPNVPED - [#9000010.16]	EDUC+12
^AUPNVSIT - [#9000010]	DISPMEDS+3, DISPMEDS+7
^AUTTEDT - [#9999999.09]	EDUC+14
^AUTTRLSH - [#9999999.36]	FMH+19
^BATREG - [#90181.01]	COMN+1
^PS(51 - [#51]	SIG+2
^PS(55 - [#55]	DISPMEDS+5
^PSDRUG - [#50]	DISPMEDS+10, LAST1YRR+18, LAST1YRR+22, LAST1YRC+18
^PSRX - [#52]	REF+2
^PSRX("APCC"	DISPMEDS+4
^TMP($J	EDUC+5!, EDUC+8, EDUC+9, EDUC+10, EDUC+11, EDUC+16, EDUC+18!
^UTILITY($J	DISPMEDS+19!, DISPMEDS+20, DISPMEDS+21, DISPMEDS+22!

Name	Line Occurrences
$$LDM	FMH1
CONTMEDS	RELMEDS+8
DISPEDUC	CONTMEDS+2
DISPMEDS	RELMEDS+11, CONTMEDS+5
EDUC	DISPEDUC+1
FHDSP	FMH2+6
FMH1	FMH+16
FMH2	FMH1+4
FRAG	TXT2
GETFRAG	PRTTXT2
LAST1YRC	RELMEDS+4
LAST1YRR	RELMEDS+2
PRTICD	FHDSP+21
PRTTXT	PRTICD+5
PRTTXT1	PRTTXT+4
PRTTXT2	PRTTXT+4
REF	DISPMEDS+15
S1	TXT2
S2	FHDSP+6, FHDSP+8, FHDSP+10, PRTTXT2
SC	LAST1YRC+15, LAST1YRC+16, LAST1YRC+17, LAST1YRC+20, LAST1YRC+21, LAST1YRC+22
SIG	DISPMEDS+14
SR	LAST1YRR+15, LAST1YRR+16, LAST1YRR+17, LAST1YRR+20, LAST1YRR+21, LAST1YRR+23
TXT	ICD+8
TXT1	TXT+4
TXT2	TXT+4

Name	Field # of Occurrence
^(	DISPMEDS+4
^(2	FMH1+3
^(9	SIG+2

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%	EDUC+4~, EDUC+9*, EDUC+10, EDUC+11, EDUC+16
A	FHDSP+15, FHDSP+17, FHDSP+19, EDUC+4~, EDUC+6*, EDUC+7
APCHAR	COMN+3!, N1+2!
APCHAR(1100	COMN+4
APCHC	FMH1+1~, FMH2+1, FMH2+5, FHDSP*, FHDSP+1, FHDSP+6, FHDSP+8, FHDSP+10
APCHCNT	S2+1, S2+2, FMH+2~, FMH+3
APCHCONT	RELMEDS+1!, RELMEDS+5, CONTMEDS+2, CONTMEDS+4, LAST1YRC+2, SC+1
APCHCONT(	SC+1*
>> APCHCRN	DISPMEDS+5*, DISPMEDS+16
APCHD	FMH1+1~, FMHX!, FMH2+5, FMH2+6, DISPMEDS+3, DISPMEDS+16
>> APCHDC	DISPMEDS+4*, DISPMEDS+11, DISPMEDS+13
>> APCHDTM	DISPMEDS+7*, DISPMEDS+8, DISPMEDS+9
>> APCHDYS	DISPMEDS+4*, DISPMEDS+9, DISPMEDS+16
APCHE	EDUC+4~, EDUC+18!
APCHE(	EDUC+16*, EDUC+17
APCHEDUC	DISPEDUC+1!, DISPEDUC+2
APCHEDUC(	DISPEDUC+6, DISPEDUC+7, DISPEDUC+8
>> APCHEXP	DISPMEDS+7, DISPMEDS+9, DISPMEDS+11, DISPMEDS+13, DISPMEDS+16
APCHL	RELMEDS+1!, RELMEDS+9!, RELMEDS+10, CONTMEDS+3!, CONTMEDS+4
APCHL(	DISPMEDS+1, DISPMEDS+2
>> APCHMED	DISPMEDS+10*, DISPMEDS+16
>> APCHMFX	DISPMEDS+4*, DISPMEDS+10
APCHO	FMH+7~, FMH1+4*, FMH2+1, FMH2+2, FMH2+3, FMH2+4, FMH2+5, FMH2+6
>> APCHORTS	DISPMEDS+12*, DISPMEDS+13
>> APCHQTY	DISPMEDS+6*, DISPMEDS+16
APCHR	FMH1+1~, FMHX!, FMH2+3*, FMH2+4, FMH2+5, FMH2+6, FHDSP+3, FHDSP+5, FHDSP+7, FHDSP+8 , FHDSP+9, FHDSP+10
>> APCHREF	DISPMEDS+15, REF+1, REF+2, REF+3*
APCHREL	RELMEDS+1!, RELMEDS+3, RELMEDS+8, RELMEDS+10, LAST1YRR+2, SR+1
APCHREL(	SR+1*
>> APCHRFL	REF+2*, REF+3
>> APCHRX	DISPMEDS+4*, DISPMEDS+5, REF+1, REF+2
APCHS	FMH1+1~, FMHX!, FMH2+1*, FMH2+2, FMH2+3, FMH2+4, FMH2+5, FMH2+6
APCHSC	PRTTXT+6!, GETFRAG+1, GETFRAG+2, GETFRAG+3, TXT+6!, FRAG, FRAG+1, FRAG+2
APCHSCVD	FMH1+1~, FMH1+2*, FMH2+4
APCHSDAT	FMHX!
APCHSDFN	FMH+7~, FMH+8, FMH+9, FMH+10, FMH+15, FMH+16, FMH1, FMHX!, FMH2+6, FHDSP+4 , FHDSP+11, FHDSP+13, FHDSP+16, FHDSP+17
APCHSDLT	PRTTXT+3, PRTTXT+6!, PRTTXT2, TXT+3, TXT+6!, TXT2
APCHSF	PRTTXT+6!, PRTTXT2, GETFRAG, GETFRAG+3, TXT+6!, TXT2, FRAG+2*
APCHSICD	FMHX!, FHDSP+12, PRTICD+1, ICD+4*
APCHSICF	FMH1+1~, FMH1+3*, PRTICD+1
APCHSICL	FMHX!, FHDSP+20, PRTTXT+3, PRTTXT2, TXT+3, TXT2*
APCHSIG	N1+2!, DISPMEDS+6, DISPMEDS+14, DISPMEDS+15*, DISPMEDS+19, SIG+1, SIG+2
APCHSILN	PRTTXT+3, PRTTXT+6!, PRTTXT2, GETFRAG, GETFRAG+1, GETFRAG+2, TXT+3, TXT+6!, TXT2, FRAG , FRAG+1
APCHSN	FMHX!, FHDSP+11*, FHDSP+12
APCHSNRQ	FMHX!, FHDSP+13, FHDSP+16, FHDSP+18, FHDSP+20, PRTTXT1+1, PRTTXT1+2, PRTICD+1, TXT1+1, TXT1+2 , ICD+4*
APCHSNTE	PRTTXT+2, PRTTXT+5!, PRTTXT1+2, PRTICD+3, PRTICD+4, TXT+2, TXT+5!, TXT1+2, ICD+6, ICD+7
APCHSO	FMH1+1~
APCHSP	N1+2!, SIG+1*, SIG+2
APCHSPAT	FMH~, FMH+4, FMH+8
>> APCHSQ	PRTTXT+4, TXT+4
APCHSSGY	N1+2!, DISPMEDS+14, SIG+1, SIG+3
>> APCHSTAT	FHDSP+2, FHDSP+4, FHDSP+5*, FHDSP+6
APCHSTXT	PRTTXT+4, PRTTXT+6!, PRTTXT1+1, PRTTXT1+2, GETFRAG, GETFRAG+1, GETFRAG+3, PRTICD+2, TXT+4, TXT+6! , TXT1+1, TXT1+2, FRAG, FRAG+2, ICD+5*
>> APCHSTYP	FMH1+3
APCHTD	FMH1+1~, FMH2+4*
>> APCHTDAT	FMH2+4*, FHDSP+1
APCHTFH	FMH+5~, FMH+6!, FMHX!
APCHTFH(	FMH1*, FMH1+4, FMH2+1, FMH2+2, FMH2+3, FMH2+4, FMH2+5, FMH2+6
APCHTFP	FMH~, FMH+6!
APCHTFP(	S2+2*
APCHZ	FMH1+1~, FMHX!, FMH2+2*, FMH2+3, FMH2+4, FMH2+5, FMH2+6, FHDSP+1
C	FMH+7~, FMH+10, FMH+11, FMH+13, ICD+1~, ICD+3, S1+1, S1+2, LAST1YRR+1~, LAST1YRR+22 , LAST1YRR+23, LAST1YRC+1~
D	LDM+3~, LDM+4, LDM+5, LDM+6, LDM+7, LDM+8, DISPMEDS+1, DISPMEDS+2, LAST1YRR+1~, LAST1YRR+10 , LAST1YRR+11, SR+1, LAST1YRC+1~, LAST1YRC+10, LAST1YRC+11, SC+1, EDUC+4~, EDUC+10, EDUC+16
DATA	EDUC~, EDUC+2!
DATA(	EDUC+17*
>> DFN	DISPEDUC+1, COMN+1, COMN+3, DISPMEDS+5, LAST1YRR+10, LAST1YRR+11, LAST1YRC+10, LAST1YRC+11
>> DIWL	DISPMEDS+19*
>> DIWR	DISPMEDS+19*
DT	DISPMEDS+8, LAST1YRR+9, LAST1YRC+9
E	LDM+3~, LDM+6, LDM+7, DISPMEDS+2, DISPMEDS+4, DISPMEDS+12, LAST1YRR+1~, LAST1YRR+9, LAST1YRR+10, LAST1YRC+1~ , LAST1YRC+9, LAST1YRC+10, EDUC+4~, EDUC+7
>> F	COMN+4, DISPMEDS+21
G	FMH+7~, FMH+11, FMH+13, FMH+14, LAST1YRR+1~, LAST1YRC+1~, EDUC+4~
I	LDM~, LDM+1, LDM+2, LDM+5, LDM+6, LDM+7, EDUC+4~, EDUC+11*, EDUC+12
IOM	DISPMEDS+19
J	LDM+3~, LDM+5*
M	LAST1YRR+1~, LAST1YRR+11, LAST1YRR+12, LAST1YRR+13, SR+1, LAST1YRC+1~, LAST1YRC+11, LAST1YRC+12, LAST1YRC+13, SC+1
N	S2~, S2+2, FHDSP+15, DISPEDUC+6, DISPEDUC+7, DISPEDUC+8, DISPMEDS+2, DISPMEDS+3, DISPMEDS+4, DISPMEDS+6 , DISPMEDS+7, DISPMEDS+10, LAST1YRR+1~, LAST1YRR+18, LAST1YRR+19, LAST1YRR+20, LAST1YRR+21, LAST1YRC+1~, LAST1YRC+18, LAST1YRC+19 , LAST1YRC+20, LAST1YRC+21, LAST1YRC+22, EDUC+4~, EDUC+12, EDUC+13, EDUC+14, EDUC+15, EDUC+17
O	FMH+7~, FMH+16, FMH+19, FMH+20*, FMH1
P	FHDSP+15*, EDUC~, EDUC+3, EDUC+7
R	FMH+7~, FMH+15, FMH+16, FMH+18, FMH+19, FMH1, FHDSP+15*
S	FMH+7~, FMH+16, FMH+17, FMH+18, FMH1, FHDSP+15
T	LAST1YRR+1~, LAST1YRC+1~
T(1	LAST1YRR+3, LAST1YRR+15, LAST1YRC+3, LAST1YRC+15
T(2	LAST1YRR+4, LAST1YRR+20, LAST1YRC+4, LAST1YRC+20
T(3	LAST1YRR+5, LAST1YRR+16, LAST1YRC+5, LAST1YRC+16
T(4	LAST1YRR+6, LAST1YRR+21, LAST1YRC+6, LAST1YRC+21
T(5	LAST1YRR+7, LAST1YRR+17, LAST1YRC+7, LAST1YRC+17
T(6	LAST1YRR+8, LAST1YRR+23, LAST1YRC+8, LAST1YRC+22
U	FMH+10, FMH+15, FMH+18, FMH+19, FMH1+3, LDM+5, LDM+6, LDM+7, FHDSP+4, FHDSP+5 , FHDSP+7, FHDSP+8, FHDSP+9, FHDSP+10, FHDSP+12, FHDSP+17, DISPEDUC+6, DISPEDUC+7, DISPEDUC+8, DISPMEDS+3 , DISPMEDS+4, DISPMEDS+6, DISPMEDS+7, DISPMEDS+10, REF+2, LAST1YRR+13, LAST1YRR+18, LAST1YRR+22, LAST1YRC+13, LAST1YRC+18 , EDUC+10, EDUC+11, EDUC+12, EDUC+14, EDUC+16, EDUC+17
X	FHDSP+15, FHDSP+18, FHDSP+19, FHDSP+20, RELMEDS+3, RELMEDS+5, RELMEDS+7, RELMEDS+8, CONTMEDS+1, CONTMEDS+2* , DISPEDUC+3, DISPEDUC+4, DISPEDUC+5, DISPEDUC+6, COMN+2, COMN+4, N1+1, DISPMEDS+8, DISPMEDS+9, DISPMEDS+16* , DISPMEDS+19, DISPMEDS+20, DISPMEDS+21, SIG+1, SIG+2, SIG+3, EDUC+4~, EDUC+7
Y	FMH2+4, FHDSP+1, FHDSP+6, FHDSP+8, FHDSP+10, PRTTXT2, TXT2, S1~, S1+2, DISPEDUC+7 , DISPEDUC+8, DISPMEDS+9, DISPMEDS+11, DISPMEDS+13, SIG+2, LAST1YRR+1~, LAST1YRR+13, LAST1YRR+14, LAST1YRR+15, LAST1YRR+16 , LAST1YRR+17, LAST1YRR+18, LAST1YRR+22, LAST1YRC+1~, LAST1YRC+13, LAST1YRC+14, LAST1YRC+15, LAST1YRC+16, LAST1YRC+17, LAST1YRC+18
Z	FMH+7~, FMH+16, FMH+17, FMH+18*, FMH1, ICD+2!
Z(	S1+2*

Customize PDF page

Package: Patient Care Component

Routine: APCHSAS1

Information

Source Information

Call Graph

Call Graph Total: 7

Caller Graph

Caller Graph Total: 2

Entry Points

External References

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: