Routine: GMPLBLD

Call Graph Total: 9

Package	Total	Call Graph
Problem List	3	($$HDR,$$SEL1,$$SEQ,$$TMPIFN,DELETE)^GMPLBLD1 ($$CKSAVE,$$GROUP,$$LAST,$$LIST,$$VALGRP,SAVE)^GMPLBLD2 $$MSG^GMPLX
Registration	3	EN^VALM FULL^VALM1 (CLEAN,CNTRL)^VALM10
DRG Grouper	1	$$STATCHK^ICDAPIU
Kernel	1	$$FMTE^XLFDT
VA Fileman	1	^DIR

Package	Total	Caller Graph
Problem List	3	GMPL BUILD SELECTION LIST GMPLBLD1 GMPLBLD2

Package

Total

Caller Graph

Problem List

GMPL BUILD SELECTION LIST GMPLBLD1 GMPLBLD2

Entry Points

Name	Comments	DBIA/ICR reference
EN	; -- main entry point
HDR	; -- header code
EDIT	; Edit category contents
GETLIST	; Build ^TMP("GMPLIST",$J,#)
ADD	; Add group(s)
REMOVE	; Remove group
INIT	; -- init variables and list array
RMQ
EXIT	; -- exit code
LENGTH	;SHORTEN THE ICD9'S DESCRIPTION TO FIT SCREEN
BUILD(LIST,MODE)	; Build ^TMP("GMPLST",$J,)
HELP	; -- help code

External References

Name	Field # of Occurrence
^DIR	ADD+10, REMOVE+7
$$HDR^GMPLBLD1	ADD+12
$$SEL1^GMPLBLD1	REMOVE+2
$$SEQ^GMPLBLD1	ADD+14
$$TMPIFN^GMPLBLD1	ADD+15
DELETE^GMPLBLD1	REMOVE+9
$$CKSAVE^GMPLBLD2	EXIT+1
$$GROUP^GMPLBLD2	ADD+3
$$LAST^GMPLBLD2	ADD+13
$$LIST^GMPLBLD2	INIT+1
$$VALGRP^GMPLBLD2	ADD+5
SAVE^GMPLBLD2	EXIT+2
$$MSG^GMPLX	INIT+4, HELP+10, ADD+18, EDIT+5, RMQ
$$STATCHK^ICDAPIU	BUILD+21
EN^VALM	EN+1, EDIT+2
FULL^VALM1	ADD+1, ADD+6
CLEAN^VALM10	BUILD+1
CNTRL^VALM10	BUILD+11, BUILD+13
$$FMTE^XLFDT	HDR+3

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: $C(7),!!,"This list is currently being edited by another user!",! Line Location: INIT+3
Function Call: WRITE	Prompt: !,"Searching for the list ..." Line Location: GETLIST+2
Function Call: WRITE	Prompt: !!?4,"You may take a variety of actions to update this selection list." Line Location: HELP+2
Function Call: WRITE	Prompt: !?4,"New categories may be added to this list, or an existing one" Line Location: HELP+3
Function Call: WRITE	Prompt: !?4,"removed; Edit Category will allow you to change the contents of" Line Location: HELP+4
Function Call: WRITE	Prompt: !?4,"a category, or create a new one that may be added to this list." Line Location: HELP+5
Function Call: WRITE	Prompt: !?4,"You may also change how each category appears in this list," Line Location: HELP+6
Function Call: WRITE	Prompt: !?4,"view each category's sequence number to facilitate resequencing," Line Location: HELP+7
Function Call: WRITE	Prompt: !?4,"assign this list to a clinic or user(s), or edit a different list." Line Location: HELP+8
Function Call: WRITE	Prompt: !!,"Press <return> to continue ..." Line Location: HELP+9
Function Call: WRITE	Prompt: ! Line Location: ADD+2
Function Call: WRITE	Prompt: !?4,">>> This category is already part of this list!" Line Location: ADD+4
Function Call: WRITE	Prompt: !!,$C(7),"This category contains one or more problems with inactive ICD-9 codes. " Line Location: ADD+7
Function Call: WRITE	Prompt: !,"These codes must be updated before adding the category to a selection list." Line Location: ADD+8
Function Call: WRITE	Prompt: $C(7),!!,"Category is not part of this list!" Line Location: REMOVE+4
Function Call: WRITE	Prompt: !?5,"< Nothing removed! >" Line Location: REMOVE+8
Routine Call	VALM Line Location: EN+1 EDIT+2
Routine Call	DIR Line Location: ADD+10 REMOVE+7

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^GMPL(125 - [#125]	INIT+2, EXIT+3*, EXIT+4
^GMPL(125.1 - [#125.1]	GETLIST+3, GETLIST+4
^GMPL(125.12 - [#125.12]	BUILD+14, BUILD+15, BUILD+16
^TMP("GMPLIST"	GETLIST+1!, GETLIST+5, GETLIST+6, GETLIST+7, BUILD+2, BUILD+3, BUILD+5, BUILD+6, BUILD+7, BUILD+9 , BUILD+12, EXIT+6!, ADD+4, ADD+15, ADD+16, REMOVE+4, REMOVE+5
^TMP("GMPLST"	HDR+2, BUILD+3, BUILD+9, BUILD+10, BUILD+16, BUILD+19, BUILD+22, BUILD+23, BUILD+24, EXIT+6! , REMOVE+3, LENGTH+2, LENGTH+4, LENGTH+6, LENGTH+7*

Name	Line Occurrences
BUILD	INIT+5, ADD+17, EDIT+4, REMOVE+10
GETLIST	INIT+5, EDIT+4
HDR	ADD+17, REMOVE+10
INIT	INIT+2
LENGTH	INIT+6
RMQ	REMOVE+2, REMOVE+3, REMOVE+4, REMOVE+8

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
CNT	GETLIST+1~, GETLIST+5, GETLIST+7
DATE	HDR+1~, HDR+3*, HDR+4
DIR	ADD+9~, REMOVE+1~
DIR("?"	REMOVE+6*
DIR("A"	REMOVE+5*
DIR("B"	REMOVE+7*
DIR(0	ADD+10, REMOVE+7
DIRUT	ADD+9~
DT	BUILD+21, EXIT+3
DTIME	HELP+9
DTOUT	ADD+9~
DUOUT	ADD+9~
GMI	BUILD+18~, BUILD+20*, BUILD+21
GMPLGRP	EDIT+1~
GMPLIST	EXIT+5!, EDIT+1~
GMPLMODE	INIT+4, INIT+5, EXIT+5!, ADD+17, EDIT+1~, EDIT+3, EDIT+4, REMOVE+10
GMPLSAVE	EXIT+1, EXIT+5!, ADD+17, EDIT+1~, REMOVE+9
GMPLSLST	HDR+3, HDR+5, INIT+1*, INIT+2, GETLIST+3, EXIT+3, EXIT+4, EXIT+5!
GMPLST	EXIT+5!, EDIT+1~
GMPQUIT	EXIT+5!, ADD+1~, ADD+2, ADD+3, ADD+12, ADD+14*
GMPREBLD	EXIT+5!, ADD+1~, ADD+16*, ADD+17
GROUP	BUILD+1~, BUILD+7, BUILD+14, BUILD+15, ADD+1~, ADD+3, ADD+4, ADD+5, ADD+12, ADD+15 , ADD+16
GRP	GETLIST+1~, GETLIST+4*, GETLIST+6, REMOVE+1~
HDR	BUILD+1~, BUILD+7, BUILD+8, BUILD+10, BUILD+13, ADD+1~, ADD+12*, ADD+15
>> ICD9VAR	LENGTH+4, LENGTH+5, LENGTH+6*, LENGTH+7
IFN	GETLIST+1~, GETLIST+3, GETLIST+4, GETLIST+5, GETLIST+6, BUILD+1~, BUILD+6, BUILD+7, BUILD+9, BUILD+10 , BUILD+12, BUILD+15, BUILD+16, ADD+1~, ADD+15, ADD+16, REMOVE+1~, REMOVE+3*, REMOVE+4, REMOVE+5 , REMOVE+9
>> IOINHI	BUILD+11
>> IOINORM	BUILD+11
>> IOUOFF	BUILD+13
>> IOUON	BUILD+13
ITEM	GETLIST+1~, GETLIST+4, GETLIST+5, BUILD+1~, BUILD+16, BUILD+17, BUILD+19, BUILD+20, BUILD+21
LCNT	BUILD+1~, BUILD+4, BUILD+6, BUILD+9, BUILD+10, BUILD+11, BUILD+13, BUILD+15, BUILD+16, BUILD+19 , BUILD+22, BUILD+23*, BUILD+24
LIST	BUILD~
>> LLCNT	LENGTH+1, LENGTH+2, LENGTH+4, LENGTH+6, LENGTH+7
MODE	BUILD~, BUILD+10
NAME	HDR+1~, HDR+5*
NUM	HDR+1~, HDR+2, HDR+4, BUILD+1~, BUILD+4, BUILD+6, BUILD+10, BUILD+24, REMOVE+1~, REMOVE+2 , REMOVE+3
PSEQ	BUILD+1~, BUILD+14*, BUILD+15
RT	EXIT+5!, ADD+13*
SEQ	GETLIST+1~, GETLIST+4, GETLIST+6, BUILD+1~, BUILD+4, BUILD+5, BUILD+6, BUILD+10, ADD+1~, ADD+13 , ADD+14*, ADD+15, ADD+16, REMOVE+1~
TMPLST	EXIT+5!
U	HDR+3, HDR+5, GETLIST+4, GETLIST+5, BUILD+3, BUILD+7, BUILD+9, BUILD+12, BUILD+16, BUILD+17 , BUILD+19, BUILD+20, BUILD+21, BUILD+24, EXIT+3, ADD+12, ADD+15, REMOVE+5
>> VALMBCK	HELP+10, ADD+11, ADD+17, ADD+18, EDIT+5, REMOVE+1, REMOVE+9, RMQ
>> VALMCC	HELP+10, RMQ
>> VALMCNT	BUILD+3, BUILD+24
>> VALMHDR(1	HDR+4*
>> VALMHDR(2	HDR+5*
>> VALMQUIT	INIT+1*
>> VALMSG	INIT+4, HELP+10, ADD+18, EDIT+5, RMQ*
X	HELP+1~, HELP+9*, ADD+9~, REMOVE+1~
Y	ADD+9~, REMOVE+1~, REMOVE+8

Customize PDF page

Package: Problem List

Routine: GMPLBLD

Information

Source Information

Call Graph

Call Graph Total: 9

Caller Graph

Caller Graph Total: 3

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Local Variables

Legend: