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

Package: Problem List

Routine: GMPLBLD2


Information

GMPLBLD2 ; SLC/MKB,JFR,TC -- Bld PL Selection Lists cont ;07/19/17 13:32

Source Information

Source file <GMPLBLD2.m>

Call Graph

Call Graph

Call Graph Total: 14

Package Total Call Graph
VA FileMan 6 EN^DDIOL  (,$$FIND1)^DIC  (FILE,UPDATE)^DIE  ^DIK  $$GET1^DIQ  ^DIR  
Problem List 3 (BUILD,GETLIST,HDR)^GMPLBLD  (BUILD,GETLIST,HDR)^GMPLBLDC  $$MSG^GMPLX  
DRG Grouper 1 ($$CODECS,$$STATCHK)^ICDEX  
Kernel 1 $$DT^XLFDT  
Lexicon Utility 1 $$STATCHK^LEXSRC2  
List Manager 1 FULL^VALM1  
Toolkit 1 (EDIT,GETENT)^XPAREDIT  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

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

Caller Graph

Caller Graph Total: 15

Package Total Caller Graph
Problem List 12 GMPL ASSIGN LIST  GMPL MENU ASSIGN LIST  GMPL MENU DELETE GROUP  GMPL MENU NEW GROUP  GMPL MENU NEW LIST  GMPL MENU SAVE GROUP  GMPL MENU SAVE LIST  GMPLBLCK  
GMPLBLD  GMPLBLD3  GMPLBLDC  GMPLBLDF  
Kernel 1 ^ORD(101  
Order Entry Results Reporting 1 ORY429  
Toolkit 1 ^XTV(8989.51  

Entry Points

Name Comments DBIA/ICR reference
NL1
NLQ
CKSAVE() ; Save [changes] ??
LAST(ROOT) ; Returns last subscript
GROUP(L) ; Lookup into Problem Selection Group file #125.11
SAVLST ; Save changes to existing list
NEWLST ; Change selection lists
NEWGRP ; Change problem groups
DEL1 ; Ok, go for it ...
VALLIST(LIST,GMPLCODE) ;check all categories in list for probs w/ inactive SNOMED/ICD codes
; Input:
; LIST = ien from file 125
; GMPLCODE = Name of array where the categories & probs w/inactive codes are stored (Optional)
  • ICR #6735
    • Status: Active
    • Usage: Private
    NEW(GMPSFN,LIST,ITEM) ; Create new contents entry in subfile #125.01 or #125.111
    NGQ
    VALGRP(GMPLCAT,GMPLCODE) ; check all problems in the category for inactive SNOMED/ICD codes
    ; Input:
    ; GMPLCAT = ien from file 125.11
    ; GMPLCODE = Name of array where the categories & probs w/inactive codes are stored (Optional)
    SAVGRP ; Save changes to existing group
    LIST(L) ; Lookup into Problem Selection List file #125
    SAVE ; Save changes to group/list
    DELETE ; Delete problem group
    ASSIGN ; assign or remove selection list to users/clinic
    NG1

    External References

    Name Field # of Occurrence
    EN^DDIOL SAVGRP+18, SAVLST+18
    ^DIC GROUP+6, LIST+5
    $$FIND1^DIC ASSIGN+4
    FILE^DIE SAVGRP+14, SAVLST+14
    UPDATE^DIE NEW+9
    ^DIK SAVGRP+7, SAVLST+7, DEL1+5, DEL1+7
    $$GET1^DIQ VALGRP+17, ASSIGN+5
    ^DIR CKSAVE+4, SAVE+19, SAVE+35, DELETE+6
    BUILD^GMPLBLD NL1+4
    GETLIST^GMPLBLD NL1+4
    HDR^GMPLBLD NL1+4
    BUILD^GMPLBLDC NG1+4
    GETLIST^GMPLBLDC NG1+4
    HDR^GMPLBLDC NG1+4
    $$MSG^GMPLX NGQ, NLQ, ASSIGN+7
    $$CODECS^ICDEX SAVE+12, VALGRP+29
    $$STATCHK^ICDEX SAVE+13, VALGRP+33
    $$STATCHK^LEXSRC2 SAVE+9, VALGRP+28
    FULL^VALM1 NEWGRP+1, NEWLST+1, SAVE+15, SAVE+30, ASSIGN+3
    $$DT^XLFDT GROUP+2, LIST+2, SAVE+2, VALGRP+16
    EDIT^XPAREDIT ASSIGN+6
    GETENT^XPAREDIT ASSIGN+6

    Interaction Calls

    Name Line Occurrences
    Function Call: WRITE
    • Prompt: $C(7),!!,"This category is currently being edited by another user!",!
    • Line Location: NG1+2
    Function Call: WRITE
    • Prompt: $C(7),!!,"This list is currently being edited by another user!",!
    • Line Location: NL1+2
    Function Call: WRITE
    • Prompt: !!,$C(7),"This Group contains problems with inactive SNOMED or ICD codes associated"
    • Line Location: SAVE+16
    Function Call: WRITE
    • Prompt: !,"with them. The codes must be edited and corrected before the group can be saved."
    • Line Location: SAVE+17
    Function Call: WRITE
    • Prompt: !!,$C(7),"This Selection List contains problems with inactive SNOMED or ICD codes"
    • Line Location: SAVE+31
    Function Call: WRITE
    • Prompt: !,"associated with them. The codes must be edited and corrected before the"
    • Line Location: SAVE+32
    Function Call: WRITE
    • Prompt: !,"list can be saved."
    • Line Location: SAVE+33
    Function Call: WRITE
    • Prompt: !!,"Saving ..."
    • Line Location: SAVE+38
    Function Call: WRITE
    • Prompt: " done."
    • Line Location: SAVE+42
    Function Call: WRITE
    • Prompt: !,"Lock Error: error updating record #"_LIST_" in File #"_GMPFILE_"."
    • Line Location: NEW+8
    Function Call: WRITE
    • Prompt: !!,"Cannot make edits to a National category."
    • Line Location: DELETE+2
    Function Call: WRITE
    • Prompt: $C(7),!!,">>> This category belongs to at least one problem selection list!",!," CANNOT DELETE"
    • Line Location: DELETE+3
    Function Call: WRITE
    • Prompt: !!,"Deleting category items ..."
    • Line Location: DEL1+1
    Function Call: WRITE
    • Prompt: "."
    • Line Location: DEL1+5
    Function Call: WRITE
    • Prompt: "."
    • Line Location: DEL1+7
    Function Call: WRITE
    • Prompt: " <done>"
    • Line Location: DEL1+8
    Routine Call
    • DIE
    • Line Location:
      • NEW+9
    Routine Call
    • DIC
    • Line Location:
      • ASSIGN+4
    Routine Call
    • DIE
    • Line Location:
      • SAVGRP+14
      • SAVLST+14
    Routine Call
    • DIR
    • Line Location:
      • CKSAVE+4
      • SAVE+19
      • SAVE+35
      • DELETE+6
    Routine Call
    • DIC
    • Line Location:
      • GROUP+6
      • LIST+5

    FileMan Files Accessed Via FileMan Db Call

    FileNo Call Tags
    ^GMPL(125 - [#125] Classic Fileman Calls
    ^GMPL(125.11 - [#125.11] Classic Fileman Calls,  GET1^DIQ
    ^XTV(8989.51 - [#8989.51] FIND1^DIC,  GET1^DIQ

    Global Variables Directly Accessed

    Name Line Occurrences  (* Changed,  ! Killed)
    ^GMPL( NEW+7, NEW+10
    ^GMPL(125 - [#125] NL1+1, NL1+3, SAVLST+8, DELETE+3, VALLIST+17
    ^GMPL(125.11 - [#125.11] NG1+1, NG1+3, SAVGRP+8, DEL1+3, DEL1+4, DEL1+6!, DEL1+8, VALGRP+18, VALGRP+19, VALGRP+23
    ^TMP("GMPLIST" SAVE+6, SAVE+8, SAVE+10, SAVE+26, SAVE+40, SAVGRP+5, SAVGRP+6, SAVGRP+7, SAVGRP+9, SAVGRP+12
    , SAVGRP+13, SAVLST+5, SAVLST+6, SAVLST+7, SAVLST+9, SAVLST+12, SAVLST+13

    Label References

    Name Line Occurrences
    $$CKSAVE NEWGRP+2, NEWLST+2
    $$GROUP NG1
    $$LIST NL1
    $$VALGRP SAVE+27, VALLIST+19, VALLIST+20
    @( SAVE+40
    NEW SAVGRP+6, SAVLST+6
    NEWGRP DEL1+9
    NG1 NG1+1
    NGQ NG1
    NL1 NL1+1
    NLQ NL1
    SAVE NEWGRP+2, NEWLST+2

    Local Variables

    Legend:

    >> Not killed explicitly
    * Changed
    ! Killed
    ~ Newed

    Name Field # of Occurrence
    CODE SAVE+4~, SAVE+10*, SAVE+11, SAVE+12, SAVE+13
    DA SAVE+1~, SAVE+39*, SAVE+40*, SAVGRP+4, SAVGRP+5, SAVGRP+6, SAVGRP+7, SAVGRP+8, SAVGRP+9, SAVGRP+12
    , SAVGRP+13, SAVGRP+16, SAVLST+4, SAVLST+5, SAVLST+6, SAVLST+7, SAVLST+8, SAVLST+9, SAVLST+12, SAVLST+13
    , SAVLST+16, DELETE+1~, DEL1+5*, DEL1+7*
    DA(1 SAVGRP+2*, SAVLST+2*, DEL1+5*
    DIC GROUP+1~, GROUP+3*, LIST+1~, LIST+3*
    DIC("?N" GROUP+4*
    DIC("A" GROUP+3*, LIST+3*
    DIC("DR" GROUP+4*, LIST+4*
    DIC("S" GROUP+5*
    DIC(0 GROUP+3*, GROUP+4, LIST+3*, LIST+4
    DIK SAVGRP+1~, SAVGRP+2*, SAVLST+1~, SAVLST+2*, DELETE+1~, DEL1+5*, DEL1+7*
    DIR CKSAVE+1~, SAVE+18~, SAVE+34~, DELETE+1~
    DIR("?" CKSAVE+3*, DELETE+5*
    DIR("A" CKSAVE+2*, DELETE+4*
    DIR("B" CKSAVE+2*, DELETE+4*
    DIR(0 CKSAVE+4*, SAVE+19*, SAVE+35*, DELETE+4*
    DIRUT SAVE+18~, SAVE+34~
    DLAYGO GROUP+1~, GROUP+4*, LIST+1~, LIST+4*
    DTOUT LIST+5, SAVE+18~, SAVE+34~
    DUOUT LIST+5, SAVE+18~, SAVE+34~
    GMI SAVE+7~, SAVE+11*, SAVE+12, SAVE+13, VALGRP+20~, VALGRP+32*, VALGRP+33
    GMPCSYS VALGRP+21~, VALGRP+35*, VALGRP+36
    GMPDT GROUP+1~, GROUP+2*, GROUP+4, LIST+1~, LIST+2*, LIST+4, SAVE+1~, SAVE+2*, SAVE+9, SAVE+12
    , SAVE+13, VALGRP+15~, VALGRP+16*, VALGRP+28, VALGRP+29, VALGRP+33
    GMPERR SAVGRP+1~, SAVGRP+15, SAVLST+1~, SAVLST+15, NEW+1~
    GMPERR("DIERR" SAVGRP+17, SAVLST+17
    GMPFDA SAVGRP+1~, SAVLST+1~, NEW+1~
    GMPFDA( SAVGRP+13*, SAVLST+13*, NEW+6*
    GMPFILE NEW+1~, NEW+2*, NEW+7, NEW+8, NEW+10
    GMPICD VALGRP+20~, VALGRP+22*, VALGRP+33*, VALGRP+34, VALGRP+35
    GMPJ SAVGRP+1~, SAVGRP+11*, SAVGRP+13, SAVLST+1~, SAVLST+11*, SAVLST+13, NEW+1~, NEW+5*, NEW+6
    GMPJUST1 ASSIGN+2~, ASSIGN+6
    GMPLCAT VALGRP~, VALGRP+14, VALGRP+17, VALGRP+18, VALGRP+19, VALGRP+23, VALLIST+16*, VALLIST+17*, VALLIST+19, VALLIST+20
    GMPLCLBL VALGRP+21~, VALGRP+30*, VALGRP+36
    GMPLCNME VALGRP+15~, VALGRP+17*, VALGRP+36
    GMPLCODE VALGRP~, VALGRP+34, VALGRP+36, VALGRP+38, VALLIST~, VALLIST+18, VALLIST+19, VALLIST+22
    GMPLCPTR SAVE+12~*, SAVE+13, VALGRP+21~, VALGRP+30*, VALGRP+33
    GMPLDA DELETE+1~, DEL1+2*, DEL1+4*, DEL1+5, VALGRP+15~, VALGRP+16*, VALGRP+19*, VALGRP+23
    GMPLDTXT VALGRP+21~, VALGRP+24*, VALGRP+36, ASSIGN+2~, ASSIGN+5*
    GMPLENT ASSIGN+2~, ASSIGN+6
    >> GMPLGRP NG1, NG1+3*, CKSAVE+1, SAVE+3, SAVE+23, SAVE+39, SAVE+41, SAVGRP+2, SAVGRP+6, SAVGRP+8
    , SAVGRP+13, SAVGRP+16, DELETE+2, DELETE+3, DELETE+4, DEL1+3, DEL1+4, DEL1+5, DEL1+6, DEL1+7
    , DEL1+8*, DEL1+9
    GMPLICD VALGRP+20~, VALGRP+25*, VALGRP+26, VALGRP+29, VALGRP+31, VALGRP+32, VALGRP+33, VALGRP+36
    GMPLICDS VALGRP+21~, VALGRP+29*, VALGRP+30
    GMPLIEN VALLIST+14~
    >> GMPLMODE NG1+4, NL1+4
    GMPLPAR ASSIGN+2~, ASSIGN+4*, ASSIGN+5*, ASSIGN+6
    GMPLQT SAVE+1~, SAVE+2*, SAVE+3, SAVE+6, SAVE+9*, SAVE+13*, SAVE+14, SAVE+20*, SAVE+23, SAVE+26
    , SAVE+28*, SAVE+29, SAVE+36*
    GMPLSAVE NEWGRP+2, NEWLST+2, SAVE+41!, DEL1+8!
    GMPLSCTC VALGRP+20~, VALGRP+25*, VALGRP+26, VALGRP+27, VALGRP+28
    GMPLSEQ DELETE+1~, DEL1+2*, DEL1+3*, DEL1+4, VALGRP+15~, VALGRP+16*, VALGRP+18*, VALGRP+19, VALGRP+36
    >> GMPLSLST NL1, NL1+3*, SAVE+23, SAVLST+2, SAVLST+6, SAVLST+8, SAVLST+13, SAVLST+16
    GMPLTXT SAVGRP+1~, SAVGRP+18, SAVLST+18
    GMPLTXT(1 SAVGRP+16*, SAVLST+16*
    GMPLTXT(2 SAVGRP+17*, SAVLST+17*
    GMPLVAL VALLIST+14~, VALLIST+16*, VALLIST+19*, VALLIST+20*, VALLIST+22*, VALLIST+23
    GMPLVALC VALGRP+15~, VALGRP+16*, VALGRP+28*, VALGRP+33*, VALGRP+38*, VALGRP+39
    GMPLX VALGRP+20~, VALGRP+23*, VALGRP+24, VALGRP+25
    GMPNF NEW+1~, NEW+3*, NEW+4
    >> GMPSAVED SAVE+41*
    GMPSCT VALGRP+20~, VALGRP+22*, VALGRP+28*, VALGRP+34, VALGRP+35
    GMPSCTC SAVE+7~, SAVE+8*, SAVE+9
    GMPSFN SAVGRP+1~, SAVGRP+3*, SAVGRP+6, SAVLST+1~, SAVLST+3*, SAVLST+6, NEW~, NEW+2, NEW+3, NEW+6
    GRP SAVE+24~, SAVE+25*, SAVE+26*, SAVE+27
    I LAST+1~*, LAST+2*, SAVGRP+1~, SAVGRP+10*, SAVGRP+11, SAVGRP+12, SAVGRP+13, SAVLST+1~, SAVLST+10*, SAVLST+11
    , SAVLST+12, SAVLST+13, NEW+1~, NEW+4*, NEW+5, NEW+6
    IFN DELETE+1~
    ITEM SAVGRP+1~, SAVGRP+8*, SAVGRP+9, SAVGRP+12, SAVLST+1~, SAVLST+8*, SAVLST+9, SAVLST+12, NEW~, NEW+6
    ITM SAVE+4~, SAVE+5*, SAVE+6*, SAVE+8, SAVE+10
    J LAST+1~*, LAST+2*, LAST+3
    L GROUP~, GROUP+3, LIST~, LIST+3
    LABEL SAVE+1~, SAVE+39*, SAVE+40
    LIST NEW~, NEW+6, NEW+7, NEW+8, NEW+10, VALLIST~, VALLIST+15, VALLIST+17
    NEWGRP NEWGRP+1~, NG1*, NG1+1, NG1+3
    NEWLST NEWLST+1~, NL1*, NL1+1, NL1+3
    ROOT LAST~, LAST+2
    TEXT CKSAVE+1~*, CKSAVE+2, CKSAVE+3
    TMPITEM SAVGRP+1~, SAVGRP+6*
    TMPLST SAVLST+1~, SAVLST+6*
    U GROUP+6, LIST+5, SAVE+8, SAVE+10, SAVE+12, SAVGRP+12, SAVGRP+13, SAVLST+12, SAVLST+13, NEW+6
    , DELETE+2, DELETE+4, VALGRP+24, VALGRP+25, VALGRP+30, VALGRP+36, VALGRP+38, VALLIST+22, ASSIGN+5
    >> VALMBCK NGQ*, NLQ*, SAVE+20*, SAVE+36*, SAVE+42*, DELETE+1*, DEL1+9*, ASSIGN+7*
    >> VALMCC DELETE+1, ASSIGN+3, ASSIGN+7
    >> VALMSG NGQ*, NLQ*, ASSIGN+7*
    X GROUP+1~, LIST+1~, CKSAVE+1~, DELETE+1~
    Y GROUP+1~, GROUP+6*, GROUP+7, LIST+1~, LIST+5*, LIST+6, CKSAVE+1~, CKSAVE+5, DELETE+1~, DELETE+6
    Y(0 GROUP+6, LIST+5
    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