Routine: GMPLBLD1

Package	Total	Call Graph
Problem List	2	BUILD^GMPLBLD ($$MSG,$$SURE)^GMPLX
DRG Grouper	1	$$CODECS^ICDEX
Kernel	1	$$DT^XLFDT
VA FileMan	1	^DIR

Package	Total	Caller Graph
Problem List	5	GMPL MENU EDIT GROUP DISPLAY GMPL MENU RESEQUENCE GROUPS GMPL MENU RESEQUENCE PROBLEMS GMPLBLD GMPLBLDC
Kernel	1	^ORD(101

Entry Points

Name	Comments	DBIA/ICR reference
SEL()	; Select item(s) from list
SEL1()	; Select item from list
SEQ(NUM)	; Enter/edit seq #, returns new #
SQ
HDR(TEXT)	; Enter/edit group subheader text in list
H1
TEXT(TEXT)	; Edit problem text
T1
TQ
CODE(SCTCODE,ICDCODE)	; Confirm problem codes
C1
CQ
FLAG(DFLT)	; Edit category flag
F1
NOJUMP()	; Message
RETURN()	; End of page prompt
TMPIFN()	; Get temporary IFN ("#N") for ^TMP("GMPLIST",$J,)
TMPQ
DELETE(IFN)	; Kill entry in ^TMP("GMPLIST",$J,)
RESEQ	; Resequence items
RSQ
EDIT	; Edit category display
EDQ

External References

Name	Field # of Occurrence
^DIR	SEL+7, SEL1+7, SQ, H1, T1, C1, F1, RETURN+2
BUILD^GMPLBLD	EDIT+11
$$MSG^GMPLX	RSQ, EDQ
$$SURE^GMPLX	H1+2, T1+2, C1+2
$$CODECS^ICDEX	CODE+2
$$DT^XLFDT	CODE+2

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: $C(7),$$NOJUMP Line Location: SQ+1
Function Call: WRITE	Prompt: $C(7),!!,"Sequence number already in use! Please enter another number." Line Location: SQ+4
Function Call: WRITE	Prompt: !,"Use the 'Change View' option to display the current sequence numbers.",! Line Location: SQ+5
Function Call: WRITE	Prompt: $C(7),$$NOJUMP Line Location: H1+1
Function Call: WRITE	Prompt: $C(7),$$NOJUMP Line Location: T1+1
Function Call: WRITE	Prompt: !!?2,"The following ",$S(SCTCODE]"":"SNOMED CT & ",1:""),CODESYS," Code(s) are associated with the problem",!?2,"you selected:" Line Location: CODE+3
Function Call: WRITE	Prompt: !!?2,"SNOMED CT: ",SCTCODE,?24,CODESYS,": ",ICDCODE,! Line Location: CODE+4
Function Call: WRITE	Prompt: !!?2,CODESYS,": ",ICDCODE,! Line Location: CODE+5
Function Call: WRITE	Prompt: $C(7),$$NOJUMP Line Location: C1+1
Function Call: WRITE	Prompt: ! Line Location: C1+4
Function Call: WRITE	Prompt: $C(7),$$NOJUMP Line Location: F1+1
Function Call: WRITE	Prompt: !!,"Cannot make edits to a National category." Line Location: RESEQ+2
Function Call: WRITE	Prompt: !!,"Cannot make edits to a National list." Line Location: RESEQ+3
Function Call: WRITE	Prompt: ! Line Location: RESEQ+5
Function Call: WRITE	Prompt: !!,$P(^TMP("GMPLIST",$J,IFN),U,3) Line Location: RESEQ+8
Function Call: WRITE	Prompt: !!,"Cannot make edits to a National list." Line Location: EDIT+2
Function Call: WRITE	Prompt: ! Line Location: EDIT+4
Routine Call	DIR Line Location: SEL+7 SEL1+7 SQ H1 T1 C1 F1 RETURN+2

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^TMP("GMPLIST"	SQ+3, TMPIFN+2, DELETE+1, DELETE+2, DELETE+3!, DELETE+4!, RESEQ+7, RESEQ+8, RESEQ+10!, EDIT+7 , EDIT+10
^TMP("GMPLST"	SEL+2, SEL1+2, RESEQ+7, EDIT+6

Label References

Name	Line Occurrences
$$FLAG	EDIT+9
$$HDR	EDIT+8
$$NOJUMP	SQ+1, H1+1, T1+1, C1+1, F1+1
$$SEL	RESEQ+4, EDIT+3
$$SEQ	RESEQ+9
C1	C1+1, C1+2
CQ	C1
EDQ	EDIT+2, EDIT+3
F1	F1+1
H1	H1+1, H1+2
RSQ	RESEQ+2, RESEQ+3, RESEQ+4
SQ	SQ+1, SQ+3
T1	T1+1, T1+2
TQ	T1, T1+2

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
CODESYS	CODE+1~, CODE+2*, CODE+3, CODE+4, CODE+5
DFLT	FLAG~, FLAG+1
DIR	SEL+1~, SEL1+1~, SEQ+1~, HDR+1~, TEXT+1~, CODE+1~, FLAG+1~, RETURN+1~
DIR("?"	SEL+6, SEL1+6, SEQ+3, SEQ+4, HDR+3, HDR+4, TEXT+3, CODE+7, FLAG+3*
DIR("A"	SEL+3, SEL+4, SEL+5, SEL1+3, SEL1+4, SEL1+5, SEQ+2, HDR+2, TEXT+2, CODE+6 , FLAG+2*
DIR("B"	SEL+5, SEL1+5, SEQ+2, HDR+1, HDR+4, TEXT+1, FLAG+1
DIR(0	SEL+3, SEL1+3, SEQ+2, HDR+2, TEXT+2, CODE+6, FLAG+1, RETURN+2
DTOUT	SEL+1~, SEL+7, SEL1+1~, SEL1+7, SEQ+1~, SQ, HDR+1~, H1, TEXT+1~, T1 , CODE+1~, C1, FLAG+1~, F1
FLG	EDIT+1~, EDIT+7, EDIT+9, EDIT+10
GMPCSREC	CODE+1~, CODE+2*
>> GMPLGRP	SEL+1, SEL1+1, SEQ+1, RESEQ+2, RESEQ+3
>> GMPLMODE	EDIT+11
>> GMPLSAVE	RESEQ+11, EDIT+11
>> GMPLSLST	RESEQ+3, EDIT+2
GMPQUIT	RESEQ+1~, RESEQ+5, RESEQ+9, EDIT+1~, EDIT+4, EDIT+8, EDIT+9*
GMPREBLD	RESEQ+10, RESEQ+11, EDIT+1~, EDIT+10, EDIT+11
GROUP	DELETE+1~, DELETE+2*, DELETE+3
GRP	SEL+1~, SEL+3, SEL+6, SEL1+1~, SEL1+3, SEL1+6, SEQ+1~*, SEQ+3
GRPS	EDIT+1~, EDIT+3*, EDIT+4, EDIT+5
HDR	EDIT+1~, EDIT+7, EDIT+8, EDIT+10
I	TMPIFN+1~, TMPIFN+2, TMPIFN+3*, TMPQ
ICDCODE	CODE~, CODE+2, CODE+4, CODE+5, C1+3
IFN	DELETE~, DELETE+2, DELETE+4, RESEQ+1~, RESEQ+7, RESEQ+8, RESEQ+10, EDIT+1~, EDIT+6, EDIT+7 , EDIT+10
LAST	TMPIFN+1~, TMPIFN+2, TMPIFN+3
MAX	SEL+1~, SEL+2, SEL+3, SEL+4, SEL+5, SEL1+1~, SEL1+2, SEL1+3, SEL1+4, SEL1+5
NSEQ	RESEQ+1~, RESEQ+9*, RESEQ+10
NUM	SEQ~, SEQ+2, SQ+2, RESEQ+1~, RESEQ+6, RESEQ+7, EDIT+1~, EDIT+5, EDIT+6
PIECE	RESEQ+1~, RESEQ+5, RESEQ+6, EDIT+1~, EDIT+4, EDIT+5
SCTCODE	CODE~, CODE+3, CODE+4
SEL	RESEQ+1~, RESEQ+4*, RESEQ+5, RESEQ+6
SEQ	DELETE+1~, DELETE+2, DELETE+3, RESEQ+1~, RESEQ+7, RESEQ+9, RESEQ+10
TEXT	HDR~, HDR+1, TEXT~, TEXT+1
U	SEL+2, SEL1+2, CODE+2, DELETE+2, RESEQ+2, RESEQ+3, RESEQ+7, RESEQ+8, RESEQ+10, EDIT+2 , EDIT+6, EDIT+7, EDIT+10
>> VALMBCK	RESEQ+1, RESEQ+11, RSQ, EDIT+1, EDIT+11, EDQ
>> VALMCC	RSQ, EDQ
>> VALMSG	RSQ, EDQ
X	SEL+1~, SEL+7, SEL1+1~, SEL1+7, SEQ+1~, SQ, SQ+1, HDR+1~, H1, H1+1 , H1+2, TEXT+1~, T1, T1+1, T1+2, CODE+1~, C1, C1+1, C1+2, FLAG+1~ , F1, F1+1, RETURN+1~
Y	SEL+1~, SEL+7, SEL+8, SEL1+1~, SEL1+7, SEL1+8, SEQ+1~, SQ+2, SQ+3, SQ+6 , HDR+1~, H1+3, TEXT+1~, T1, T1+2, TQ, CODE+1~, C1, C1+2, C1+3* , CQ, FLAG+1~, F1+2, RETURN+1~, RETURN+3

Customize PDF page

Package: Problem List

Routine: GMPLBLD1

Information

Source Information

Call Graph

Call Graph Total: 5

Caller Graph

Legends:

Package Component Superscript legend

Caller Graph Total: 6

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Local Variables

Legend: