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 |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables  | All
Print Page as PDF
Routine: GMPLBLD

Package: Problem List

Routine: GMPLBLD


Information

GMPLBLD ; SLC/MKB/TC -- Build Problem Selection Lists ;02/22/17 14:07

Source Information

Source file <GMPLBLD.m>

Call Graph

Call Graph

Call Graph Total: 11

Package Total Call Graph
List Manager 3 EN^VALM  FULL^VALM1  (CLEAN,CNTRL)^VALM10  
Problem List 3 ($$HDR,$$SEL1,$$SEQ,$$TMPIFN,DELETE)^GMPLBLD1  ($$CKSAVE,$$GROUP,$$LAST,$$LIST,$$VALGRP,SAVE)^GMPLBLD2  $$MSG^GMPLX  
VA FileMan 2 $$GET1^DIQ  ^DIR  
DRG Grouper 1 ($$CODECS,$$STATCHK)^ICDEX  
Kernel 1 ($$DT,$$FMTE)^XLFDT  
Lexicon Utility 1 $$STATCHK^LEXSRC2  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

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

Caller Graph

Caller Graph Total: 11

Package Total Caller Graph
Problem List 10 GMPL BUILD SELECTION LIST  GMPL MENU ADD GROUP  GMPL MENU CREATE GROUP  GMPL MENU REMOVE GROUP  GMPL MENU RESEQUENCE GROUPS  GMPL MENU SAVE LIST  GMPL MENU VIEW LIST  GMPL SELECTION LIST BUILD  
GMPLBLD1  GMPLBLD2  
Kernel 1 ^ORD(101  

Entry Points

Name Comments DBIA/ICR reference
EN ; -- main entry point
HDR ; -- header code
INIT ; -- init variables and list array
GETLIST ; Build ^TMP("GMPLIST",$J,#)
BUILD(LIST,MODE) ; Build ^TMP("GMPLST",$J,)
HELP ; -- help code
EXIT ; -- exit code
ADD ; Add group(s)
ADQ
EDIT ; Edit category contents
EDQ
REMOVE ; Remove group
RMQ
LENGTH ;SHORTEN THE ICD9'S DESCRIPTION TO FIT SCREEN

External References

Name Field # of Occurrence
$$GET1^DIQ BUILD+8
^DIR ADD+16, REMOVE+10
$$HDR^GMPLBLD1 ADD+18
$$SEL1^GMPLBLD1 REMOVE+3
$$SEQ^GMPLBLD1 ADD+20
$$TMPIFN^GMPLBLD1 ADD+21
DELETE^GMPLBLD1 REMOVE+12
$$CKSAVE^GMPLBLD2 EXIT+2
$$GROUP^GMPLBLD2 ADD+4
$$LAST^GMPLBLD2 ADD+19
$$LIST^GMPLBLD2 INIT+1
$$VALGRP^GMPLBLD2 ADD+10
SAVE^GMPLBLD2 EXIT+4
$$MSG^GMPLX INIT+4, HELP+10, ADQ, EDQ, RMQ
$$CODECS^ICDEX BUILD+29
$$STATCHK^ICDEX BUILD+32
$$STATCHK^LEXSRC2 BUILD+25
EN^VALM EN+1, EDIT+3
FULL^VALM1 ADD+1, ADD+11
CLEAN^VALM10 BUILD+1
CNTRL^VALM10 BUILD+15, BUILD+17
$$DT^XLFDT BUILD+4, EXIT+3
$$FMTE^XLFDT HDR+3

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: $C(7),!!,"This list is currently being edited by another user!",!
  • Line Location: INIT+3
Function Call: WRITE
  • Prompt: !,"Searching for the list ..."
  • Line Location: GETLIST+2
Function Call: WRITE
  • Prompt: !!?4,"You may take a variety of actions to update this selection list."
  • Line Location: HELP+2
Function Call: WRITE
  • Prompt: !?4,"New categories may be added to this list, or an existing one"
  • Line Location: HELP+3
Function Call: WRITE
  • Prompt: !?4,"removed; Edit Category will allow you to change the contents of"
  • Line Location: HELP+4
Function Call: WRITE
  • Prompt: !?4,"a category, or create a new one that may be added to this list."
  • Line Location: HELP+5
Function Call: WRITE
  • Prompt: !?4,"You may also change how each category appears in this list,"
  • Line Location: HELP+6
Function Call: WRITE
  • Prompt: !?4,"view each category's sequence number to facilitate resequencing,"
  • Line Location: HELP+7
Function Call: WRITE
  • Prompt: !?4,"assign this list to a clinic or user(s), or edit a different list."
  • Line Location: HELP+8
Function Call: WRITE
  • Prompt: !!,"Press <return> to continue ..."
  • Line Location: HELP+9
Function Call: WRITE
  • Prompt: !!,"Cannot make edits to a National list."
  • Line Location: ADD+2
Function Call: WRITE
  • Prompt: !
  • Line Location: ADD+3
Function Call: WRITE
  • Prompt: !!,"Cannot add a National category to a list. Please use the Copy to New Category"
  • Line Location: ADD+6
Function Call: WRITE
  • Prompt: !,"menu action under the Enter/Edit Category menu to copy into a local category."
  • Line Location: ADD+7
Function Call: WRITE
  • Prompt: !?4,">>> This category is already part of this list!"
  • Line Location: ADD+9
Function Call: WRITE
  • Prompt: !!,$C(7),"This category contains one or more problems with inactive SNOMED and/or ICD"
  • Line Location: ADD+12
Function Call: WRITE
  • Prompt: !,"codes. These codes must be updated before adding the category to a selection"
  • Line Location: ADD+13
Function Call: WRITE
  • Prompt: !,"list."
  • Line Location: ADD+14
Function Call: WRITE
  • Prompt: !!,"Cannot make edits to a National list."
  • Line Location: EDIT+2
Function Call: WRITE
  • Prompt: !!,"Cannot make edits to a National list."
  • Line Location: REMOVE+2
Function Call: WRITE
  • Prompt: $C(7),!!,"Category is not part of this list!"
  • Line Location: REMOVE+6
Function Call: WRITE
  • Prompt: $C(7),!!,"Category may not be removed from this National list!"
  • Line Location: REMOVE+7
Function Call: WRITE
  • Prompt: !?5,"< Nothing removed! >"
  • Line Location: REMOVE+11
Routine Call
  • DIR
  • Line Location:
    • ADD+16
    • REMOVE+10
Routine Call
  • VALM
  • Line Location:
    • EN+1
    • EDIT+3

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^GMPL(125.11 - [#125.11] GET1^DIQ

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^GMPL(125 - [#125] INIT+2, GETLIST+3, GETLIST+4, GETLIST+5, EXIT+5*, EXIT+6
^GMPL(125.11 - [#125.11] BUILD+18, BUILD+20, BUILD+21, REMOVE+7
^TMP("GMPLIST" GETLIST+1!, GETLIST+6*, GETLIST+7*, GETLIST+8*, BUILD+2*, BUILD+3, BUILD+5, BUILD+6, BUILD+7, BUILD+8
, BUILD+11, BUILD+16, EXIT+8!, ADD+9, ADD+21*, ADD+22*, REMOVE+5, REMOVE+6, REMOVE+8
^TMP("GMPLST" HDR+2, BUILD+3*, BUILD+11*, BUILD+13*, BUILD+14, BUILD+23*, BUILD+30*, BUILD+35*, BUILD+36*, BUILD+37*
, EXIT+8!, REMOVE+4, LENGTH+2, LENGTH+4, LENGTH+6, LENGTH+7*

Label References

Name Line Occurrences
ADQ ADD+2, ADD+8
BUILD INIT+5, ADD+23, EDIT+5, REMOVE+13
EDQ EDIT+2
GETLIST INIT+5, EDIT+5
HDR ADD+23, REMOVE+13
INIT INIT+2
RMQ REMOVE+2, REMOVE+3, REMOVE+4, REMOVE+6, REMOVE+7, REMOVE+11

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
CNT GETLIST+1~*, GETLIST+6*, GETLIST+8
DATE HDR+1~, HDR+3*, HDR+4
DIR ADD+15~, REMOVE+1~
DIR("?" REMOVE+9*
DIR("A" REMOVE+8*
DIR("B" REMOVE+10*
DIR(0 ADD+16*, REMOVE+10*
DIRUT ADD+15~
DTIME HELP+9
DTOUT ADD+15~
DUOUT ADD+15~
GMI BUILD+28~, BUILD+31*, BUILD+32
GMPCLASS BUILD+1~, BUILD+8*, BUILD+10
GMPCSNME BUILD+28~, BUILD+29*, BUILD+30
GMPCSPTR BUILD+28~, BUILD+29*, BUILD+32
GMPCSREC BUILD+28~, BUILD+29*
GMPCSYS BUILD+19~, BUILD+34*, BUILD+35
GMPDT BUILD+1~, BUILD+4*, BUILD+25, BUILD+29, BUILD+32, EXIT+1~, EXIT+3*, EXIT+5
GMPDTXT BUILD+19~, BUILD+21*, BUILD+23
GMPICD BUILD+19~, BUILD+22*, BUILD+27, BUILD+29, BUILD+30, BUILD+31, BUILD+32
GMPIFN BUILD+1~, BUILD+6*, BUILD+7, BUILD+8, BUILD+11, BUILD+13, BUILD+16
GMPLCIEN REMOVE+1~, REMOVE+5*, REMOVE+7
GMPLCOL BUILD+1~, BUILD+14*, BUILD+15
GMPLCSQ GETLIST+1*, GETLIST+3*, GETLIST+4, GETLIST+7, BUILD+1~, BUILD+7*, BUILD+13
GMPLDA GETLIST+1~*, GETLIST+4*, GETLIST+5, GETLIST+6, GETLIST+7
GMPLGRP EDIT+1~
GMPLICD BUILD+19~*, BUILD+33*, BUILD+34
GMPLIST EXIT+7!, EDIT+1~
GMPLMODE INIT+4*, INIT+5, EXIT+7!, ADD+23, EDIT+1~, EDIT+4*, EDIT+5, REMOVE+13
GMPLSAVE EXIT+2, EXIT+7!, ADD+23*, EDIT+1~, REMOVE+12*
GMPLSCT BUILD+19~*, BUILD+26*, BUILD+34
GMPLSHDR BUILD+1~, BUILD+12*, BUILD+13, BUILD+14, BUILD+15
GMPLSLST HDR+3, HDR+5, INIT+1*, INIT+2, GETLIST+3, GETLIST+4, GETLIST+5, EXIT+5, EXIT+6, EXIT+7!
, ADD+2, EDIT+2, REMOVE+2, REMOVE+7
GMPLST EXIT+7!, EDIT+1~
GMPQUIT EXIT+7!, ADD+1~, ADD+3, ADD+4*, ADD+18*, ADD+20*
GMPREBLD EXIT+7!, ADD+1~, ADD+22*, ADD+23
GMPSCTC BUILD+19~, BUILD+22*, BUILD+24, BUILD+25
GMPSEQ BUILD+1~, BUILD+4*, BUILD+5*, BUILD+6
GROUP BUILD+1~, BUILD+7*, BUILD+8, BUILD+18, BUILD+20, BUILD+21, ADD+1~, ADD+4*, ADD+5, ADD+9
, ADD+10, ADD+18, ADD+21, ADD+22
GRP GETLIST+1~, GETLIST+5*, GETLIST+7, REMOVE+1~
HDR BUILD+1~, BUILD+8*, BUILD+9*, BUILD+10*, BUILD+12, BUILD+17, ADD+1~, ADD+18*, ADD+21
>> ICD9VAR LENGTH+4*, LENGTH+5*, LENGTH+6*, LENGTH+7
IFN BUILD+1~, BUILD+20*, BUILD+21, ADD+1~, ADD+21*, ADD+22, REMOVE+1~, REMOVE+4*, REMOVE+5, REMOVE+6
, REMOVE+8, REMOVE+12
>> IOINHI BUILD+15
>> IOINORM BUILD+15
>> IOUOFF BUILD+17
>> IOUON BUILD+17
ITEM GETLIST+1~, GETLIST+5*, GETLIST+6, BUILD+1~, BUILD+21*, BUILD+22
LCNT BUILD+1~, BUILD+4*, BUILD+6*, BUILD+11*, BUILD+13, BUILD+14, BUILD+15, BUILD+17, BUILD+20*, BUILD+23
, BUILD+30, BUILD+35, BUILD+36*, BUILD+37
LIST BUILD~
>> LLCNT LENGTH+1*, LENGTH+2*, LENGTH+4, LENGTH+6, LENGTH+7
MODE BUILD~, BUILD+13
NAME HDR+1~, HDR+5*
NUM HDR+1~, HDR+2*, HDR+4, BUILD+1~, BUILD+4*, BUILD+6*, BUILD+12, BUILD+13, BUILD+37, REMOVE+1~
, REMOVE+3*, REMOVE+4
PSEQ BUILD+1~, BUILD+18*, BUILD+20
RT EXIT+7!, ADD+19*
SEQ ADD+1~, ADD+19*, ADD+20*, ADD+21, ADD+22, REMOVE+1~
TMPLST EXIT+7!
U HDR+3, HDR+5, GETLIST+5, BUILD+3, BUILD+7, BUILD+8, BUILD+11, BUILD+16, BUILD+21, BUILD+22
, BUILD+29, BUILD+37, EXIT+5, ADD+2, ADD+5, ADD+18, ADD+21, EDIT+2, REMOVE+2, REMOVE+5
, REMOVE+7, REMOVE+8
>> VALMBCK HELP+10*, ADD+17*, ADD+23*, ADQ*, EDQ*, REMOVE+1*, REMOVE+12*, RMQ*
>> VALMCC HELP+10, RMQ
>> VALMCNT BUILD+3*, BUILD+37*
>> VALMHDR(1 HDR+4*
>> VALMHDR(2 HDR+5*
>> VALMQUIT INIT+1*
>> VALMSG INIT+4*, HELP+10*, ADQ*, EDQ*, RMQ*
X HELP+1~, HELP+9*, ADD+15~, REMOVE+1~
Y ADD+15~, REMOVE+1~, REMOVE+11
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables  | All