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

Call Graph

Call Graph

Call Graph Total: 14

Package Total Call Graph
Lexicon Utility 4 LOOK^LEXA  $$STATCHK^LEXSRC2  $$GETSYN^LEXTRAN1  ($$IMPDATE,$$ONE)^LEXU  
Problem List 4 ($$CODE,$$SEL,$$SEL1,$$SEQ,$$TEXT,$$TMPIFN,DELETE)^GMPLBLD1  ($$CKSAVE,$$GROUP,$$LAST,SAVE)^GMPLBLD2  COPYCAT^GMPLCOPY  ($$MSG,$$STRIPSPC,$$SURE,EXP2CODE,SEARCH)^GMPLX  
List Manager 3 EN^VALM  FULL^VALM1  (CLEAN,CNTRL)^VALM10  
Kernel 2 ($$DT,$$FMTE,$$NOW)^XLFDT  $$UP^XLFSTR  
DRG Grouper 1 ($$CODECS,$$STATCHK)^ICDEX  

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

Package Total Caller Graph
Problem List 9 GMPL MENU ADD PROBLEM  GMPL MENU COPY GROUP  GMPL MENU EDIT PROBLEM  GMPL MENU REMOVE PROBLEM  GMPL MENU RESEQUENCE PROBLEMS  GMPL MENU SAVE GROUP  GMPL MENU VIEW GROUP  GMPL SELECTION GROUP BUILD  
GMPLBLD2  
Kernel 1 ^ORD(101  

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

External References

Name Field # of Occurrence
$$CODE^GMPLBLD1 ASKAG+32, EDIT+12
$$SEL^GMPLBLD1 EDIT+3
$$SEL1^GMPLBLD1 REMOVE+3
$$SEQ^GMPLBLD1 ASKAG+34
$$TEXT^GMPLBLD1 EDIT+10
$$TMPIFN^GMPLBLD1 ASKAG+35
DELETE^GMPLBLD1 REMOVE+7, EDIT+11
$$CKSAVE^GMPLBLD2 EXIT+2
$$GROUP^GMPLBLD2 INIT+1
$$LAST^GMPLBLD2 ASKAG+33
SAVE^GMPLBLD2 EXIT+4
COPYCAT^GMPLCOPY COPY+2
$$MSG^GMPLX INIT+4, HELP+10, ASKAG+39, COPY+4, RMQ, EDQ
$$STRIPSPC^GMPLX ASKAG+24, ASKAG+27, ASKAG+30
$$SURE^GMPLX REMOVE+6
EXP2CODE^GMPLX DUPL+6
SEARCH^GMPLX ASKAG+3
$$CODECS^ICDEX BUILD+15, BUILD+17, ASKAG+13, ASKAG+16
$$STATCHK^ICDEX BUILD+18, ASKAG+14, ASKAG+17
LOOK^LEXA DUPL+35
$$STATCHK^LEXSRC2 BUILD+12
$$GETSYN^LEXTRAN1 ASKAG+22
$$IMPDATE^LEXU ADD+4, DUPL+5
$$ONE^LEXU ASKAG+21
EN^VALM EN+1
FULL^VALM1 ADD+1, EDIT+1
CLEAN^VALM10 BUILD+1
CNTRL^VALM10 BUILD+22
$$DT^XLFDT BUILD+3, EXIT+3, ASKAG+4
$$FMTE^XLFDT HDR+2
$$NOW^XLFDT DUPL+4
$$UP^XLFSTR DUPL+37, DUPL+38

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
Routine Call
  • VALM
  • Line Location:
    • EN+1

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^GMPL(125.11 - [#125.11] INIT+2, GETLIST+4, GETLIST+5, GETLIST+6, EXIT+5*, EXIT+6
^LEX(757.01 - [#757.01] EDIT+9
^TMP("GMPLIST" GETLIST+1!, GETLIST+8*, GETLIST+9*, GETLIST+10*, BUILD+2, BUILD+4, BUILD+7, BUILD+8, BUILD+9, EXIT+9!
, ASKAG+35*, ASKAG+36*, ASKAG+37*, REMOVE+5, EDIT+7, EDIT+8, EDIT+13*, DUPL+3, DUPL+10, DUPL+12
^TMP("GMPLST" HDR+1, BUILD+2*, BUILD+10*, BUILD+15*, BUILD+21*, BUILD+23*, BUILD+24*, EXIT+9!, REMOVE+4, EDIT+6

Label References

Name Line Occurrences
$$DUPL ASKAG+6
ASKAG ASKAG+7, ASKAG+18
BUILD INIT+5, ASKAG+38, COPY+5, REMOVE+8, EDIT+14
DUPLX DUPL+3
EDQ EDIT+2, EDIT+3
GETLIST INIT+5, COPY+5
HDR ASKAG+38, COPY+5, REMOVE+8
INIT INIT+2
RMQ REMOVE+2, REMOVE+3, REMOVE+4, REMOVE+5, REMOVE+6

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
CNT GETLIST+1~*, GETLIST+8*, GETLIST+10
CODE EDIT+1~, EDIT+12*, EDIT+13
DA DUPL+1~, DUPL+2*, DUPL+10, DUPL+24*, DUPL+27*, DUPL+29*, DUPL+33*, DUPL+38*, DUPL+40*, DUPLX
DATE HDR+1~, HDR+2*, HDR+3
DTIME HELP+9
EXPTXT DUPL+11~, DUPL+36*, DUPL+38
GMI BUILD+5~, BUILD+16*, BUILD+17, BUILD+18
GMPCODE ASKAG+12~*, ASKAG+13, ASKAG+14, DUPL+1~, DUPL+6, DUPL+7, DUPL+8
GMPCSNME ASKAG+10~, ASKAG+13*, ASKAG+16*
GMPCSPTR ASKAG+10~, ASKAG+13*, ASKAG+14, ASKAG+16*, ASKAG+17
GMPCSREC ASKAG+10~, ASKAG+13*, ASKAG+16*
GMPCSYS BUILD+5~, BUILD+20*, BUILD+21
GMPDT BUILD+1~, BUILD+3*, BUILD+12, BUILD+15, BUILD+17, BUILD+18, EXIT+1~, EXIT+3*, EXIT+5, ASKAG+1~
, ASKAG+4*, ASKAG+9, ASKAG+13, ASKAG+14, ASKAG+16, ASKAG+17, ASKAG+21, ASKAG+22
GMPICD BUILD+5~, BUILD+6*, BUILD+19*, BUILD+20
GMPICDC BUILD+5~, BUILD+9*, BUILD+14, BUILD+15, BUILD+16, BUILD+17, BUILD+18
GMPIFN BUILD+1~, BUILD+7*, BUILD+8, BUILD+9, BUILD+23
GMPIMPDT ADD+1~, ADD+4*, ASKAG+9
GMPLCODE ASKAG~, ASKAG+32*, ASKAG+36
GMPLCPTR BUILD+5~, BUILD+17~*, BUILD+18
GMPLCSYS BUILD+5~
GMPLDA GETLIST+1~, GETLIST+3*, GETLIST+5*, GETLIST+6, GETLIST+8, GETLIST+9
GMPLDUP ASKAG+1~, ASKAG+6*, ASKAG+7
GMPLGRP HDR+2, HDR+4, INIT+1*, INIT+2, GETLIST+4, GETLIST+5, GETLIST+6, EXIT+5, EXIT+6, EXIT+7!
, ADD+3, COPY+3*, REMOVE+2, EDIT+2
GMPLI ASKAG+10~, ASKAG+11*, ASKAG+12
GMPLICD ASKAG+1~, ASKAG+8*, ASKAG+9*, ASKAG+11, ASKAG+12, ASKAG+16, ASKAG+17
GMPLIFN ASKAG~, ASKAG+35*, ASKAG+36, ASKAG+37
GMPLIST EXIT+7!
GMPLMODE INIT+4*, INIT+5, EXIT+7!, ASKAG+38, COPY+5, REMOVE+8, EDIT+14
GMPLRSLT ASKAG+10~, ASKAG+22*, ASKAG+23
GMPLRT1 ASKAG+10~, ASKAG+33*
GMPLSAVE EXIT+2, EXIT+7!, ASKAG+38*, REMOVE+7*, EDIT+14*
GMPLSCTC ASKAG~, ASKAG+2*, ASKAG+21*, ASKAG+22, ASKAG+32, ASKAG+36
GMPLSCTD ASKAG~, ASKAG+2*, ASKAG+23*, ASKAG+27*, ASKAG+28, ASKAG+30*, ASKAG+36
GMPLSCTT ASKAG~, ASKAG+2*, ASKAG+20*, ASKAG+24*, ASKAG+27, ASKAG+30
GMPLSEQ ASKAG~, ASKAG+33*, ASKAG+34*, ASKAG+36, ASKAG+37
GMPLST EXIT+7!
GMPLTERM ASKAG+1~, ASKAG+8*, ASKAG+21
GMPNOW DUPL+1~, DUPL+4*, DUPL+5
GMPNUM ASKAG+1~, ASKAG+2*, ASKAG+26*, ASKAG+27, ASKAG+28
GMPOTHR DUPL+1~, DUPL+5*, DUPL+26, DUPL+40
GMPQT ASKAG+1~, ASKAG+2*, ASKAG+25, ASKAG+26, ASKAG+27*, ASKAG+28*, ASKAG+29, ASKAG+30*
GMPQUIT EXIT+7!, ADD+1~, ADD+5, ASKAG+5*, ASKAG+32*, ASKAG+34*, EDIT+1~, EDIT+4, EDIT+10*, EDIT+12*
GMPREBLD EXIT+7!, ADD+1~, ASKAG+37*, ASKAG+38, EDIT+1~, EDIT+11*, EDIT+13*, EDIT+14
GMPROB ASKAG+1~, ASKAG+7*
GMPSCT BUILD+5~, BUILD+6*, BUILD+13*, BUILD+20
GMPSCTC BUILD+5~, BUILD+9*, BUILD+11, BUILD+12
GMPSEQ GETLIST+1~, GETLIST+3*, GETLIST+4*, GETLIST+5, GETLIST+9, BUILD+1~, BUILD+3*, BUILD+4*, BUILD+7, BUILD+10
GMPSRC DUPL+1~, DUPL+6, DUPL+7, DUPL+8, DUPL+16, DUPL+31
GMPSTAT ASKAG+10~, ASKAG+11, ASKAG+12*, ASKAG+14*, ASKAG+16*, ASKAG+17*, ASKAG+18
GMPSYN ASKAG+1~, ASKAG+39!
GMPSYN( ASKAG+25, ASKAG+26, ASKAG+27, ASKAG+30
GMPTYP ASKAG+1~, ASKAG+2*, ASKAG+25*, ASKAG+26, ASKAG+27, ASKAG+30
GMPVAL COPY+1~, COPY+2, COPY+3
GMPVOCAB ADD+1~, ADD+2*, ASKAG+3
I DUPL+19~*, DUPL+20
ICDEXT DUPL+11~, DUPL+13*, DUPL+18, DUPL+19, DUPL+20, DUPL+31
ICDNEW DUPL+1~, DUPL+8*, DUPL+16, DUPL+18, DUPL+21, DUPL+22, DUPL+26, DUPL+31
IFN REMOVE+1~, REMOVE+4*, REMOVE+5, REMOVE+7, EDIT+1~, EDIT+6*, EDIT+7, EDIT+8, EDIT+11, EDIT+13
, DUPL+1~, DUPL+9*, DUPL+10*, DUPL+12, DUPL+24, DUPL+27, DUPL+29, DUPL+33, DUPL+38, DUPL+40
>> IOINHI BUILD+22
>> IOINORM BUILD+22
ITEM GETLIST+1~, GETLIST+6*, GETLIST+8, BUILD+1~
J DUPL+19~*, DUPL+20*
K DUPL+21~*, DUPL+22
L DUPL+21~*, DUPL+22*, DUPL+23
LCNT BUILD+1~, BUILD+3*, BUILD+6*, BUILD+10, BUILD+15, BUILD+21, BUILD+22, BUILD+24
>> LEX DUPL+38
>> LEX("LIST" DUPL+36
LIST BUILD~
MODE BUILD~, BUILD+10
NAME HDR+1~, HDR+4*
NUM HDR+1~*, HDR+3, BUILD+1~, BUILD+3*, BUILD+6*, BUILD+10, BUILD+23, BUILD+24, REMOVE+1~, REMOVE+3*
, REMOVE+4, EDIT+1~, EDIT+5*, EDIT+6, EDIT+7, EDIT+8
PICDEXT DUPL+11~, DUPL+13*, DUPL+24, DUPL+29, DUPL+40
PICDNEW DUPL+1~, DUPL+8*, DUPL+24, DUPL+26, DUPL+29, DUPL+40
PIECE EDIT+1~, EDIT+4*, EDIT+5
PROB GETLIST+1~, GETLIST+6*, GETLIST+9, BUILD+1~, BUILD+8*, EDIT+1~, EDIT+10*, EDIT+11, EDIT+13
PROBLEM EDIT+1~, EDIT+8*, EDIT+9, EDIT+10, EDIT+12, EDIT+13
RT1 EXIT+7!
SCTCEXT DUPL+11~, DUPL+12*, DUPL+16, DUPL+24, DUPL+27, DUPL+29, DUPL+31
SCTCNEW DUPL+1~, DUPL+7*, DUPL+16, DUPL+24, DUPL+27, DUPL+29
SEL EDIT+1~, EDIT+3*, EDIT+4, EDIT+5
SICDEXT DUPL+19~
SICDEXT( DUPL+20*, DUPL+24
SICDNEW DUPL+21~
SICDNEW( DUPL+22*, DUPL+24
SLST DUPL+11~, DUPL+12*, DUPL+13, DUPL+14
T DUPL+23~*, DUPL+24
TERMEXT DUPL+11~, DUPL+14*, DUPL+33, DUPL+35
TEXT BUILD+1~, BUILD+8*, BUILD+10, DUPL~, DUPL+7, DUPL+37*, DUPL+38
TMPITEM EXIT+7!
U HDR+2, HDR+4, GETLIST+6, BUILD+2, BUILD+8, BUILD+9, BUILD+15, BUILD+17, BUILD+24, EXIT+5
, ADD+3, ASKAG+13, ASKAG+16, ASKAG+27, ASKAG+30, ASKAG+36, REMOVE+2, REMOVE+4, EDIT+2, EDIT+6
, EDIT+9, EDIT+10, EDIT+12, EDIT+13, DUPL+12, DUPL+13, DUPL+14, DUPL+36
VALMBCK HELP+10*, EXIT+8!, ADD+1*, ASKAG+38*, ASKAG+39*, COPY+4*, REMOVE+1*, REMOVE+7*, RMQ*, EDIT+1*
, EDIT+14*, EDQ*
>> VALMCC HELP+10, RMQ, EDQ
VALMCNT BUILD+2*, BUILD+24*, EXIT+8!
VALMHDR EXIT+8!
VALMHDR(1 HDR+3*
VALMHDR(2 HDR+4*
>> VALMQUIT INIT+1*
VALMSG INIT+4*, HELP+10*, EXIT+8!, ASKAG+39*, COPY+4*, RMQ*, EDQ*
X HELP+1~, HELP+9*, ASKAG~, ASKAG+2*, ASKAG+3, ASKAG+6, ASKAG+7, ASKAG+18, ASKAG+19, ASKAG+20
, ASKAG+31, ASKAG+36
Y ASKAG~, ASKAG+2*, ASKAG+3, ASKAG+5, ASKAG+6, ASKAG+7*, ASKAG+8, ASKAG+36, ASKAG+37, DUPL~
, DUPL+6, DUPL+33
Y(1 ASKAG+8, ASKAG+32, DUPL+8
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables  | All