Routine: GMPLPREF

Package	Total	Call Graph
Registration	3	(CHGCAP,EN)^VALM $$SETFLD^VALM1 CNTRL^VALM10
Problem List	2	($$ALL,$$CHANGE,$$VIEW,CURRENT)^GMPLPRF0 ($$DIFFRENT,SAVE)^GMPLPRF1
VA Fileman	1	^DIR

Package

Total

Call Graph

Registration

(CHGCAP,EN)^VALM $$SETFLD^VALM1 CNTRL^VALM10

Problem List

($$ALL,$$CHANGE,$$VIEW,CURRENT)^GMPLPRF0 ($$DIFFRENT,SAVE)^GMPLPRF1

VA Fileman

^DIR

Package	Total	Caller Graph
Problem List	2	GMPL USER VIEW GMPLPRF1

Package

Total

Caller Graph

Problem List

GMPL USER VIEW GMPLPRF1

Entry Points

Name	Comments	DBIA/ICR reference
EN	; -- main entry point for GMPL USER PREFS
HDR	; -- header code
MSG()	; -- msg line for more help
GETSLIST	; -- init SERVICE list array
INIT	; -- init variables and list array
CLEAN	; -- exit code
GETCLIST	; -- init CLINIC list array
ITEM(IFN,NAME,VIEW,CNT)	;Add item to list display
HELP	; -- help code

External References

