Routine: APCHTPU

Package	Total	Call Graph
IHS VA Utilities	3	$$VAL^XBDIQ1 ^XBFMK EN^XBVK
Registration	3	EN^VALM TERM^VALM0 (CLEAR,FULL)^VALM1
VA Fileman	3	^DIC (,IX)^DIK ^DIR
Kernel	1	DISP^XQORM1
Patient Care Component	1	INP^APCHSMU

Entry Points

Name	Comments	DBIA/ICR reference
HELP	; -- help code
DISPHM	;
S1	;
BACK	;go back to listman
EXPND	; -- expand code
HM	;EP - update methods
WF(H,G,A)	;
HDR	; -- header code
MIN	;min age apch2
INIT	; -- init variables and list array
WAGE(H,G,A)	;
DHM	;delete pov
EN	; -- main entry point for APCH MODIFY TP
CONTA	;
S(Y,F,C,T)	;set up array
FREQ	;
EP	;EP - called from option to select and display a TP
MAX	;
AHM	;add a new pov
EXIT	; -- exit code
MOD	;EP - called from protocol
W(A)	;

External References

Name	Field # of Occurrence
INP^APCHSMU	MIN+5, MAX+5, FREQ+5
^DIC	EP+4
^DIK	DHM+12
IX^DIK	CONTA+14
^DIR	HM+4, HM+6, AHM+2, MIN+3, MAX+3, FREQ+3, CONTA+1, DHM+3, DHM+9
EN^VALM	EN+1
TERM^VALM0	BACK+1
CLEAR^VALM1	EN+2
FULL^VALM1	EN+3, MOD+2
$$VAL^XBDIQ1	INIT+5
^XBFMK	EP+3
EN^XBVK	EXIT+1
DISP^XQORM1	HELP+1

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"This option will allow a site to specify sex, age ranges and frequencies for",!,"a health maintenance reminder.",!! Line Location: EP+2
Function Call: WRITE	Prompt: !! Line Location: HELP+1
Function Call: WRITE	Prompt: !,"Protocol entry not defined." Line Location: MOD+1
Function Call: WRITE	Prompt: !,"You may add a new sex, age range, frequency combination or edit and existing",!,"one for the ",$P(^APCHSURV(APCHTP,0),U)," reminder.",! Line Location: HM+2
Function Call: WRITE	Prompt: ! Line Location: HM+6
Function Call: WRITE	Prompt: !!,"Bye." Line Location: HM+7
Function Call: WRITE	Prompt: !!,"Bye." Line Location: HM+8
Function Call: WRITE	Prompt: !?5,APCHC,") ",?9,APCHSEXR,?22,$$WAGE(APCHTP,APCHGIEN,APCHA),?50,$$WF(APCHTP,APCHGIEN,APCHA) Line Location: DISPHM+7
Function Call: WRITE	Prompt: !!,"Now enter the minimum age in the age range. It must be entered in the following",!,"format: 1Y, 2M, 30D, 10Y, where Y=years, M=months, D=days" Line Location: MIN+1
Function Call: WRITE	Prompt: !!,"Now enter the maximum age in the age range. It must be entered in the following",!,"format: 1Y, 2M, 30D, 10Y, where Y=years, M=months, D=days" Line Location: MAX+1
Function Call: WRITE	Prompt: !!,"Now enter the frequency for ",$S(APCH1="F":"FEMALES",APCH1="M":"MALES",APCH1="B":"BOTH GENDERS"),", ages ",$$W(APCH2)," to ",$$W(APCH3),!,"It must be in the form: 2Y for every 2 years, 3M for every 3 months, etc.",! Line Location: FREQ+1
Function Call: WRITE	Prompt: !!,"The following will be added:",!,?5,$S(APCH1="F":"FEMALES",APCH1="M":"MALES",APCH1="B":"ALL GENDERS",APCH1="U":"UNKNOWN"),", ages ",$$W(APCH2)," to ",$$W(APCH3)," reminder due every ",$$W(APCH4) Line Location: FREQ+7
Function Call: WRITE	Prompt: !!,"Invalid choice." Line Location: DHM+7
Function Call: WRITE	Prompt: !,"Okay, not deleted." Line Location: DHM+11
Routine Call	VALM Line Location: EN+1
Routine Call	DIC Line Location: EP+4
Routine Call	DIR Line Location: HM+4 HM+6 AHM+2 MIN+3 MAX+3 FREQ+3 CONTA+1 DHM+3 DHM+9

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^APCHSURV - [#9001018]	Classic Fileman Calls

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^APCHSCTL - [#9001015]	INIT+18, INIT+19
^APCHSURV - [#9001018]	INIT+4, INIT+7, INIT+9, INIT+11, INIT+12, INIT+13, INIT+14, HM+2, DISPHM+2, DISPHM+5 , DISPHM+6, CONTA+5, CONTA+8, CONTA+9, CONTA+10, CONTA+12, CONTA+13, WAGE+2, WAGE+3, WF+2
^TMP("APCHTPU"	INIT+1!, INIT+2, INIT+20, INIT+21!, S1+1, S1+2*

Label References

Name	Line Occurrences
$$W	FREQ+1, FREQ+7
$$WAGE	DISPHM+7
$$WF	DISPHM+7
@(	HM+9
AHM	HM+4, MIN+4, MAX+4, FREQ+4
BACK	MOD+1, MOD+4, DHM+13
DISPHM	HM+3, DHM+2
EXIT	EP+5, EN+4
FREQ	FREQ+5
HDR	BACK+4
HM	MOD+3, HM+4, HM+10
INIT	BACK+3
MAX	MAX+5
MIN	MIN+5
S	INIT+4, INIT+5, INIT+6, INIT+7, INIT+8, INIT+9, INIT+10, INIT+14, INIT+17, INIT+19
S1	S+4, S+6, S+9

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %	S+7, S+8, S1+1*, S1+2
A	WAGE~, WAGE+2, WAGE+3, WF~, WF+2, W~, W+2, W+3, W+4
APCH1	AHM+1, AHM+4, FREQ+1, FREQ+7, CONTA+2!, CONTA+3!, CONTA+5, CONTA+9
APCH2	MIN+2, MIN+6, FREQ+1, FREQ+7, CONTA+2!, CONTA+3!, CONTA+13
APCH3	MAX+2, MAX+6, FREQ+1, FREQ+7, CONTA+2!, CONTA+3!, CONTA+13
APCH4	FREQ+2, FREQ+6, FREQ+7, CONTA+2!, CONTA+3!, CONTA+13
>> APCHA	DISPHM+6*, DISPHM+7
>> APCHC	HM+4, DISPHM+1, DISPHM+3, DISPHM+7, DHM+3, DHM+6, DHM+7, DHM+12
>> APCHGIEN	DISPHM+4, DISPHM+5, DISPHM+6, DISPHM+7
>> APCHQUIT	DISPHM+3*, DISPHM+5, DISPHM+6
APCHSEL	DISPHM+1!, DISPHM+3!
APCHSEL(	DISPHM+7*, DHM+7, DHM+12
>> APCHSEX	DISPHM+5*
>> APCHSEXR	DISPHM+5*, DISPHM+7
>> APCHTP	EP+6*, INIT+4, INIT+5, INIT+7, INIT+9, INIT+11, INIT+12, INIT+13, INIT+14, INIT+19 , MOD+1, HM+2, DISPHM+2, DISPHM+5, DISPHM+6, DISPHM+7, CONTA+5, CONTA+8, CONTA+9, CONTA+10 , CONTA+12, CONTA+13, CONTA+14
B	WAGE+1~, WAGE+4, WAGE+5, WAGE+6, WAGE+10, WF+1~, WF+3, WF+4, WF+5, WF+6 , W+1~, W+2, W+3, W+4*, W+5
C	INIT+4, S~, S+6, CONTA+5, CONTA+8
DA	AHM+2!, MIN+3!, MAX+3!, FREQ+3!, CONTA+1!, CONTA+14, DHM+12
DA(1	DHM+12*
DA(2	DHM+12*
>> DIC	EP+4*
>> DIC("A"	EP+4*
>> DIC("S"	EP+4*
>> DIC(0	EP+4*
>> DIK	CONTA+14, DHM+12
DIR	BACK+5!, HM+4!, HM+6!, AHM+2!, MIN+3!, MAX+3!, FREQ+3!, CONTA+1!, DHM+3!, DHM+9!
DIR("A"	HM+4, HM+6, AHM+2, MIN+3, MAX+3, FREQ+3, CONTA+1, DHM+3, DHM+9*
DIR("B"	HM+4, CONTA+1, DHM+9*
DIR(0	HM+4, HM+6, AHM+2, MIN+3, MAX+3, FREQ+3, CONTA+1, DHM+3, DHM+9*
>> DIRUT	HM+4, HM+6, HM+7, AHM+3, MIN+4, MAX+4, FREQ+4, CONTA+2, DHM+3, DHM+4 , DHM+9, DHM+10
>> DUOUT	HM+4, HM+6, DHM+3, DHM+9
E	WAGE+1~, WAGE+7, WAGE+8, WAGE+9*, WAGE+10, WF+1~
F	S~, S+1, S+4
G	CONTA+5, CONTA+6, CONTA+8, CONTA+9, CONTA+10, CONTA+12, CONTA+13, WAGE~, WAGE+2, WAGE+3 , WF~, WF+2
H	WAGE~, WAGE+2, WAGE+3, WF~, WF+2
I	BACK+6!
IOF	EP+1, HM+1, DHM+1
>> J	INIT+13, INIT+14, INIT+18, INIT+19
>> K	INIT+19*
>> L	S+6*
>> N	CONTA+5, CONTA+6, CONTA+10, CONTA+11, CONTA+12, CONTA+13
T	S~, S+2, S+6, S+7, S+8
U	INIT+4, INIT+12, INIT+14, INIT+19, S1+1, HM+2, DISPHM+5, DISPHM+7, CONTA+5, CONTA+13 , DHM+12, WAGE+2, WAGE+3, WF+2
>> VALMBCK	BACK+2*
>> VALMCNT	INIT+20*
>> VALMHDR(1	HDR+1*
X	INIT+4, INIT+5, INIT+6, INIT+7, INIT+8, INIT+9, INIT+10, INIT+14, INIT+17, INIT+19 , HELP+1, S+4, S+5, S+7, S+8, S1+2, BACK+6!, MIN+5, MAX+5, FREQ+5 , CONTA+5, CONTA+10, WAGE+1~, WAGE+2, WAGE+4, WAGE+5, WAGE+6, WF+1~, WF+2*, WF+3 , WF+4, WF+5
Y	EP+5, EP+6, INIT+7, INIT+9, INIT+11, INIT+12, INIT+13, INIT+14, S~, S+5 , S+6, S+8, BACK+6!, HM+4, HM+8, HM+9, AHM+4, MIN+6, MAX+6, FREQ+6 , CONTA+3, DHM+5, DHM+6, DHM+11, WAGE+1~, WAGE+3, WAGE+7, WAGE+8, WAGE+9, WF+1~
Z	INIT+12*, INIT+14, BACK+6!, WAGE+1~, WF+1~

Customize PDF page

Package: Patient Care Component

Routine: APCHTPU

Information

Source Information

Call Graph

Call Graph Total: 11

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Local Variables

Legend: