Routine: APCHHMRQ

Package	Total	Call Graph
IHS VA Utilities	4	^XBDBQUE $$VAL^XBDIQ1 $$EXTSET^XBFUNC EN^XBVK
Kernel	1	$$FMADD^XLFDT
VA Fileman	1	^DIR

Entry Points

Name	Comments	DBIA/ICR reference
SORT	;
LOC()	;EP - Return location name from file 4 based on DUZ(2).
HEAD
ZIS	;
HEAD1	;
BROWSE	;
CTR(X,Y)	;EP - Center X in a field Y wide.
S1	;
S(Y,F,C,T)	;set up array
PROCESS	; -- init variables and list array
USR()	;EP - Return name of current user from ^VA(200.
EOP	;EP - End of page.
XIT	;
ACT	;
PRINT	;EP - called from xbdbque
PROCESS1	;
EP	;EP - called from option to select and display a hmr

External References

Name	Field # of Occurrence
^DIR	ACT+4, SORT+2, ZIS+1, HEAD+1, EOP+5
^XBDBQUE	ZIS+5, BROWSE+2
$$VAL^XBDIQ1	PROCESS1+8, PRINT+7
$$EXTSET^XBFUNC	PROCESS1+11, PROCESS1+12, PROCESS1+13
EN^XBVK	XIT+2
$$FMADD^XLFDT	PROCESS+2

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"This option will list the Health Maintenance Reminders available for display",!,"on a health summary.",!! Line Location: EP+1
Function Call: WRITE	Prompt: ! Condition for execution: APCHSC>0 Line Location: PRINT+10
Function Call: WRITE	Prompt: ?59,$E($P(^APCHSCTL(APCHZ,0),U),1,20) Line Location: PRINT+10
Function Call: WRITE	Prompt: ! Line Location: HEAD+1
Function Call: WRITE	Prompt: !,$P(^VA(200,DUZ,0),U,2),?72,"Page ",APCHPG,! Line Location: HEAD1+2
Function Call: WRITE	Prompt: ?(80-$L($P(^DIC(4,DUZ(2),0),U))/2),$P(^DIC(4,DUZ(2),0),U),! Line Location: HEAD1+3
Function Call: WRITE	Prompt: $$CTR("HEALTH SUMMARY HEALTH MAINTENANCE REMINDERS",80),! Line Location: HEAD1+4
Function Call: WRITE	Prompt: $$CTR($S(APCHACT="A":"ACTIVE",APCHACT="I":"INACTIVE",1:"BOTH ACTIVE AND INACTIVE REMINDERS"),80),! Line Location: HEAD1+5
Function Call: WRITE	Prompt: $TR($J("",80)," ","-"),! Line Location: HEAD1+6
Function Call: WRITE	Prompt: !,"REMINDER",?27,"CATEGORY",?44,"STATUS",?59,"HEALTH SUMMARY TYPES",! Line Location: HEAD1+7
Function Call: WRITE	Prompt: $TR($J("",80)," ","-") Line Location: HEAD1+8
Routine Call	DIR Line Location: ACT+4 SORT+2 ZIS+1 HEAD+1 EOP+5

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^APCHSCTL - [#9001015]	PRINT+9, PRINT+10
^APCHSURV - [#9001018]	PROCESS1+1, PROCESS1+2, PROCESS1+3, PROCESS1+10
^APCHSURV("B"	PROCESS+4
^DIC(4 - [#4]	HEAD1+3, LOC+1
^VA(200 - [#200]	HEAD1+2, USR+1
^XTMP("APCHHMRQ"	PROCESS+2, PROCESS+3!, PROCESS1+11, PROCESS1+12, PROCESS1+13, PRINT+2, PRINT+3, PRINT+4, PRINT+5, S1+1* , S1+2*

Label References

Name	Line Occurrences
$$CTR	HEAD1+4, HEAD1+5
ACT	SORT+3
BROWSE	ZIS+3
HEAD	PRINT+1, PRINT+6
HEAD1	HEAD
PROCESS1	PROCESS+4
S1	S+4, S+6, S+9
XIT	ACT+5, ZIS+2, ZIS+3, ZIS+6

Naked Globals

Name	Field # of Occurrence
^(0	USR+1, LOC+1

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %	S+7, S+8, S1+1*, S1+2
>> APCHACT	ACT+1, ACT+6, PROCESS1+4, PROCESS1+5, HEAD1+5
>> APCHC	PRINT+3*, PRINT+4, PRINT+5
>> APCHH	PROCESS+1*, PROCESS+3, PROCESS1+11, PROCESS1+12, PROCESS1+13, PRINT+2, PRINT+3, PRINT+4, PRINT+5, S1+1 , S1+2
>> APCHHMR	PROCESS+4, PROCESS1+1, PROCESS1+2, PROCESS1+3, PROCESS1+8, PROCESS1+10, PROCESS1+11, PROCESS1+12, PROCESS1+13, PRINT+5 , PRINT+7, PRINT+10
>> APCHJ	PROCESS+1*, PROCESS+3, PROCESS1+11, PROCESS1+12, PROCESS1+13, PRINT+2, PRINT+3, PRINT+4, PRINT+5, S1+1 , S1+2
>> APCHK	PRINT+10*
>> APCHN	PROCESS+4, PRINT+4, PRINT+5
>> APCHPG	PRINT+1, HEAD, HEAD1+1, HEAD1+2
>> APCHQ	PRINT+1, PRINT+2, PRINT+3, PRINT+4, PRINT+5, PRINT+6, PRINT+10, HEAD+1
>> APCHS	PRINT+2*, PRINT+3, PRINT+4, PRINT+5
>> APCHSC	PRINT+8, PRINT+10
>> APCHSORT	SORT+1, SORT+4, PROCESS1+11, PROCESS1+12, PROCESS1+13
>> APCHZ	PRINT+8, PRINT+9, PRINT+10
C	PROCESS1+8, PROCESS1+9, PROCESS1+11, PROCESS1+12, PROCESS1+13, S~, S+6
DA	ACT+4!, SORT+2!, ZIS+1!
DFOUT	EOP+4!
DIR	ACT+2!, ACT+4!, SORT+2!, ZIS+1!, HEAD+1!, EOP+3~
DIR("A"	ACT+4, SORT+2, ZIS+1*
DIR("B"	ACT+4, SORT+2, ZIS+1*
DIR(0	ACT+3, SORT+2, ZIS+1, HEAD+1, EOP+5*
DIRUT	ACT+5, SORT+3, ZIS+2, EOP+4!
DLOUT	EOP+4!
DT	PROCESS+2
DTOUT	HEAD+1, EOP+4!
DUOUT	EOP+4!
DUZ	HEAD1+2, USR+1
DUZ(2	HEAD1+3, LOC+1
F	S~, S+1, S+4
IO	HEAD+1
IO("S"	EOP+2
IO(0	HEAD+1
IOF	HEAD1+1
IOM	CTR+1
IOSL	PRINT+6
IOST	HEAD+1, EOP+1
>> IOT	EOP+2
J	XIT+1!
K	XIT+1!
>> L	S+6*
>> N	PROCESS1+10*, PROCESS1+11, PROCESS1+12, PROCESS1+13
>> S	PROCESS1+3, PROCESS1+4, PROCESS1+5, PROCESS1+7, PROCESS1+11, PROCESS1+12, PROCESS1+13
T	S~, S+2, S+6, S+7, S+8
U	PROCESS1+1, PROCESS1+2, PROCESS1+3, PROCESS1+10, PRINT+10, S1+1, HEAD1+2, HEAD1+3, USR+1, LOC+1
X	XIT+1!, S+4, S+5, S+7, S+8, S1+2, CTR~, CTR+1
>> XBIOP	BROWSE+2*
>> XBNS	ZIS+4, BROWSE+2
>> XBRC	ZIS+4, BROWSE+2
>> XBRP	ZIS+4, BROWSE+1
>> XBRX	ZIS+4, BROWSE+2
Y	ACT+6, SORT+4, ZIS+3, XIT+1!, S~, S+5, S+6, S+8, HEAD+1, CTR~ , CTR+1
Z	XIT+1!
>> ZTQUEUED	EOP+2

Customize PDF page

Package: Patient Care Component

Routine: APCHHMRQ

Information

Source Information

Call Graph

Call Graph Total: 6

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: