Routine: GMPLBLD1

Information

GMPLBLD1 ; ISL/MKB,JER,TC - Bld PL Selection Lists cont;05/02/17 11:28

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

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