Routine: APCHTPD

Information

APCHTPD ; IHS/CMI/LAB - DISPLAY HEALTH MAINTENANCE Best Practice Prompt ;

Source file <APCHTPD.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 TP

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"This option will allow a site to inactivate or activate a Best Practice Prompt.",!! 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+26 EDIT+3

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

Name	Line Occurrences (* Changed, ! Killed)
^APCHSURV - [#9001018]	INIT+4, INIT+7, INIT+9, INIT+11, INIT+12, INIT+13, INIT+14, INIT+15
^TMP("APCHTPD"	INIT+1!, INIT+2, INIT+25, INIT+27, 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+10, INIT+11, INIT+15
S1	S+4, S+6, S+9

Name	Field # of Occurrence
>> %	S+7, S+8, S1+1*, S1+2
>> APCHTP	EP1+4*, INIT+4, INIT+5, INIT+7, INIT+9, INIT+11, INIT+12, INIT+13, INIT+14, INIT+15 , EDIT+2
>> APCHX	INIT+25*, INIT+27
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+26!, EDIT+3!
DIR("A"	INIT+26, EDIT+3
DIR(0	INIT+26, EDIT+3
>> DR	EDIT+2*
F	S~, S+1, S+4
IOF	EP+1, INIT+26
IOSL	INIT+26
>> J	INIT+14*, INIT+15
>> L	S+6*
T	S~, S+2, S+6, S+7, S+8
U	INIT+4, INIT+13, INIT+15, S1+1
>> X	INIT+4, INIT+5, INIT+6, INIT+7, INIT+8, INIT+9, INIT+10, INIT+11, INIT+15, S+4 , S+5, S+7, S+8*, S1+2
Y	EP1+3, EP1+4, INIT+7, INIT+9, INIT+12*, INIT+13, INIT+14, INIT+15, S~, S+5 , S+6, S+8
>> Z	INIT+13*, INIT+15