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

Package: Problem List

Routine: GMPL1


Information

GMPL1 ; SLC/MKB/AJB/TC,PWC - Problem List actions ;04/03/2019

Source Information

Source file <GMPL1.m>

Call Graph

Call Graph

Call Graph Total: 15

Package Total Call Graph
Problem List 7 $$ACCEPT^GMPLDIS1  NOTE^GMPLEDT1  FLDS^GMPLEDT3  ($$TEXT,EDNOTE,RESOLVED)^GMPLEDT4  (NEW,NEWNOTE)^GMPLSAVE  ($$CODESTS,$$DUPL,$$DUPLOK,$$EXTDT,$$LOCKED,$$NOS,$$PROBTEXT,$$STRIPSPC,AUDIT,DTMOD,SEARCH)^GMPLX  $$SERVICE^GMPLX1  
DRG Grouper 2 ($$CODECS,$$SAB)^ICDEX  ($$ICDDATA,$$STATCHK)^ICDXCODE  
Kernel 2 $$HTFM^XLFDT  $$TRIM^XLFSTR  
Lexicon Utility 2 $$GETSYN^LEXTRAN1  ($$IMPDATE,$$ONE)^LEXU  
VA FileMan 2 FILE^DIE  ^DIR  

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

Package Total Caller Graph
Problem List 3 GMPL  GMPLMENU  GMPLUTL2  
Order Entry Results Reporting 1 ORCPROB  

Entry Points

