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 - Bld PL Selection Lists cont ;09/22/11 14:40

Source Information

Source file <GMPLBLD1.m>

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

External References

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

Global Variables Directly Accessed

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

Label References

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