Routine: APCHMT2

Information

APCHMT2 ; IHS/CMI/LAB -- health summary create/modify ;

Source Information

Source file <APCHMT2.m>

Call Graph

Call Graph Total: 9

Package	Total	Call Graph
Registration	3	EN^VALM TERM^VALM0 FULL^VALM1
VA Fileman	3	^DIC ^DIE ^DIR
IHS VA Utilities	2	^XBCLS $$VAL^XBDIQ1
Kernel	1	DISP^XQORM1

Entry Points

Name	Comments	DBIA/ICR reference
HELP	; -- help code
COMP(S,C)	;EP
HDR	; -- header code
S1	;
MR	;EP - called from protocol entry
BACK	;go back to listman
S(Y,F,C,T)	;EP - set up array
PAUSE	;EP; -- ask user to press ENTER
ADDG	;add reminders by group
ADD	;add individual reminders or remove
EN	; -- main entry point for E
EXIT	; -- EXIT code
REM	;
REMOVEG	;
INIT	; -- init variables and list array
READ(TYPE,PROMPT,DEFAULT,HELP,SCREEN,DIRA)	;EP; calls reader, returns response
EXPND	; -- expand code
REMG	;ep

External References

Name	Field # of Occurrence
^DIC	ADDG+3, REMG+3
^DIE	ADD+3
^DIR	EN+6, READ+8
EN^VALM	EN+1
TERM^VALM0	BACK+1
FULL^VALM1	MR+1, ADD+1, REM+1, ADDG+1, REMG+1
^XBCLS	PAUSE+2
$$VAL^XBDIQ1	INIT+12, INIT+20
DISP^XQORM1	HELP+1

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"WARNING: Health Maintenance Reminders has not been added to the Health Summary",! Line Location: MR+2
Function Call: WRITE	Prompt: !!,"Currently, only HEALTH REMINDERS flagged as ACTIVE will display",!,"on the health summary. If you want to activate a reminder ",!,"use the option 'AI Activate/Inactivate a Health Maintenance Reminder'",!,"to do so.",! Line Location: MR+4
Function Call: WRITE	Prompt: !! Line Location: EN+4
Function Call: WRITE	Prompt: !!,"Enter the sequence number to put this reminder and then enter",!,"reminder by name.",! Line Location: ADD+2
Function Call: WRITE	Prompt: !!,"Invalid Sequence number." Line Location: REM+6
Function Call: WRITE	Prompt: !! Line Location: ADDG+2
Function Call: WRITE	Prompt: !!,"Removing all reminders in the ",$P(^APCHHMC(APCHCAT,0),U)," group." Line Location: REMOVEG+1
Function Call: WRITE	Prompt: !! Line Location: REMG+2
Function Call: WRITE	Prompt: !! Line Location: HELP+1
Routine Call	VALM Line Location: EN+1
Routine Call	DIE Line Location: ADD+3
Routine Call	DIC Line Location: ADDG+3 REMG+3
Routine Call	DIR Line Location: EN+6 READ+8

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^APCHSCTL - [#9001015]	Classic Fileman Calls
^APCHHMC - [#9001016.1]	Classic Fileman Calls

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^APCHHMC - [#9001016.1]	REMOVEG+1
^APCHSCMP("B"	MR+2
^APCHSCTL - [#9001015]	COMP+1, REM+6, REM+7!, ADDG+13, ADDG+14!, ADDG+15, ADDG+17, ADDG+19*, REMOVEG+2, REMOVEG+3 , REMOVEG+4!, HDR+1, INIT+6, INIT+9, INIT+10
^APCHSURV - [#9001018]	ADDG+17, REMOVEG+4, INIT+10, INIT+11, INIT+16, INIT+18, INIT+19, INIT+20
^TMP($J	INIT+1!, INIT+21, S1+2*

Label References

Name	Line Occurrences
$$COMP	MR+2
$$READ	REM+2, ADDG+7, PAUSE+2
@(	EN+10
BACK	EN+2, EN+7, EN+8, ADD+4, REM+8, ADDG+20, REMG+7
HDR	BACK+4
INIT	BACK+3
MR	EN+11
REM	REM+6
REMOVEG	ADDG+12, REMG+6
S	INIT+2, INIT+3, INIT+4, INIT+5, INIT+6, INIT+7, INIT+8, INIT+12, INIT+15, INIT+20
S1	S+4, S+6, S+9

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %	S+7, S+8
>> APCHA	EN+5, EN+9, EN+10
APCHC	ADDG+13!, INIT+1, S1+1, S1+2
APCHC(	ADDG+13*, ADDG+15!, ADDG+19
>> APCHCAT	ADDG+5, ADDG+17, REMOVEG+1, REMOVEG+4, REMG+5
>> APCHDA	MR+2, ADD+3, REM+6, REM+7, ADDG+13, ADDG+14, ADDG+15, ADDG+17, ADDG+19, REMOVEG+2 , REMOVEG+3, REMOVEG+4, HDR+1, INIT+6, INIT+9, INIT+10
>> APCHSEQ	REM+2, REM+3, REM+4, REM+6, REM+7, ADDG+7, ADDG+8, ADDG+9, ADDG+15
APCHT	INIT+1!
APCHT(	INIT+13*, INIT+17
>> B	ADDG+15*, ADDG+17
C	COMP~, COMP+1, ADDG+15, ADDG+17, ADDG+19, INIT+10, INIT+11, INIT+12, INIT+13, S~ , S+6
DA	EN+6!, ADD+3*
DEFAULT	READ~, READ+5
DIC	ADDG+3!, REMG+3!
DIC("A"	ADDG+3, REMG+3
DIC(0	ADDG+3, REMG+3
DIE	ADD+3!*
DIR	BACK+5!, EN+6!, READ+1~
DIR("?"	READ+6*
DIR("A"	EN+6, READ+4, READ+7*
DIR("B"	EN+6, READ+5
DIR("S"	READ+3*
DIR(0	EN+6, READ+2
DIRA	READ~
DIRA(	READ+7
DIRA(1	READ+7
DIRUT	EN+6!, EN+7, REM+5!
DIV	ADD+3!
DIW	ADD+3!
>> DR	ADD+3*
F	S~, S+1, S+4
HELP	READ~, READ+6
I	BACK+6!
IOST	PAUSE+1
>> L	S+6*
>> N	INIT+10*, INIT+11
>> O	INIT+10*, INIT+11
PROMPT	READ~, READ+4
S	COMP~, COMP+1
SCREEN	READ~, READ+3
T	INIT+9, INIT+10, INIT+16, INIT+17, INIT+18, INIT+19, INIT+20, S~, S+2, S+6* , S+7, S+8
TYPE	READ~, READ+2
U	COMP+1, REM+7, ADDG+13, ADDG+15, ADDG+17, ADDG+19, REMOVEG+1, REMOVEG+3, REMOVEG+4, HDR+1 , INIT+6, INIT+10, INIT+11, INIT+18, INIT+19, INIT+20
>> VALMBCK	BACK+2*
>> VALMCNT	INIT+21*
>> VALMHDR(1	HDR+1*
X	BACK+6!, COMP+1~, ADDG+13, ADDG+15, ADDG+19, REMOVEG+2, REMOVEG+3, REMOVEG+4, INIT+2, INIT+3* , INIT+4, INIT+5, INIT+6, INIT+7, INIT+8, INIT+11, INIT+12, INIT+15, INIT+20, S+4 , S+5, S+7, S+8, S1+2, HELP+1, READ+1~
Y	BACK+6!, COMP+1~, COMP+2, EN+8, EN+9, ADDG+4, ADDG+5, ADDG+17, REMOVEG+3, REMOVEG+4 , REMG+4, REMG+5, INIT+9, INIT+10, S~, S+5, S+6, S+8, PAUSE+2~, READ+1~ , READ+7, READ+9
Z	BACK+6!, ADDG+17, ADDG+19

Customize PDF page

Package: Patient Care Component

Routine: APCHMT2

Call Graph Total: 9