Name Comments DBIA/ICR reference
ADD ;add new entry to list - Requires GMPDFN
ADD1 ; set up default values
; -- May enter here with GMPROB=text,GMPICD=code,GMPTERM=#^term
; added for Code Set Versioning (CSV)
ADD2 ; prompt for values
ADD3 ; Ok to save?
STATUS ; -- inactivate problem
NEWNOTE ; -- add a new comment
DELETE ; -- delete a problem
VERIFY ; -- verify a transcribed problem, if parameter on
  • ICR #2726
    • Status: Active
    • Usage: Controlled Subscription
    ICDMSG ; If Lexicon returns ICD code 799.9 or R69.

    External References

    Name Field # of Occurrence
    FILE^DIE STATUS+10
    ^DIR ICDMSG+17
    $$ACCEPT^GMPLDIS1 ADD3+1
    NOTE^GMPLEDT1 NEWNOTE+3
    FLDS^GMPLEDT3 ADD2+1
    $$TEXT^GMPLEDT4 ADD+3
    EDNOTE^GMPLEDT4 STATUS+4, DELETE+4
    RESOLVED^GMPLEDT4 STATUS+3
    NEW^GMPLSAVE ADD3+4
    NEWNOTE^GMPLSAVE STATUS+5, NEWNOTE+4, DELETE+5
    $$CODESTS^GMPLX VERIFY+3
    $$DUPL^GMPLX ADD+8
    $$DUPLOK^GMPLX ADD+9
    $$EXTDT^GMPLX ADD1+32
    $$LOCKED^GMPLX VERIFY+5
    $$NOS^GMPLX ADD1+29
    $$PROBTEXT^GMPLX STATUS+3, NEWNOTE+2, DELETE+2, VERIFY+2
    $$STRIPSPC^GMPLX ADD1+16, ADD1+21, ADD1+24
    AUDIT^GMPLX STATUS+13, DELETE+8, VERIFY+8
    DTMOD^GMPLX STATUS+14, NEWNOTE+4, DELETE+8, VERIFY+8
    SEARCH^GMPLX ADD+6
    $$SERVICE^GMPLX1 ADD1+31
    $$CODECS^ICDEX ADD1+7, ADD1+10
    $$SAB^ICDEX ADD1+28
    $$ICDDATA^ICDXCODE ADD1+27
    $$STATCHK^ICDXCODE ADD1+8, ADD1+11
    $$GETSYN^LEXTRAN1 ADD1+17
    $$IMPDATE^LEXU ADD+2, ICDMSG+2
    $$ONE^LEXU ADD1+14
    $$HTFM^XLFDT STATUS+12, DELETE+6, VERIFY+1
    $$TRIM^XLFSTR ADD1+16

    Interaction Calls

    Name Line Occurrences
    Function Call: WRITE
    • Prompt: !
    • Line Location: ADD+1
    Function Call: WRITE
    • Prompt: !,GMPROB,!,"has an inactive ICD code. Please edit before adding."
    • Line Location: ADD1+12
    Function Call: WRITE
    • Prompt: !!?10,"< Nothing Saved !! >",!
    • Line Location: ADD3+2
    Function Call: WRITE
    • Prompt: !!,"Saving ..."
    • Line Location: ADD3+4
    Function Call: WRITE
    • Prompt: " done."
    • Line Location: ADD3+7
    Function Call: WRITE
    • Prompt: !!,$$PROBTEXT^GMPLX(GMPIFN)
    • Line Location: STATUS+3
    Function Call: WRITE
    • Prompt: "."
    • Line Location: STATUS+5
    Function Call: WRITE
    • Prompt: "."
    • Line Location: STATUS+10
    Function Call: WRITE
    • Prompt: "."
    • Line Location: STATUS+13
    Function Call: WRITE
    • Prompt: "."
    • Line Location: STATUS+14
    Function Call: WRITE
    • Prompt: "... inactivated!",!
    • Line Location: STATUS+15
    Function Call: WRITE
    • Prompt: !!,$$PROBTEXT^GMPLX(GMPIFN)
    • Line Location: NEWNOTE+2
    Function Call: WRITE
    • Prompt: !!,$$PROBTEXT^GMPLX(GMPIFN)
    • Line Location: DELETE+2
    Function Call: WRITE
    • Prompt: !
    • Line Location: DELETE+4
    Function Call: WRITE
    • Prompt: "."
    • Line Location: DELETE+5
    Function Call: WRITE
    • Prompt: "."
    • Line Location: DELETE+7
    Function Call: WRITE
    • Prompt: "."
    • Line Location: DELETE+8
    Function Call: WRITE
    • Prompt: "... removed!",!
    • Line Location: DELETE+9
    Function Call: WRITE
    • Prompt: !!,$$PROBTEXT^GMPLX(GMPIFN),!
    • Line Location: VERIFY+2
    Function Call: WRITE
    • Prompt: "has an inactive ICD code. Edit the problem before verification.",!
    • Line Location: VERIFY+3
    Function Call: WRITE
    • Prompt: "does not require verification.",!
    • Line Location: VERIFY+4
    Function Call: WRITE
    • Prompt: $C(7),$$LOCKED^GMPLX,!
    • Line Location: VERIFY+5
    Function Call: WRITE
    • Prompt: "."
    • Line Location: VERIFY+6
    Function Call: WRITE
    • Prompt: "."
    • Line Location: VERIFY+7
    Function Call: WRITE
    • Prompt: "."
    • Line Location: VERIFY+8
    Function Call: WRITE
    • Prompt: " verified.",!
    • Line Location: VERIFY+9
    Routine Call
    • DIE
    • Line Location:
      • STATUS+10
    Routine Call
    • DIR
    • Line Location:
      • ICDMSG+17

    Global Variables Directly Accessed

    Name Line Occurrences  (* Changed,  ! Killed)
    ^AUPNPROB - [#9000011] STATUS+2, DELETE+7*, VERIFY+4, VERIFY+5, VERIFY+6*, VERIFY+9
    ^XUSEC("GMPL ICD CODE" ADD+4

    Label References

    Name Line Occurrences
    @( ADD2+2, ADD3+9
    ADD1 ADD+4
    ADD3 ADD3+10
    ICDMSG ADD+10

    Local Variables

    Legend:

    >> Not killed explicitly
    * Changed
    ! Killed
    ~ Newed

    Name Field # of Occurrence
    CHNGE STATUS+1~, STATUS+12*, STATUS+13, DELETE+1~, DELETE+6*, DELETE+8, VERIFY+1~, VERIFY+7*, VERIFY+8
    DA ADD3+6, STATUS+1~
    DEFAULT STATUS+1~, STATUS+4*, DELETE+1~, DELETE+3*
    DIE STATUS+1~
    DIR ICDMSG+1~
    DIR("A" ICDMSG+5*, ICDMSG+7*, ICDMSG+8*, ICDMSG+9*, ICDMSG+10*, ICDMSG+12*, ICDMSG+13*, ICDMSG+14*, ICDMSG+15*
    DIR("B" ICDMSG+15*
    DIR("T" ICDMSG+16*
    DIR(0 ICDMSG+4*
    DR STATUS+1~
    DT ADD+4, ADD+13, ADD1+7, ADD1+8, ADD1+10, ADD1+11, ADD1+14, ADD1+17, ADD1+27, ADD1+28
    ADD1+29, ADD1+32, VERIFY+3, ICDMSG+2
    DTIME ICDMSG+16
    DTOUT ADD3+10, ICDMSG+1~, ICDMSG+18
    DUOUT ADD3+10!, ICDMSG+1~, ICDMSG+18
    DUP ADD+1~, ADD+8*, ADD+9
    DUZ ADD+4, ADD1+30, STATUS+12, DELETE+6, VERIFY+7
    >> GMPAGTOR ADD1+36
    >> GMPARAM("CLU" ADD+4
    >> GMPARAM("REV" ADD3+5
    >> GMPARAM("VER" ADD1+34
    >> GMPCLIN ADD1+31
    GMPCODE ADD1+6~*, ADD1+7, ADD1+8, ICDMSG+1~, ICDMSG+2*, ICDMSG+3, ICDMSG+5, ICDMSG+6
    GMPCSNME ADD1+3~, ADD1+7*, ADD1+10*, ADD1+28
    GMPCSPTR ADD1+3~, ADD1+7*, ADD1+8, ADD1+10*, ADD1+11, ADD1+27, ADD1+28
    GMPCSREC ADD1+3~, ADD1+7*, ADD1+10*
    GMPDESC ICDMSG+1~, ICDMSG+3*, ICDMSG+7, ICDMSG+12
    >> GMPDFN ADD+8
    GMPFLD ADD1+25~, ADD3+1, STATUS+1~, NEWNOTE+1~, DELETE+1~
    GMPFLD( ADD1+26*, ADD1+27*, ADD1+29*, ADD1+30*, ADD1+31*, ADD1+32*, ADD1+33*, ADD1+34*, ADD1+35*, ADD1+36*
    ADD1+37*, STATUS+2*, STATUS+9
    GMPFLD("FLD" ADD2+2, ADD3+9
    GMPFLD(10 ADD1+33*, STATUS+5*, NEWNOTE+3, DELETE+5*
    GMPFLD(80001 ADD1+38*
    GMPFLD(80002 ADD1+38*
    GMPFLD(80201 ADD1+32*
    GMPFLD(80202 ADD1+28*, ADD1+29
    >> GMPGULF ADD1+37
    GMPI ADD1+25~, ADD2+2*, ADD3+9*
    GMPICD ADD+1~, ADD+4*, ADD+12*, ADD+13*, ADD1+5, ADD1+6, ADD1+10, ADD1+11, ADD1+27
    >> GMPIFN STATUS+2, STATUS+3, STATUS+8, STATUS+9, STATUS+12, STATUS+14, NEWNOTE+2, NEWNOTE+4, DELETE+2, DELETE+6
    DELETE+7, DELETE+8, VERIFY+2, VERIFY+3, VERIFY+4, VERIFY+5, VERIFY+6, VERIFY+7, VERIFY+8, VERIFY+9
    GMPIMPDT ADD+1~, ADD+2*, ADD+4, ADD+13, ICDMSG+1~, ICDMSG+2*
    >> GMPION ADD1+37
    GMPLERR STATUS+7~
    GMPLFDA STATUS+7~
    GMPLFDA(9000011 STATUS+8*, STATUS+9*
    >> GMPLIST( ADD3+6*
    >> GMPLIST("B" ADD3+6*
    >> GMPLIST(0 ADD3+5, ADD3+6*
    GMPLJUMP ADD1+25!, ADD2+2!, ADD3+1*, ADD3+9*
    >> GMPLUSER ADD+4, ADD1+34
    GMPLY ICDMSG+1~, ICDMSG+19*
    GMPNUM ADD1+3~, ADD1+4*, ADD1+20*, ADD1+21, ADD1+22
    GMPQT ADD1+3~, ADD1+4*, ADD1+19, ADD1+20, ADD1+21*, ADD1+22*, ADD1+23, ADD1+24*
    GMPQUIT ADD+3*, ADD+5, ADD+7*, ADD+11, ADD2+2, ADD2+3, ADD3+2*, ADD3+9, ADD3+10!, STATUS+3
    STATUS+4, NEWNOTE+3, DELETE+4
    GMPROB ADD+1~, ADD+3*, ADD+6, ADD+8, ADD+9*, ADD1+12, ADD1+13, ADD1+15, ADD1+16, ADD1+26
    ICDMSG+1~, ICDMSG+19*
    >> GMPROV ADD1+30, STATUS+12, DELETE+6
    >> GMPSAVED ADD3+9, STATUS+16*, NEWNOTE+5*, DELETE+7*, VERIFY+6*
    >> GMPSC ADD1+36
    GMPSCTC ADD1+3~, ADD1+4*, ADD1+14*, ADD1+15*, ADD1+17, ADD1+38
    GMPSCTD ADD1+3~, ADD1+4*, ADD1+17*, ADD1+18*, ADD1+21*, ADD1+22, ADD1+24*, ADD1+38
    GMPSTAT ADD1+3~, ADD1+5, ADD1+6*, ADD1+8*, ADD1+10*, ADD1+11*, ADD1+12
    GMPSYN ADD1+3~, ADD1+25!
    GMPSYN( ADD1+19, ADD1+20, ADD1+21, ADD1+24
    GMPTERM ADD+1~, ADD+4*, ADD+12*, ADD1+14, ADD1+26
    GMPTXT ADD1+3~, ADD1+4*, ADD1+16*, ADD1+21, ADD1+24
    GMPTYP ADD1+3~, ADD1+4*, ADD1+19*, ADD1+20, ADD1+21, ADD1+24
    I ADD1+3~, ADD1+5*, ADD1+6, ADD3+4~, ADD3+5*, ADD3+6
    NOW VERIFY+1~*, VERIFY+7
    OK ADD1+25~, ADD3+1*, ADD3+2, ADD3+3
    PROMPT STATUS+1~, STATUS+4*, DELETE+1~, DELETE+3*
    U ADD1+7, ADD1+10, ADD1+18, ADD1+21, ADD1+24, ADD1+26, ADD1+27, ADD1+28, ADD1+29, ADD1+32
    ADD1+38, STATUS+2, STATUS+9, STATUS+12, DELETE+6, DELETE+7, VERIFY+4, VERIFY+6, VERIFY+7
    X STATUS+1~, DELETE+1~
    Y ADD+1~, ADD+5, ADD+6, ADD+7, ADD+8, ADD+9*, ADD+10, ADD+12, STATUS+1~, STATUS+5
    DELETE+1~, DELETE+5, ICDMSG+18*, ICDMSG+19
    Y(1 ADD+12
    Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables  | All