Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call
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>

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

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

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^GMPL(125.11 - [#125.11] GET1^DIQ
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call