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 |  Naked Globals |  Local Variables  | All
Print Page as PDF
Routine: GMPLSAVE

Package: Problem List

Routine: GMPLSAVE


Information

GMPLSAVE ; ISL/MKB,KER,JER,TC,PWC -- Save Problem List data ; Dec 11, 2024@14:00

Source Information

Source file <GMPLSAVE.m>

Call Graph

Call Graph

Call Graph Total: 16

Package Total Call Graph
VA FileMan 4 (,DD)^%DT  (FILE,UPDATE)^DIE  (,IX1)^DIK  $$GET1^DIQ  
Kernel 3 ($$DT,$$FMTE,$$HTFM,$$NOW)^XLFDT  EN1^XQOR  USERINFO^XUSRB2  
Problem List 3 SET^GMPLSPECAUTH  ($$EXTDT,$$NOS,$$PROVNARR,AUDIT,DTMOD)^GMPLX  $$WRAP^GMPLX1  
Lexicon Utility 2 ($$GETDES,$$GETSYN)^LEXTRAN1  $$IMPDATE^LEXU  
MailMan 2 KILL^XM  ^XMB  
DRG Grouper 1 ($$CODEC,$$CODECS,$$CS,$$CSI,$$SAB)^ICDEX  
Registration 1 $$SITE^VASITE  

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

Package Total Caller Graph
Problem List 5 GMPL EDIT SAVE  GMPL1  GMPLEDIT  GMPLUTL  GMPLUTL2  
Order Entry Results Reporting 2 ORQQPL1  ORQQPL2  
Enterprise Health Management Platform 1 HMPWBPL  
Kernel 1 ^ORD(101  

Entry Points

Name Comments DBIA/ICR reference
EN ; Save Changes made to Existing Problem
  • ICR #2978
    • Status: Active
    • Usage: Controlled Subscription
    NOTES ; Save Changes to Notes
    EXIT ; Quit Saving Changes
    REFORM ; Audit Entry that has been Reformulated
    REACTV ; Audit Entry that has been Reactivated
    NEW ; Save Collected Values in new Problem Entry
    ; Output DA (left defined)
  • ICR #2978
    • Status: Active
    • Usage: Controlled Subscription
    NEWPROB(ICD,DFN) ; Creates New Problem Entry in file #9000011
    NEWNOTE ; Creates New Note Entries for Problem
    ; Requires GMPIFN Pointer to Problem
    ; GMPROV Current Provider
    ; GMPVAMC Facility
  • ICR #2978
    • Status: Active
    • Usage: Controlled Subscription
    NN1 ; Get New Note
    NNQ ; Quit Getting New Notes
    NEXTNMBR(DFN,VAMC) ; Returns Next Available Problem Number
    NTRTBULL(GMPY,GMPTERM,GMPSCT,GMPSRCH) ; Send NTRT Request bulletin to NTRT mailgroup
    COEXPRS(GMPDA,GMPICD) ; File multiple ICDs
    SPRCICD(GMPICD) ; Is ICD string sparce (i.e., called from SDS API w/order > 2)?

    External References

    Name Field # of Occurrence
    ^%DT NOTES+3
    DD^%DT COEXPRS+20
    FILE^DIE EN+56, COEXPRS+12
    UPDATE^DIE COEXPRS+24
    ^DIK NOTES+15
    IX1^DIK NEW+67
    $$GET1^DIQ NTRTBULL+12
    SET^GMPLSPECAUTH EN+58, NEW+72
    $$EXTDT^GMPLX EN+9, NEW+12
    $$NOS^GMPLX EN+4, EN+5, EN+8, EN+27, EN+46, EN+60, NEW+8, NEW+9, NEW+53, NEW+70
    , COEXPRS+16, SPRCICD+2
    $$PROVNARR^GMPLX EN+36, NEW+16
    AUDIT^GMPLX EN+42, EN+55, NOTES+12, REFORM+3, REACTV+3, COEXPRS+34, COEXPRS+40
    DTMOD^GMPLX EXIT+1
    $$WRAP^GMPLX1 NTRTBULL+9
    $$CODEC^ICDEX NEW+10
    $$CODECS^ICDEX EN+10, NEW+13, COEXPRS+3
    $$CS^ICDEX NEW+6
    $$CSI^ICDEX EN+10, NEW+6
    $$SAB^ICDEX EN+10, NEW+7, COEXPRS+3
    $$GETDES^LEXTRAN1 EN+34, NEW+39
    $$GETSYN^LEXTRAN1 EN+19, NEW+25
    $$IMPDATE^LEXU EN+3, NEW+4
    $$SITE^VASITE NTRTBULL+1
    $$DT^XLFDT NEW+17
    $$FMTE^XLFDT NTRTBULL+13
    $$HTFM^XLFDT EN+37
    $$NOW^XLFDT EN+3, NEW+4, NTRTBULL+13, COEXPRS+1
    KILL^XM NTRTBULL+17
    ^XMB NTRTBULL+17
    EN1^XQOR NEW+74
    USERINFO^XUSRB2 NTRTBULL+5

    Interaction Calls

    Name Line Occurrences
    Function Call: WRITE
    • Prompt: !!,"Someone else is currently editing this file."
    • Line Location: NEWPROB+3
    Function Call: WRITE
    • Prompt: !,"Please try again later.",!
    • Line Location: NEWPROB+4
    Routine Call
    • DIE
    • Line Location:
      • EN+56
      • COEXPRS+12
    Routine Call
    • DIE
    • Line Location:
      • COEXPRS+24

    FileMan Files Accessed Via FileMan Db Call

    FileNo Call Tags
    ^VA(200 - [#200] GET1^DIQ
    ^AUPNPROB - [#9000011] Classic Fileman Calls

    Global Variables Directly Accessed

    Name Line Occurrences  (* Changed,  ! Killed)
    ^AUPNPROB - [#9000011] NOTES+4, NOTES+5*, NOTES+7*, NOTES+8*, REFORM+2, REACTV+2, NEW+44, NEW+45*, NEW+50*, NEW+55*
    NEW+59*, NEW+63*, NEWPROB+7, NEWPROB+8*, NEWNOTE+5, NEWNOTE+6, NEWNOTE+7, NEWNOTE+8, NEWNOTE+9, NEWNOTE+10*
    NEWNOTE+11*, NN1+1, NN1+2, NN1+3, NN1+6*, NN1+7*, NN1+9*, NNQ+1, COEXPRS+5, COEXPRS+7
    , COEXPRS+18, COEXPRS+30, COEXPRS+37, COEXPRS+38
    ^AUPNPROB("AA" NEXTNMBR+1, NEXTNMBR+2
    ^AUPNPROB("AC" NEWPROB+9*
    ^AUPNPROB("B" NEWPROB+9*
    ^AUPNPROB(0 NEWPROB+2, NEWPROB+5, NEWPROB+10*
    ^ORD(101 - [#101] NEW+74
    ^VA(200 - [#200] NTRTBULL+3

    Label References

    Name Line Occurrences
    $$NEWPROB NEW+41
    $$NEXTNMBR NEW+42
    $$SPRCICD COEXPRS+8
    COEXPRS EN+59, NEW+65
    NEWNOTE NOTES+16, NEW+68
    NNQ NEWNOTE+12
    NTRTBULL EN+60, NEW+70
    REACTV EN+43
    REFORM EN+44

    Naked Globals

    Name Field # of Occurrence
    ^(0 NEWNOTE+7*, NN1+1*

    Local Variables

    Legend:

    >> Not killed explicitly
    * Changed
    ! Killed
    ~ Newed

    Name Field # of Occurrence
    %DT EN+1~, NOTES+3*
    APCDALVR NEW+2~, NEW+67*
    APCDLOOK NEW+2~, NEW+67*
    AUDITED EN+1~, EN+37*, EN+43*, EN+44*, EN+54
    CHANGE COEXPRS+29~, COEXPRS+32*, COEXPRS+33*, COEXPRS+34, COEXPRS+38~, COEXPRS+39*, COEXPRS+40
    CHNGE EN+1~, EN+41*, EN+42, EN+54*, EN+55, NOTES+9*, NOTES+11*, NOTES+12, REFORM+1*, REFORM+3
    REACTV+1*, REACTV+3
    CODSYS COEXPRS+1~, COEXPRS+3*, COEXPRS+16, COEXPRS+22
    CSAB NEW+2~, NEW+7*, NEW+8, NEW+9, NEW+13
    CSDT NEW+2~, NEW+5*, NEW+6, NEW+7, NEW+8, NEW+9, NEW+12, NEW+13
    CSID NEW+2~, NEW+6*, NEW+7
    DA EN+1~, NOTES+15*, NEW+41*, NEW+44, NEW+45, NEW+50, NEW+55, NEW+59, NEW+63, NEW+65
    NEW+68, NEW+72, NEW+73, NEWPROB+1~, NEWPROB+8*, NEWPROB+9, NEWPROB+10, NEWPROB+11
    DA(1 NOTES+15*
    DA(2 NOTES+15*
    DATA NEW+2~, NEW+44*, NEW+45, NEW+47*, NEW+49*, NEW+50, NEW+54*, NEW+55, NEW+58*, NEW+59
    NEW+62*, NEW+63
    DFN NEW+73~*, NEWPROB~, NEWPROB+8, NEWPROB+9, NEXTNMBR~, NEXTNMBR+1, NEXTNMBR+2
    DIE EN+1~
    DIK EN+1~, NOTES+14*, NEW+2~, NEW+67*
    DOAUDIT EN+49~*, EN+50*, EN+55
    DR EN+1~
    DT EN+9, EN+10, EN+19, NEW+5, NEW+25, NEW+44, NN1+6, COEXPRS+3, COEXPRS+20
    DUZ EN+41, EN+54, NOTES+9, NOTES+11, REFORM+1, REACTV+1, NTRTBULL+3, NTRTBULL+12, COEXPRS+32, COEXPRS+33
    , COEXPRS+39
    FAC EN+1~, NOTES+2*, NOTES+4, NOTES+5, NOTES+7, NOTES+8, NOTES+14, NOTES+15, NEWNOTE+4~, NEWNOTE+6*
    NEWNOTE+11*, NEWNOTE+12, NN1+1, NN1+2, NN1+3, NN1+6, NN1+7, NN1+9
    FLD EN+1~, EN+47*, EN+48, EN+50, EN+51, EN+53, EN+54
    GMPBULL EN+1~, EN+60, NEW+70
    GMPC COEXPRS+1~
    GMPCODE COEXPRS+16~, COEXPRS+17*, COEXPRS+19, COEXPRS+21
    GMPD30 COEXPRS+16~, COEXPRS+18*, COEXPRS+19
    GMPDA COEXPRS~, COEXPRS+5, COEXPRS+7, COEXPRS+11, COEXPRS+18, COEXPRS+21, COEXPRS+22, COEXPRS+23, COEXPRS+30, COEXPRS+32
    , COEXPRS+33, COEXPRS+37, COEXPRS+38, COEXPRS+39
    >> GMPDFN NEW+41, NEW+42, NEW+73
    GMPDT COEXPRS+16~, COEXPRS+20*, COEXPRS+23
    GMPFDA COEXPRS+16~
    GMPFDA( COEXPRS+21*, COEXPRS+22*, COEXPRS+23*
    >> GMPFLD EN+58, NEW+72
    >> GMPFLD( EN+5*, EN+6, EN+7*, EN+8*, EN+10, EN+12*, EN+13, EN+16, EN+27, EN+28
    EN+30, EN+36*, EN+39, EN+40, EN+43, EN+44, EN+45*, EN+46, EN+48, EN+50
    EN+51, EN+53, EN+54, EN+60, REFORM+1, NEW+6, NEW+8*, NEW+9*, NEW+10, NEW+14*
    NEW+15*, NEW+16*, NEW+17*, NEW+18, NEW+21, NEW+33, NEW+35, NEW+41, NEW+44, NEW+47
    NEW+48, NEW+49, NEW+53, NEW+70
    >> GMPFLD(10 NOTES+1, NOTES+2, NOTES+8, NOTES+16, NEW+68, NN1+5, NN1+6
    >> GMPFLD(80001 EN+18*, EN+60, NEW+24*, NEW+52, NEW+54, NEW+70
    >> GMPFLD(80002 EN+26*, NEW+32*, NEW+54
    >> GMPFLD(80003 EN+33*, NEW+38*, NEW+52, NEW+54
    >> GMPFLD(80004 EN+35*, NEW+40*, NEW+52, NEW+54
    >> GMPFLD(80005 EN+27*, EN+46*, NEW+52, NEW+53*, NEW+54
    >> GMPFLD(80101 NEW+57, NEW+58
    >> GMPFLD(80102 NEW+57, NEW+58
    >> GMPFLD(80201 EN+4, EN+5, EN+8, EN+9*, EN+27, EN+46, EN+60, NEW+5, NEW+12*, NEW+53
    NEW+61, NEW+62, NEW+70
    >> GMPFLD(80202 EN+4, EN+5, EN+8, EN+10*, EN+27, EN+46, EN+60, NEW+7, NEW+13*, NEW+53
    NEW+61, NEW+62, NEW+70
    GMPI COEXPRS+1~, COEXPRS+15*, COEXPRS+17, COEXPRS+18, COEXPRS+28*, COEXPRS+30, COEXPRS+36*, COEXPRS+37*, COEXPRS+38, SPRCICD+1~
    , SPRCICD+2*
    GMPICD EN+1~, EN+6*, EN+10, EN+59, EN+60, NEW+2~, NEW+10*, NEW+11*, NEW+13, NEW+65
    NEW+70, COEXPRS~, COEXPRS+3, COEXPRS+8, COEXPRS+14, COEXPRS+17, SPRCICD~, SPRCICD+2
    GMPIFN EN+39, EN+41, EN+53, EN+54, EN+58, EN+59, NOTES+4, NOTES+5, NOTES+7, NOTES+8
    NOTES+9, NOTES+11, NOTES+14, NOTES+15, EXIT+1, REFORM+1, REFORM+2, REACTV+1, REACTV+2, NEW+2~
    NEW+68*, NEW+73*, NEWNOTE+5, NEWNOTE+6, NEWNOTE+7, NEWNOTE+8, NEWNOTE+9, NEWNOTE+10, NEWNOTE+11, NN1+1
    NN1+2, NN1+3, NN1+6, NN1+7, NN1+9, NNQ+1
    GMPIMPDT EN+1~, EN+3*, EN+60, NEW+2~, NEW+4*
    GMPJ COEXPRS+1~, COEXPRS+10*, COEXPRS+11
    GMPLERR EN+39~
    GMPLFDA EN+39~, COEXPRS+9~
    GMPLFDA( COEXPRS+11*
    GMPLFDA(9000011 EN+39*, EN+53*
    >> GMPLUSER EN+39
    GMPN COEXPRS+1~, COEXPRS+14*, COEXPRS+15
    GMPNCNT COEXPRS+1~, COEXPRS+7*, COEXPRS+10, COEXPRS+35
    GMPNOS COEXPRS+16~*, COEXPRS+19
    GMPNOW EN+1~, EN+3*, EN+60, NEW+2~, NEW+4*
    GMPNUM EN+14~, EN+15*, EN+22*, EN+23, NEW+19~, NEW+20*, NEW+28*, NEW+29
    GMPOCNT COEXPRS+1~, COEXPRS+26*, COEXPRS+35, COEXPRS+36
    GMPOLDIND EN+2~, EN+58, NEW+3~, NEW+72
    GMPOLDIND( EN+50*, NEW+48*
    GMPORIG EN+58, COEXPRS+1~, COEXPRS+5*, COEXPRS+25
    GMPORIG( EN+4*, EN+11*, EN+40, EN+43, EN+44, EN+51, EN+54, REFORM+1, COEXPRS+28, COEXPRS+30
    GMPORIG(0 COEXPRS+26
    GMPORIG(10 NOTES+1, NOTES+2, NOTES+7, NOTES+8
    GMPQT EN+14~, EN+15*, EN+21, EN+22, EN+23*, EN+24, EN+25*, NEW+19~, NEW+20*, NEW+27
    NEW+28, NEW+29*, NEW+30, NEW+31*
    >> GMPROV EN+46, EN+54, EN+58, NOTES+9, NOTES+11, REFORM+1, REACTV+1, NN1+6, COEXPRS+32, COEXPRS+33
    , COEXPRS+39
    >> GMPSAVED EN+57*, EXIT+1, NEW+42*
    GMPSCT NTRTBULL~, NTRTBULL+4*, NTRTBULL+11
    GMPSITE NTRTBULL+1~*, NTRTBULL+15
    GMPSRCH EN+60, NEW+70, NTRTBULL~, NTRTBULL+16
    GMPSVC NTRTBULL+1~, NTRTBULL+5*, NTRTBULL+14
    GMPSYN EN+14~, EN+26!, NEW+19~, NEW+32!
    GMPSYN( EN+21, EN+22, EN+23, EN+25, NEW+27, NEW+28, NEW+29, NEW+31
    GMPTERM NTRTBULL~, NTRTBULL+2, NTRTBULL+9, NTRTBULL+10
    GMPTYP EN+14~, EN+15*, EN+21*, EN+22, EN+23, EN+25, NEW+19~, NEW+20*, NEW+27*, NEW+28
    NEW+29, NEW+31
    GMPUSER NTRTBULL+1~, NTRTBULL+5
    GMPUSER(5 NTRTBULL+5
    >> GMPVAMC NEW+42, NEW+44, NEWNOTE+6, NEWNOTE+10
    GMPWRAP NTRTBULL+1~, NTRTBULL+9*
    GMPY NTRTBULL~, NTRTBULL+2*, NTRTBULL+3*, NTRTBULL+17*, SPRCICD+1~*, SPRCICD+2*, SPRCICD+3
    HDR NEWPROB+1~, NEWPROB+5*, NEWPROB+6, NEWNOTE+4~, NEWNOTE+8*, NN1+2*
    I EN+1~, EN+36*, NOTES+1*, NOTES+2, NOTES+7, NOTES+8, NEW+2~, NEW+47*, NEW+48, NEW+49
    , NEWPROB+1~, NEWPROB+7*, NEWPROB+8, NEWNOTE+4~, NEWNOTE+9*, NEWNOTE+10, NEWNOTE+11, NN1+3*, NN1+4, NN1+5*
    NN1+6, NEXTNMBR+1~*, NEXTNMBR+2*
    ICD NEWPROB~, NEWPROB+8, NEWPROB+9
    J NEXTNMBR+1~, NEXTNMBR+2*
    LAST NEWPROB+1~, NEWPROB+6*, NEWPROB+7, NEWNOTE+4~, NEWNOTE+8*, NEWNOTE+9, NN1+2*, NN1+3, NN1+8*, NN1+9
    NEW0 COEXPRS+29~, COEXPRS+30*, COEXPRS+31, COEXPRS+32, COEXPRS+38~*, COEXPRS+39
    NEWNTDT EN+1~, NOTES+2*, NOTES+3*, NOTES+7
    NIFN EN+1~, NOTES+2*, NOTES+4, NOTES+5, NOTES+7, NOTES+8, NOTES+15, NEWNOTE+4~, NN1+4*, NN1+6
    NN1+7, NN1+8*
    NODE EN+1~, NOTES+4*, NOTES+12, REFORM+2*, REFORM+3, REACTV+2*, REACTV+3
    NOW EN+1~, EN+37*, EN+41, EN+54, NOTES+9, NOTES+11, REFORM+1, REACTV+1, COEXPRS+1~*, COEXPRS+32
    , COEXPRS+33, COEXPRS+39
    NUM NEW+2~, NEW+42*, NEW+44, NEXTNMBR+1~*, NEXTNMBR+2*, NEXTNMBR+3*, NEXTNMBR+4
    OLD0 COEXPRS+29~, COEXPRS+30*, COEXPRS+31, COEXPRS+32, COEXPRS+33, COEXPRS+34
    OLDTEXT EN+1~, NOTES+2*, NOTES+6, NOTES+10
    SCTC EN+14~, EN+18*, EN+19, NEW+19~, NEW+23*, NEW+24, NEW+25
    SCTD EN+14~, EN+19*, EN+20*, EN+23*, EN+25*, EN+26, NEW+19~, NEW+25*, NEW+26*, NEW+29*
    NEW+31*, NEW+32
    SCTS EN+14~, EN+16*, EN+17, EN+18, NEW+19~, NEW+21*, NEW+22, NEW+23
    SCTT EN+14~, EN+17*, EN+23, EN+25, NEW+19~, NEW+22*, NEW+29, NEW+31
    TEXT EN+1~, NOTES+2*, NOTES+5, NOTES+6, NOTES+10, NOTES+11, NOTES+13
    TOTAL NEWPROB+1~, NEWPROB+6*, NEWPROB+10, NEWNOTE+4~, NEWNOTE+8*, NEWNOTE+11, NN1+2*, NN1+8*, NN1+9
    U EN+4, EN+5, EN+6, EN+8, EN+9, EN+10, EN+17, EN+18, EN+20, EN+23
    EN+25, EN+26, EN+27, EN+31, EN+33, EN+35, EN+36, EN+41, EN+43, EN+46
    EN+51, EN+53, EN+54, EN+60, NOTES+2, NOTES+5, NOTES+7, NOTES+8, NOTES+9, NOTES+11
    REFORM+1, REFORM+2, REACTV+1, REACTV+2, NEW+5, NEW+7, NEW+9, NEW+10, NEW+12, NEW+13
    NEW+16, NEW+22, NEW+24, NEW+26, NEW+29, NEW+31, NEW+32, NEW+36, NEW+38, NEW+40
    NEW+44, NEW+47, NEW+49, NEW+52, NEW+53, NEW+54, NEW+57, NEW+58, NEW+61, NEW+62
    NEW+70, NEWPROB+6, NEWPROB+8, NEWPROB+10, NEWNOTE+8, NEWNOTE+11, NN1+2, NN1+6, NN1+9, NTRTBULL+15
    , COEXPRS+7, COEXPRS+19, COEXPRS+26, COEXPRS+31, COEXPRS+32, COEXPRS+33, COEXPRS+39, SPRCICD+2
    VAMC NEXTNMBR~, NEXTNMBR+1, NEXTNMBR+2
    VHATC EN+29~, EN+32*, EN+33, NEW+34~, NEW+37*, NEW+38
    VHATD EN+29~, EN+34*, EN+35*, NEW+34~, NEW+39*, NEW+40*
    VHATS EN+29~, EN+30*, EN+31, EN+32, NEW+34~, NEW+35*, NEW+36, NEW+37
    VHATT EN+29~, EN+31*, EN+34, NEW+34~, NEW+36*, NEW+39
    X EN+1~, NOTES+3*, NEW+2~, NEW+16*, NEW+74*
    XMB NTRTBULL+1~, NTRTBULL+6*
    XMB(1 NTRTBULL+10*
    XMB(2 NTRTBULL+11*
    XMB(3 NTRTBULL+12*
    XMB(4 NTRTBULL+13*
    XMB(5 NTRTBULL+14*
    XMB(6 NTRTBULL+15*
    XMB(7 NTRTBULL+16*
    XMBNM NTRTBULL+1~
    XMDUZ NTRTBULL+1~, NTRTBULL+7*
    XMY NTRTBULL+1~
    XMY("G.PROBLE M LIST NTRT@domain.ext" , NTRTBULL+8*
    XMZ NTRTBULL+1~
    Y NOTES+3, COEXPRS+16~, COEXPRS+20*
    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 |  Naked Globals |  Local Variables  | All