Routine: APCHHMRD

Information

APCHHMRD ; IHS/CMI/LAB - DISPLAY HEALTH MAINTENANCE REMINDER ;

Source file <APCHHMRD.m>

Package	Total	Call Graph
IHS VA Utilities	3	$$VAL^XBDIQ1 ^XBFMK EN^XBVK
VA Fileman	3	^DIC ^DIE ^DIR

Name	Comments	DBIA/ICR reference
EDIT	;
S1	;
S(Y,F,C,T)	;set up array
EP1	;
INIT	; -- init variables and list array
EXIT	; -- exit code
EP	;EP - called from option to select and display a hmr

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"This option will allow a site to inactivate or activate a health maintenance",!,"reminder.",!! Line Location: EP+2
Function Call: WRITE	Prompt: ! Line Location: EDIT+2
Function Call: WRITE	Prompt: !! Line Location: EDIT+3
Routine Call	DIE Line Location: EDIT+2
Routine Call	DIC Line Location: EP1+2
Routine Call	DIR Line Location: INIT+24 EDIT+3

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

Name	Line Occurrences (* Changed, ! Killed)
^APCHSURV - [#9001018]	INIT+4, INIT+7, INIT+9, INIT+10, INIT+11, INIT+12, INIT+13
^TMP("APCHHMRD"	INIT+1!, INIT+2, INIT+23, INIT+25, S1+1, S1+2*

Name	Line Occurrences
EXIT	EP1+3, EDIT+4
S	INIT+4, INIT+5, INIT+6, INIT+7, INIT+8, INIT+9, INIT+13
S1	S+4, S+6, S+9

Name	Field # of Occurrence
>> %	S+7, S+8, S1+1*, S1+2
>> APCHHMR	EP1+4*, INIT+4, INIT+5, INIT+7, INIT+9, INIT+10, INIT+11, INIT+12, INIT+13, EDIT+2
>> APCHX	INIT+23*, INIT+25
C	INIT+4*, S~, S+6
>> DA	EDIT+2*
>> DIC	EP1+2*
>> DIC("A"	EP1+2*
>> DIC("S"	EP1+2*
>> DIC(0	EP1+2*
>> DIE	EDIT+2*
DIR	INIT+24!, EDIT+3!
DIR("A"	INIT+24, EDIT+3
DIR(0	INIT+24, EDIT+3
>> DR	EDIT+2*
F	S~, S+1, S+4
IOF	EP+1, INIT+24
IOSL	INIT+24
>> J	INIT+12*, INIT+13
>> L	S+6*
T	S~, S+2, S+6, S+7, S+8
U	INIT+4, INIT+11, INIT+13, S1+1
>> X	INIT+4, INIT+5, INIT+6, INIT+7, INIT+8, INIT+9, INIT+13, S+4, S+5, S+7 , S+8*, S1+2
Y	EP1+3, EP1+4, INIT+7, INIT+10, INIT+11, INIT+12, INIT+13, S~, S+5, S+6 , S+8
>> Z	INIT+11*, INIT+13