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
Print Page as PDF
Routine: GMPLBLDC

Package: Problem List

Routine: GMPLBLDC


Information

GMPLBLDC ; SLC/MKB,TC -- Build Problem Selection Categories ;09/20/17 11:56

Source Information

Source file <GMPLBLDC.m>

Entry Points

Name Comments DBIA/ICR reference
EN ; -- main entry point for GMPL SELECTION GROUP BUILD
HDR ; -- header code
INIT ; -- init variables and list array
GETLIST ; Build ^TMP("GMPLIST",$J,#) of problems
BUILD(LIST,MODE) ; Build ^TMP("GMPLST",$J,) of current items in LIST for display
HELP ; -- help code
EXIT ; -- exit code
ADD ; Add new problem(s)
ASKAG
COPY ; Copy an existing category into a new category
REMOVE ; Remove problem from group
RMQ
EDIT ; Edit problem text and code
EDQ
DUPL(Y,TEXT) ; Check for Duplicates within problem selection list category
DUPLX

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: $C(7),!!,"This category is currently being edited by another user!",!
  • Line Location: INIT+3
Function Call: WRITE
  • Prompt: !,"Searching for the problems ..."
  • Line Location: GETLIST+2
Function Call: WRITE
  • Prompt: !!?4,"You may take a variety of actions from this prompt. To update"
  • Line Location: HELP+2
Function Call: WRITE
  • Prompt: !?4,"this category you may add new problems or remove an existing"
  • Line Location: HELP+3
Function Call: WRITE
  • Prompt: !?4,"one; you may also change the text or code displayed, or the order"
  • Line Location: HELP+4
Function Call: WRITE
  • Prompt: !?4,"in which each problem is displayed. Select View w/wo Seq Numbers"
  • Line Location: HELP+5
Function Call: WRITE
  • Prompt: !?4,"to toggle seeing the sequence number in addition to the display"
  • Line Location: HELP+6
Function Call: WRITE
  • Prompt: !?4,"number per problem. If necessary, the current category may be"
  • Line Location: HELP+7
Function Call: WRITE
  • Prompt: !?4,"deleted; you may change to a different category to continue editing."
  • 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 category."
  • Line Location: ADD+3
Function Call: WRITE
  • Prompt: !!
  • Line Location: ADD+5
Function Call: WRITE
  • Prompt: !,X,!,"is already on the selection list. Please enter another search term to add."
  • Line Location: ASKAG+7
Function Call: WRITE
  • Prompt: !,X,!,"has an inactive ICD code. Please enter another search term to add."
  • Line Location: ASKAG+18
Function Call: WRITE
  • Prompt: !!," DISPLAY TEXT: "_X
  • Line Location: ASKAG+31
Function Call: WRITE
  • Prompt: !!,"Cannot make edits to a National category."
  • Line Location: REMOVE+2
Function Call: WRITE
  • Prompt: $C(7),!!,"Problem does not exist in this category!"
  • Line Location: REMOVE+5
Function Call: WRITE
  • Prompt: !?5,"< Nothing removed! >"
  • Line Location: REMOVE+6
Function Call: WRITE
  • Prompt: !!,"Cannot make edits to a National category."
  • Line Location: EDIT+2
Function Call: WRITE
  • Prompt: !
  • Line Location: EDIT+4
Function Call: WRITE
  • Prompt: $C(7),!!,"Problem #"_NUM_" does not exist in this category!"
  • Line Location: EDIT+7
Function Call: WRITE
  • Prompt: !!,">>> Problem #"_NUM
  • Line Location: EDIT+8
Function Call: WRITE
  • Prompt: " = "_$G(^LEX(757.01,+$P(PROBLEM,U,1),0))
  • Condition for execution: $P(PROBLEM,U,1)>1
  • Line Location: EDIT+9
Function Call: WRITE
  • Prompt: !
  • Line Location: EDIT+9
Info |  Source |  Entry Points |  Interaction Calls