Name	Field # of Occurrence
^DIR	CLEAN+8
$$ALL^GMPLPRF0	INIT+4
$$CHANGE^GMPLPRF0	EN+1
$$VIEW^GMPLPRF0	INIT+2
CURRENT^GMPLPRF0	EN+1
$$DIFFRENT^GMPLPRF1	CLEAN+1
SAVE^GMPLPRF1	INIT+4, CLEAN+8
CHGCAP^VALM	GETSLIST+13, GETCLIST+7
EN^VALM	EN+2
$$SETFLD^VALM1	ITEM+3, ITEM+5
CNTRL^VALM10	ITEM+7

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"Preferred View saved.",! Line Location: INIT+4
Function Call: WRITE	Prompt: !!,"Retrieving the list of clinical services ..." Line Location: GETSLIST+2
Function Call: WRITE	Prompt: !!,"Retrieving the list of clinics ..." Line Location: GETCLIST+2
Function Call: WRITE	Prompt: !!?4,"To create or change your preferred view, choose either Add or" Line Location: HELP+3
Function Call: WRITE	Prompt: !?4,"Remove; those "_X_" you add will be flagged above with a 'Y'." Line Location: HELP+4
Function Call: WRITE	Prompt: !?4,"Within the Problem List application, ONLY those problems associated" Line Location: HELP+5
Function Call: WRITE	Prompt: !?4,"with your selected "_X_" will initially be displayed, however" Line Location: HELP+6
Function Call: WRITE	Prompt: !?4,"the entire list is always available using its Select View option." Line Location: HELP+7
Function Call: WRITE	Prompt: !?4,"If you wish to create a view according to "_Y_" instead, or not" Line Location: HELP+8
Function Call: WRITE	Prompt: !?4,"to have a view at all, choose Select New View or Delete respectively." Line Location: HELP+9
Function Call: WRITE	Prompt: !!,"Press <return> to continue ... " Line Location: HELP+10
Function Call: WRITE	Prompt: !!,$C(7),">>> YOUR PREFERRED VIEW HAS CHANGED!!" Line Location: CLEAN+3
Routine Call	VALM Line Location: EN+2
Routine Call	VALM Line Location: GETSLIST+13 GETCLIST+7
Routine Call	DIR Line Location: CLEAN+8

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DIC(49 - [#49]	GETSLIST+3, GETSLIST+5, GETSLIST+6, GETSLIST+8, GETSLIST+9, GETSLIST+10
^SC - [#44]	GETCLIST+3, GETCLIST+4
^TMP("GMPLIST"	GETSLIST+1!, GETSLIST+4, GETSLIST+12, GETSLIST+14, GETCLIST+1!, GETCLIST+6, GETCLIST+8, ITEM+5, ITEM+6, HDR+3 , CLEAN+10!
^VA(200 - [#200]	INIT+1, HDR+1

Name	Line Occurrences
$$MSG	GETSLIST+14, GETCLIST+8, HELP+11
GETCLIST	INIT+5
GETSLIST	INIT+5
ITEM	GETSLIST+7, GETSLIST+11, GETCLIST+5

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> CHILD	GETSLIST+9*, GETSLIST+10, GETSLIST+11
CNT	ITEM~, ITEM+3*, ITEM+6, ITEM+7
DIR	CLEAN+2~
DIR("?"	CLEAN+5, CLEAN+6, CLEAN+7*
DIR("A"	CLEAN+4*
DIR("B"	CLEAN+4*
DIR(0	CLEAN+2*
DTIME	HELP+10
DUZ	EN+1, INIT+1, HDR+1
GMPLIST	CLEAN+9!
GMPLMODE	INIT+1, INIT+2, INIT+3!, INIT+4, INIT+5, HDR+2, HDR+3, HELP+1, HELP+2, CLEAN+5 , CLEAN+9!, MSG+1
GMPLVIEW	INIT+1*, INIT+3!, INIT+4, GETSLIST+7, GETSLIST+11, GETCLIST+5, CLEAN+9!
GMPSAVED	CLEAN+1, CLEAN+9!
IFN	GETSLIST+1~, GETSLIST+3, GETSLIST+4, GETSLIST+5, GETSLIST+6, GETSLIST+7, GETSLIST+8, GETSLIST+9, GETCLIST+1~, GETCLIST+3 , GETCLIST+4, GETCLIST+5, ITEM~, ITEM+1, ITEM+5, ITEM+6
INCL	ITEM+1~*, ITEM+5
>> IOINHI	ITEM+7
>> IOINORM	ITEM+7
LCNT	GETSLIST+1~, GETSLIST+7, GETSLIST+11, GETSLIST+12, GETSLIST+14, GETCLIST+1~, GETCLIST+5, GETCLIST+6, GETCLIST+8
LINE	ITEM+1~, ITEM+2, ITEM+3, ITEM+4, ITEM+5, ITEM+6
LNG	ITEM+1~, ITEM+4*
NAME	GETSLIST+1~, GETSLIST+6, GETSLIST+7, GETSLIST+10, GETSLIST+11, GETCLIST+1~, GETCLIST+5*, ITEM~, ITEM+4
>> NODE	GETCLIST+4*, GETCLIST+5
NUM	HDR+1~, HDR+3*, HDR+4
PARENT	GETSLIST+1~, GETSLIST+5*
TMP	ITEM+1~, ITEM+4*
U	INIT+1, GETSLIST+5, GETSLIST+6, GETSLIST+10, GETSLIST+13, GETCLIST+4, GETCLIST+5, GETCLIST+7, HDR+1
USER	HDR+1~*, HDR+4
VALMBCK	HELP+11*, CLEAN+11!
>> VALMCC	HELP+11
VALMCNT	GETSLIST+14, GETCLIST+8, CLEAN+11!
>> VALMDDF("SERVICE"	GETSLIST+13, GETCLIST+7
VALMHDR	CLEAN+11!
VALMHDR(1	HDR+4*
VALMHDR(2	HDR+4*
>> VALMQUIT	INIT+3, INIT+4
VALMSG	GETSLIST+14, GETCLIST+8, HELP+11*, CLEAN+11!
VIEW	ITEM~, ITEM+1
X	HDR+1~, HDR+2, HDR+4, HELP+1~, HELP+2, HELP+4, HELP+6, HELP+10, CLEAN+2~, MSG+1~* , MSG+2
Y	HELP+1~, HELP+2, HELP+8, CLEAN+2~, CLEAN+8

Customize PDF page

Package: Problem List

Routine: GMPLPREF

Information

Source Information

Call Graph

Call Graph Total: 6

Caller Graph

Caller Graph Total: 2

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Local Variables

Legend: