Routine: GMPLBLD1

Information

GMPLBLD1 ; ISL/MKB,JER - Bld PL Selection Lists cont ;09/22/11 14:40

Source Information

Call Graph

Call Graph Total: 3

Package	Total	Call Graph
Problem List	2	BUILD^GMPLBLD ($$MSG,$$SURE)^GMPLX
VA Fileman	1	^DIR

Caller Graph

Caller Graph Total: 2

Package	Total	Caller Graph
Problem List	2	GMPLBLD GMPLBLDC

Entry Points

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

Name	Field # of Occurrence
^DIR	SEL+7, SEL1+7, SQ, H1, T1, C1, F1, RETURN+2
BUILD^GMPLBLD	EDIT+10
$$MSG^GMPLX	RSQ, EDQ
$$SURE^GMPLX	H1+2, T1+2, C1+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: ! Line Location: RESEQ+3
Function Call: WRITE	Prompt: !!,$P(^TMP("GMPLIST",$J,IFN),U,3) Line Location: RESEQ+6
Function Call: WRITE	Prompt: ! Line Location: EDIT+3
Routine Call	DIR Line Location: SEL+7 SEL1+7 SQ H1 T1 C1 F1 RETURN+2

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

Name	Line Occurrences
$$FLAG	EDIT+8
$$HDR	EDIT+7
$$NOJUMP	SQ+1, H1+1, T1+1, C1+1, F1+1
$$SEL	RESEQ+2, EDIT+2
$$SEQ	RESEQ+7
C1	C1+1, C1+2
CQ	C1
EDQ	EDIT+2
F1	F1+1
H1	H1+1, H1+2
RSQ	RESEQ+2
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+7, SEL1+7, SQ, H1, T1, C1, F1
FLG	EDIT+1~, EDIT+6, EDIT+8, EDIT+9
>> GMPLGRP	SEL+1, SEL1+1, SEQ+1
>> GMPLMODE	EDIT+10
>> GMPLSAVE	RESEQ+9, EDIT+10
GMPQUIT	RESEQ+1~, RESEQ+3, RESEQ+7, EDIT+1~, EDIT+3, EDIT+7, EDIT+8*
GMPREBLD	RESEQ+8, RESEQ+9, EDIT+1~, EDIT+9, EDIT+10
GRP	SEL+1~, SEL+3, SEL+6, SEL1+1~, SEL1+3, SEL1+6, SEQ+1~*, SEQ+3
GRPS	EDIT+1~, EDIT+2*, EDIT+3, EDIT+4
HDR	EDIT+1~, EDIT+6, EDIT+7, EDIT+9
I	TMPIFN+1~, TMPIFN+2, TMPIFN+3*, TMPQ
ICDCODE	CODE~, CODE+4, CODE+5, C1+3
IFN	DELETE~, DELETE+2, DELETE+4, RESEQ+1~, RESEQ+5, RESEQ+6, RESEQ+8, EDIT+1~, EDIT+5, EDIT+6 , EDIT+9
ITEM	DELETE+1~, DELETE+2*, DELETE+3
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+7*, RESEQ+8
NUM	SEQ~, SEQ+2, SQ+2, RESEQ+1~, RESEQ+4, RESEQ+5, EDIT+1~, EDIT+4, EDIT+5
PIECE	RESEQ+1~, RESEQ+3, RESEQ+4, EDIT+1~, EDIT+3, EDIT+4
SCTCODE	CODE~, CODE+3, CODE+4
SEL	RESEQ+1~, RESEQ+2*, RESEQ+3, RESEQ+4
SEQ	DELETE+1~, DELETE+2, DELETE+3, RESEQ+1~, RESEQ+5, RESEQ+7, RESEQ+8
TEXT	HDR~, HDR+1, TEXT~, TEXT+1
U	SEL+2, SEL1+2, DELETE+2, RESEQ+5, RESEQ+6, RESEQ+8, EDIT+5, EDIT+6, EDIT+9
>> VALMBCK	RESEQ+1, RESEQ+9, RSQ, EDIT+1, EDIT+10, 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: 3

Caller Graph

Caller Graph Total: 2

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Local Variables

Legend: