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

Package: Problem List

Routine: GMPLBLD


Information

GMPLBLD ; SLC/MKB -- Build Problem Selection Lists ;09/22/11 15:14

Source Information

Source file <GMPLBLD.m>

Call Graph

Call Graph Total: 9

Package Total Call Graph
Problem List 3 ($$HDR,$$SEL1,$$SEQ,$$TMPIFN,DELETE)^GMPLBLD1  ($$CKSAVE,$$GROUP,$$LAST,$$LIST,$$VALGRP,SAVE)^GMPLBLD2  $$MSG^GMPLX  
Registration 3 EN^VALM  FULL^VALM1  (CLEAN,CNTRL)^VALM10  
DRG Grouper 1 $$STATCHK^ICDAPIU  
Kernel 1 $$FMTE^XLFDT  
VA Fileman 1 ^DIR  

Caller Graph

Caller Graph Total: 3

Package Total Caller Graph
Problem List 3 GMPL BUILD SELECTION LIST  GMPLBLD1  GMPLBLD2  

Entry Points

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

External References

Name Field # of Occurrence
^DIR ADD+10, REMOVE+7
$$HDR^GMPLBLD1 ADD+12
$$SEL1^GMPLBLD1 REMOVE+2
$$SEQ^GMPLBLD1 ADD+14
$$TMPIFN^GMPLBLD1 ADD+15
DELETE^GMPLBLD1 REMOVE+9
$$CKSAVE^GMPLBLD2 EXIT+1
$$GROUP^GMPLBLD2 ADD+3
$$LAST^GMPLBLD2 ADD+13
$$LIST^GMPLBLD2 INIT+1
$$VALGRP^GMPLBLD2 ADD+5
SAVE^GMPLBLD2 EXIT+2
$$MSG^GMPLX INIT+4, HELP+10, ADD+18, EDIT+5, RMQ
$$STATCHK^ICDAPIU BUILD+21
EN^VALM EN+1, EDIT+2
FULL^VALM1 ADD+1, ADD+6
CLEAN^VALM10 BUILD+1
CNTRL^VALM10 BUILD+11, BUILD+13
$$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: !
  • Line Location: ADD+2
Function Call: WRITE
  • Prompt: !?4,">>> This category is already part of this list!"
  • Line Location: ADD+4
Function Call: WRITE
  • Prompt: !!,$C(7),"This category contains one or more problems with inactive ICD-9 codes. "
  • Line Location: ADD+7
Function Call: WRITE
  • Prompt: !,"These codes must be updated before adding the category to a selection list."
  • Line Location: ADD+8
Function Call: WRITE
  • Prompt: $C(7),!!,"Category is not part of this list!"
  • Line Location: REMOVE+4
Function Call: WRITE
  • Prompt: !?5,"< Nothing removed! >"
  • Line Location: REMOVE+8
Routine Call
  • VALM
  • Line Location:
    • EN+1
    • EDIT+2
Routine Call
  • DIR
  • Line Location:
    • ADD+10
    • REMOVE+7

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^GMPL(125 - [#125] INIT+2, EXIT+3*, EXIT+4
^GMPL(125.1 - [#125.1] GETLIST+3, GETLIST+4
^GMPL(125.12 - [#125.12] BUILD+14, BUILD+15, BUILD+16
^TMP("GMPLIST" GETLIST+1!, GETLIST+5*, GETLIST+6*, GETLIST+7*, BUILD+2*, BUILD+3, BUILD+5, BUILD+6, BUILD+7, BUILD+9
, BUILD+12, EXIT+6!, ADD+4, ADD+15*, ADD+16*, REMOVE+4, REMOVE+5
^TMP("GMPLST" HDR+2, BUILD+3*, BUILD+9*, BUILD+10*, BUILD+16*, BUILD+19*, BUILD+22*, BUILD+23*, BUILD+24*, EXIT+6!
, REMOVE+3, LENGTH+2, LENGTH+4, LENGTH+6, LENGTH+7*

Label References

Name Line Occurrences
BUILD INIT+5, ADD+17, EDIT+4, REMOVE+10
GETLIST INIT+5, EDIT+4
HDR ADD+17, REMOVE+10
INIT INIT+2
LENGTH INIT+6
RMQ REMOVE+2, REMOVE+3, REMOVE+4, REMOVE+8

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
CNT GETLIST+1~*, GETLIST+5*, GETLIST+7
DATE HDR+1~, HDR+3*, HDR+4
DIR ADD+9~, REMOVE+1~
DIR("?" REMOVE+6*
DIR("A" REMOVE+5*
DIR("B" REMOVE+7*
DIR(0 ADD+10*, REMOVE+7*
DIRUT ADD+9~
DT BUILD+21, EXIT+3
DTIME HELP+9
DTOUT ADD+9~
DUOUT ADD+9~
GMI BUILD+18~, BUILD+20*, BUILD+21
GMPLGRP EDIT+1~
GMPLIST EXIT+5!, EDIT+1~
GMPLMODE INIT+4*, INIT+5, EXIT+5!, ADD+17, EDIT+1~, EDIT+3*, EDIT+4, REMOVE+10
GMPLSAVE EXIT+1, EXIT+5!, ADD+17*, EDIT+1~, REMOVE+9*
GMPLSLST HDR+3, HDR+5, INIT+1*, INIT+2, GETLIST+3, EXIT+3, EXIT+4, EXIT+5!
GMPLST EXIT+5!, EDIT+1~
GMPQUIT EXIT+5!, ADD+1~, ADD+2, ADD+3*, ADD+12*, ADD+14*
GMPREBLD EXIT+5!, ADD+1~, ADD+16*, ADD+17
GROUP BUILD+1~, BUILD+7*, BUILD+14, BUILD+15, ADD+1~, ADD+3*, ADD+4, ADD+5, ADD+12, ADD+15
, ADD+16
GRP GETLIST+1~, GETLIST+4*, GETLIST+6, REMOVE+1~
HDR BUILD+1~, BUILD+7*, BUILD+8*, BUILD+10, BUILD+13, ADD+1~, ADD+12*, ADD+15
>> ICD9VAR LENGTH+4*, LENGTH+5*, LENGTH+6*, LENGTH+7
IFN GETLIST+1~, GETLIST+3*, GETLIST+4, GETLIST+5, GETLIST+6, BUILD+1~, BUILD+6*, BUILD+7, BUILD+9, BUILD+10
, BUILD+12, BUILD+15*, BUILD+16, ADD+1~, ADD+15*, ADD+16, REMOVE+1~, REMOVE+3*, REMOVE+4, REMOVE+5
, REMOVE+9
>> IOINHI BUILD+11
>> IOINORM BUILD+11
>> IOUOFF BUILD+13
>> IOUON BUILD+13
ITEM GETLIST+1~, GETLIST+4*, GETLIST+5, BUILD+1~, BUILD+16*, BUILD+17, BUILD+19, BUILD+20, BUILD+21
LCNT BUILD+1~, BUILD+4*, BUILD+6*, BUILD+9*, BUILD+10, BUILD+11, BUILD+13, BUILD+15*, BUILD+16, BUILD+19
, BUILD+22, BUILD+23*, BUILD+24
LIST BUILD~
>> LLCNT LENGTH+1*, LENGTH+2*, LENGTH+4, LENGTH+6, LENGTH+7
MODE BUILD~, BUILD+10
NAME HDR+1~, HDR+5*
NUM HDR+1~, HDR+2*, HDR+4, BUILD+1~, BUILD+4*, BUILD+6*, BUILD+10, BUILD+24, REMOVE+1~, REMOVE+2*
, REMOVE+3
PSEQ BUILD+1~, BUILD+14*, BUILD+15
RT EXIT+5!, ADD+13*
SEQ GETLIST+1~, GETLIST+4*, GETLIST+6, BUILD+1~, BUILD+4*, BUILD+5*, BUILD+6, BUILD+10, ADD+1~, ADD+13*
, ADD+14*, ADD+15, ADD+16, REMOVE+1~
TMPLST EXIT+5!
U HDR+3, HDR+5, GETLIST+4, GETLIST+5, BUILD+3, BUILD+7, BUILD+9, BUILD+12, BUILD+16, BUILD+17
, BUILD+19, BUILD+20, BUILD+21, BUILD+24, EXIT+3, ADD+12, ADD+15, REMOVE+5
>> VALMBCK HELP+10*, ADD+11*, ADD+17*, ADD+18*, EDIT+5*, REMOVE+1*, REMOVE+9*, RMQ*
>> VALMCC HELP+10, RMQ
>> VALMCNT BUILD+3*, BUILD+24*
>> VALMHDR(1 HDR+4*
>> VALMHDR(2 HDR+5*
>> VALMQUIT INIT+1*
>> VALMSG INIT+4*, HELP+10*, ADD+18*, EDIT+5*, RMQ*
X HELP+1~, HELP+9*, ADD+9~, REMOVE+1~
Y ADD+9~, REMOVE+1~, REMOVE+8
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables |  All