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 -- Bld PL Selection Lists cont ;09/21/11 16:33

Source Information

Source file <GMPLBLD2.m>

Call Graph

Call Graph Total: 10

Package Total Call Graph
Problem List 4 (BUILD,GETLIST,HDR)^GMPLBLD  USERS^GMPLBLD3  (BUILD,GETLIST,HDR)^GMPLBLDC  $$MSG^GMPLX  
VA Fileman 4 ^DIC  ^DIE  (,IX1)^DIK  ^DIR  
DRG Grouper 1 $$STATCHK^ICDAPIU  
Registration 1 FULL^VALM1  

Caller Graph

Caller Graph Total: 7

Package Total Caller Graph
Problem List 7 GMPL ASSIGN LIST  GMPL DE-ASSIGN LIST  GMPLBLCK  GMPLBLD  GMPLBLD3  GMPLBLDC  GMPLBLDF  

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
VALGRP(GMPLCAT) ; check all problems in the category for inactive codes
; Input:
; GMPLCAT = ien from file 125.11
ASSIGN ; allow lookup of PROB SEL LIST and assign to users
NEWLST ; Change selection lists
NEWGRP ; Change problem groups
DEL1 ; Ok, go for it ...
NGQ
VALLIST(LIST) ;check all categories in list for probs w/ inactive codes
; Input:
; LIST = ien from file 125
  • ICR #6735
    • Status: Active
    • Usage: Private
    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
    NEW(DIK,LIST,ITEM) ; Create new entry in Contents file #125.1 or #125.12
    NG1

    External References

    Name Field # of Occurrence
    ^DIC GROUP+4, LIST+4, ASSIGN+4
    ^DIE SAVGRP+12, SAVLST+12
    ^DIK SAVGRP+6, SAVLST+6, DEL1+2, DEL1+3
    IX1^DIK NEW+6
    ^DIR CKSAVE+4, SAVE+15, SAVE+30, DELETE+5
    BUILD^GMPLBLD NL1+4
    GETLIST^GMPLBLD NL1+4
    HDR^GMPLBLD NL1+4
    USERS^GMPLBLD3 ASSIGN+12
    BUILD^GMPLBLDC NG1+4
    GETLIST^GMPLBLDC NG1+4
    HDR^GMPLBLDC NG1+4
    $$MSG^GMPLX NGQ, NLQ
    $$STATCHK^ICDAPIU SAVE+9, VALGRP+16
    FULL^VALM1 NEWGRP+1, NEWLST+1, SAVE+11, SAVE+26

    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 ICD9 codes associated with them."
    • Line Location: SAVE+12
    Function Call: WRITE
    • Prompt: !,"The codes must be edited and corrected before the group can be saved."
    • Line Location: SAVE+13
    Function Call: WRITE
    • Prompt: !!,$C(7),"This Selection List contains problems with inactive ICD9 codes associated with"
    • Line Location: SAVE+27
    Function Call: WRITE
    • Prompt: !,"them. The codes must be edited and corrected before the list can be saved."
    • Line Location: SAVE+28
    Function Call: WRITE
    • Prompt: !!,"Saving ..."
    • Line Location: SAVE+33
    Function Call: WRITE
    • Prompt: " done."
    • Line Location: SAVE+37
    Function Call: WRITE
    • Prompt: $C(7),!!,">>> This category belongs to at least one problem selection list!",!," CANNOT DELETE"
    • Line Location: DELETE+2
    Function Call: WRITE
    • Prompt: !!,"Deleting category items ..."
    • Line Location: DEL1+1
    Function Call: WRITE
    • Prompt: "."
    • Line Location: DEL1+2
    Function Call: WRITE
    • Prompt: "."
    • Line Location: DEL1+3
    Function Call: WRITE
    • Prompt: " <done>"
    • Line Location: DEL1+4
    Function Call: WRITE
    • Prompt: !!,$C(7),"This Selection List contains problems with inactive ICD9 codes associated with"
    • Line Location: ASSIGN+8
    Function Call: WRITE
    • Prompt: !,"them. The codes must be edited and corrected before the list can be assigned to",!,"users.",!!
    • Line Location: ASSIGN+9
    Routine Call
    • DIE
    • Line Location:
      • SAVGRP+12
      • SAVLST+12
    Routine Call
    • DIC
    • Line Location:
      • GROUP+4
      • LIST+4
      • ASSIGN+4
    Routine Call
    • DIR
    • Line Location:
      • CKSAVE+4
      • SAVE+15
      • SAVE+30
      • DELETE+5

    FileMan Files Accessed Via FileMan Db Call

    FileNo Call Tags
    ^GMPL(125 - [#125] Classic Fileman Calls
    ^GMPL(125.1 - [#125.1] Classic Fileman Calls
    ^GMPL(125.11 - [#125.11] Classic Fileman Calls
    ^GMPL(125.12 - [#125.12] Classic Fileman Calls

    Global Variables Directly Accessed

    Name Line Occurrences  (* Changed,  ! Killed)
    ^GMPL(125 - [#125] NL1+1, NL1+3
    ^GMPL(125.1 - [#125.1] SAVLST+7, DELETE+2, VALLIST+12, VALLIST+14
    ^GMPL(125.11 - [#125.11] NG1+1, NG1+3, DEL1+4
    ^GMPL(125.12 - [#125.12] SAVGRP+7, DEL1+2, VALGRP+12, VALGRP+14
    ^TMP("GMPLIST" SAVE+6, SAVE+8, SAVE+22, SAVE+35, SAVGRP+4, SAVGRP+5, SAVGRP+6, SAVGRP+8, SAVGRP+11, SAVLST+4
    , SAVLST+5, SAVLST+6, SAVLST+8, SAVLST+11

    Label References

    Name Line Occurrences
    $$CKSAVE NEWGRP+2, NEWLST+2
    $$GROUP NG1
    $$LIST NL1
    $$VALGRP SAVE+23, VALLIST+15
    $$VALLIST ASSIGN+7
    @( SAVE+35
    ASSIGN ASSIGN+7
    NEW SAVGRP+5, SAVLST+5
    NEWGRP DEL1+5
    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+8*, SAVE+9
    DA SAVE+1~, SAVE+34*, SAVE+35*, SAVGRP+3, SAVGRP+4, SAVGRP+5, SAVGRP+6, SAVGRP+7, SAVGRP+8, SAVGRP+11
    , SAVLST+3, SAVLST+4, SAVLST+5, SAVLST+6, SAVLST+7, SAVLST+8, SAVLST+11, NEW+1~, NEW+4*, NEW+5
    , DELETE+1~, DEL1+2*, DEL1+3*
    DIC GROUP+1~, GROUP+2*, LIST+1~, LIST+2*, ASSIGN+2~, ASSIGN+3*
    DIC("A" GROUP+2*, LIST+2*, ASSIGN+3*
    DIC(0 GROUP+2*, GROUP+3, LIST+2*, LIST+3, ASSIGN+3*
    DIE SAVGRP+1~, SAVGRP+9*, SAVLST+1~, SAVLST+9*
    DIK SAVGRP+1~, SAVGRP+2*, SAVGRP+5, SAVGRP+9, SAVLST+1~, SAVLST+2*, SAVLST+5, SAVLST+9, NEW~, NEW+2
    , NEW+3, NEW+4, NEW+5*, DELETE+1~, DEL1+2*, DEL1+3*
    DIR CKSAVE+1~, SAVE+14~, SAVE+29~, DELETE+1~
    DIR("?" CKSAVE+3*, DELETE+4*
    DIR("A" CKSAVE+2*, DELETE+3*
    DIR("B" CKSAVE+2*, DELETE+3*
    DIR(0 CKSAVE+4*, SAVE+15*, SAVE+30*, DELETE+3*
    DIRUT SAVE+14~, SAVE+29~
    DLAYGO GROUP+1~, GROUP+3*, LIST+1~, LIST+3*
    DR SAVGRP+1~, SAVGRP+9*, SAVGRP+11*, SAVGRP+12*, SAVLST+1~, SAVLST+9*, SAVLST+11*, SAVLST+12*
    DT SAVE+9, VALGRP+16
    DTOUT SAVE+14~, SAVE+29~, ASSIGN+2~, ASSIGN+5
    DUOUT SAVE+14~, SAVE+29~, ASSIGN+2~, ASSIGN+5
    GMI SAVE+7~, SAVE+9*, VALGRP+13~, VALGRP+16*
    GMPLCAT VALGRP~, VALGRP+9, VALGRP+12, VALLIST+13~, VALLIST+14*, VALLIST+15
    GMPLCOD VALGRP+13~, VALGRP+14*, VALGRP+15, VALGRP+16
    >> GMPLGRP NG1, NG1+3*, CKSAVE+1, SAVE+3, SAVE+19, SAVE+34, SAVE+36, SAVGRP+5, DELETE+2, DELETE+3
    , DEL1+2, DEL1+3, DEL1+4*, DEL1+5
    GMPLIEN VALLIST+9~, VALLIST+11*, VALLIST+12*, VALLIST+14
    >> GMPLMODE NG1+4, NL1+4
    GMPLQT SAVE+1~, SAVE+2*, SAVE+3, SAVE+6, SAVE+9*, SAVE+10, SAVE+16*, SAVE+19, SAVE+22, SAVE+24*
    , SAVE+25, SAVE+31*
    GMPLSAVE NEWGRP+2, NEWLST+2, SAVE+36!, DEL1+4!
    GMPLSLST NL1, NL1+3*, SAVE+19, SAVLST+5, ASSIGN+2~, ASSIGN+11*
    GMPLVAL VALLIST+9~, VALLIST+11*, VALLIST+12, VALLIST+15*, VALLIST+17
    GMPLVALC VALGRP+10~, VALGRP+11*, VALGRP+12, VALGRP+16*, VALGRP+18
    >> GMPSAVED SAVE+36*
    GRP SAVE+20~, SAVE+21*, SAVE+22*, SAVE+23
    HDR NEW+1~, NEW+2*
    I LAST+1~*, LAST+2*, SAVGRP+10*, SAVGRP+11, SAVLST+10*, SAVLST+11, NEW+1~, NEW+3*, NEW+4
    IFN DELETE+1~, DEL1+2*
    ITEM SAVGRP+1~, SAVGRP+7*, SAVGRP+8, SAVGRP+11, SAVLST+1~, SAVLST+7*, SAVLST+8, SAVLST+11, NEW~, NEW+4
    ITM SAVE+4~, SAVE+5*, SAVE+6*, SAVE+8
    J LAST+1~*, LAST+2*, LAST+3
    L GROUP~, GROUP+2, LIST~, LIST+2
    LABEL SAVE+1~, SAVE+34*, SAVE+35
    LAST NEW+1~, NEW+2*, NEW+3
    LIST NEW~, NEW+4, VALLIST~, VALLIST+10, VALLIST+12
    NEWGRP NEWGRP+1~, NG1*, NG1+1, NG1+3
    NEWLST NEWLST+1~, NL1*, NL1+1, NL1+3
    PROB VALGRP+10~, VALGRP+11*, VALGRP+12*, VALGRP+14
    ROOT LAST~, LAST+2
    TEXT CKSAVE+1~*, CKSAVE+2, CKSAVE+3
    TMPITEM SAVGRP+1~, SAVGRP+5*
    TMPLST SAVLST+1~, SAVLST+5*
    TOTAL NEW+1~, NEW+2*, NEW+5
    U GROUP+4, LIST+4, SAVE+8, SAVGRP+7, SAVGRP+11, SAVLST+7, SAVLST+11, NEW+2, NEW+4, NEW+5
    , DELETE+3, VALGRP+14, VALLIST+14
    >> VALMBCK NGQ*, NLQ*, SAVE+16*, SAVE+31*, SAVE+37*, DELETE+1*, DEL1+5*
    >> VALMCC DELETE+1
    >> VALMSG NGQ*, NLQ*
    X GROUP+1~, LIST+1~, CKSAVE+1~, DELETE+1~, ASSIGN+2~
    Y GROUP+1~, GROUP+4*, GROUP+5, LIST+1~, LIST+4*, LIST+5, CKSAVE+1~, CKSAVE+5, DELETE+1~, DELETE+5
    , ASSIGN+2~, ASSIGN+6, ASSIGN+7, ASSIGN+11
    Y(0 GROUP+4, LIST+4
    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