Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables |  All
Print Page as PDF
Routine: GMPLBLD1

Package: Problem List

Routine: GMPLBLD1


Information

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

Source Information

Source file <GMPLBLD1.m>

Call Graph

Call Graph

Call Graph Total: 5

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  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

protocol O screenman SM broker B event driver Ed print P extended action Ea limited protocol LP edit E server Se subscriber Su inquire I run routine RR action A

Caller Graph

Caller Graph Total: 6

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
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

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
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables |  All