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 -- Save Problem List data ;04/28/17 12:03

Source Information

Source file <GMPLSAVE.m>

Call Graph

Call Graph

Call Graph Total: 15

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  
Lexicon Utility 2 ($$GETDES,$$GETSYN)^LEXTRAN1  $$IMPDATE^LEXU  
MailMan 2 KILL^XM  ^XMB  
Problem List 2 ($$EXTDT,$$NOS,$$PROVNARR,AUDIT,DTMOD)^GMPLX  $$WRAP^GMPLX1  
DRG Grouper 1 ($$CODEC,$$CODECS,$$CS,$$CSI,$$SAB)^ICDEX  
Registration 1 $$SITE^VASITE  

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

    External References

    Name Field # of Occurrence
    ^%DT NOTES+3
    DD^%DT COEXPRS+20
    ^DIE EN+50
    FILE^DIE COEXPRS+12
    UPDATE^DIE COEXPRS+24
    ^DIK NOTES+15
    IX1^DIK NEW+64
    $$GET1^DIQ NTRTBULL+12
    $$EXTDT^GMPLX EN+8, NEW+11
    $$NOS^GMPLX EN+3, EN+4, EN+7, EN+26, EN+44, EN+52, NEW+7, NEW+8, NEW+50, NEW+66
    , COEXPRS+16, SPRCICD+2
    $$PROVNARR^GMPLX EN+35, NEW+15
    AUDIT^GMPLX EN+40, EN+49, NOTES+12, REFORM+3, REACTV+3, COEXPRS+34, COEXPRS+40
    DTMOD^GMPLX EXIT+1
    $$WRAP^GMPLX1 NTRTBULL+9
    $$CODEC^ICDEX NEW+9
    $$CODECS^ICDEX EN+9, NEW+12, COEXPRS+3
    $$CS^ICDEX NEW+5
    $$CSI^ICDEX EN+9, NEW+5
    $$SAB^ICDEX EN+9, NEW+6, COEXPRS+3
    $$GETDES^LEXTRAN1 EN+33, NEW+38
    $$GETSYN^LEXTRAN1 EN+18, NEW+24
    $$IMPDATE^LEXU EN+2, NEW+3
    $$SITE^VASITE NTRTBULL+1
    $$DT^XLFDT NEW+16
    $$FMTE^XLFDT NTRTBULL+13
    $$HTFM^XLFDT EN+36
    $$NOW^XLFDT EN+2, NEW+3, NTRTBULL+13, COEXPRS+1
    KILL^XM NTRTBULL+17
    ^XMB NTRTBULL+17
    EN1^XQOR NEW+69
    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:
      • COEXPRS+24
    Routine Call
    • DIE
    • Line Location:
      • EN+50
    Routine Call
    • DIE
    • Line Location:
      • COEXPRS+12

    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+43, NEW+44*, NEW+47*, NEW+52*
    , NEW+56*, NEW+60*, 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+69
    ^VA(200 - [#200] NTRTBULL+3

    Label References

    Name Line Occurrences
    $$NEWPROB NEW+40
    $$NEXTNMBR NEW+41
    $$SPRCICD COEXPRS+8
    COEXPRS EN+51, NEW+62
    NEWNOTE NOTES+16, NEW+65
    NNQ NEWNOTE+12
    NTRTBULL EN+52, NEW+66
    REACTV EN+41
    REFORM EN+42

    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+64*
    APCDLOOK NEW+2~, NEW+64*
    AUDITED EN+1~, EN+36*, EN+41*, EN+42*, EN+48
    CHANGE COEXPRS+29~, COEXPRS+32*, COEXPRS+33*, COEXPRS+34, COEXPRS+38~, COEXPRS+39*, COEXPRS+40
    CHNGE EN+1~, EN+39*, EN+40, EN+48*, EN+49, 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+6*, NEW+7, NEW+8, NEW+12
    CSDT NEW+2~, NEW+4*, NEW+5, NEW+6, NEW+7, NEW+8, NEW+11, NEW+12
    CSID NEW+2~, NEW+5*, NEW+6
    DA EN+1~, EN+50*, NOTES+15*, NEW+40*, NEW+43, NEW+44, NEW+47, NEW+52, NEW+56, NEW+60
    , NEW+62, NEW+65, NEW+68, NEWPROB+1~, NEWPROB+8*, NEWPROB+9, NEWPROB+10, NEWPROB+11
    DA(1 NOTES+15*
    DA(2 NOTES+15*
    DATA NEW+2~, NEW+43*, NEW+44, NEW+46*, NEW+47, NEW+51*, NEW+52, NEW+55*, NEW+56, NEW+59*
    , NEW+60
    DFN NEW+68~*, NEWPROB~, NEWPROB+8, NEWPROB+9, NEXTNMBR~, NEXTNMBR+1, NEXTNMBR+2
    DIE EN+1~, EN+50*
    DIK EN+1~, NOTES+14*, NEW+2~, NEW+64*
    DR EN+1~, EN+37*, EN+47*
    DT EN+8, EN+9, EN+18, NEW+4, NEW+24, NEW+43, NN1+6, COEXPRS+3, COEXPRS+20
    DUZ EN+39, EN+48, 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+45*, EN+46, EN+47, EN+48
    GMPBULL EN+1~, EN+52, NEW+66
    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+40, NEW+41, NEW+68
    GMPDT COEXPRS+16~, COEXPRS+20*, COEXPRS+23
    GMPFDA COEXPRS+16~
    GMPFDA( COEXPRS+21*, COEXPRS+22*, COEXPRS+23*
    >> GMPFLD( EN+4*, EN+5, EN+6*, EN+7*, EN+9, EN+11*, EN+12, EN+15, EN+26, EN+27
    , EN+29, EN+35*, EN+37, EN+38, EN+41, EN+42, EN+43*, EN+44, EN+46, EN+47
    , EN+48, EN+52, REFORM+1, NEW+5, NEW+7*, NEW+8*, NEW+9, NEW+13*, NEW+14*, NEW+15*
    , NEW+16*, NEW+17, NEW+20, NEW+32, NEW+34, NEW+40, NEW+43, NEW+46, NEW+50, NEW+66
    >> GMPFLD(10 NOTES+1, NOTES+2, NOTES+8, NOTES+16, NEW+65, NN1+5, NN1+6
    >> GMPFLD(80001 EN+17*, EN+52, NEW+23*, NEW+49, NEW+51, NEW+66
    >> GMPFLD(80002 EN+25*, NEW+31*, NEW+51
    >> GMPFLD(80003 EN+32*, NEW+37*, NEW+49, NEW+51
    >> GMPFLD(80004 EN+34*, NEW+39*, NEW+49, NEW+51
    >> GMPFLD(80005 EN+26*, EN+44*, NEW+49, NEW+50*, NEW+51
    >> GMPFLD(80101 NEW+54, NEW+55
    >> GMPFLD(80102 NEW+54, NEW+55
    >> GMPFLD(80201 EN+3, EN+4, EN+7, EN+8*, EN+26, EN+44, EN+52, NEW+4, NEW+11*, NEW+50
    , NEW+58, NEW+59, NEW+66
    >> GMPFLD(80202 EN+3, EN+4, EN+7, EN+9*, EN+26, EN+44, EN+52, NEW+6, NEW+12*, NEW+50
    , NEW+58, NEW+59, NEW+66
    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+5*, EN+9, EN+51, EN+52, NEW+2~, NEW+9*, NEW+10*, NEW+12, NEW+62
    , NEW+66, COEXPRS~, COEXPRS+3, COEXPRS+8, COEXPRS+14, COEXPRS+17, SPRCICD~, SPRCICD+2
    GMPIFN EN+39, EN+48, EN+50, EN+51, 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+65*, NEW+68*
    , 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+2*, EN+52, NEW+2~, NEW+3*, NEW+66
    GMPJ COEXPRS+1~, COEXPRS+10*, COEXPRS+11
    GMPLFDA COEXPRS+9~
    GMPLFDA( COEXPRS+11*
    >> GMPLUSER EN+37
    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+2*, EN+52, NEW+2~, NEW+3*, NEW+66
    GMPNUM EN+13~, EN+14*, EN+21*, EN+22, NEW+18~, NEW+19*, NEW+27*, NEW+28
    GMPOCNT COEXPRS+1~, COEXPRS+26*, COEXPRS+35, COEXPRS+36
    GMPORIG COEXPRS+1~, COEXPRS+5*, COEXPRS+25
    GMPORIG( EN+3*, EN+10*, EN+38, EN+41, EN+42, EN+46, EN+48, REFORM+1, COEXPRS+28, COEXPRS+30
    GMPORIG(0 COEXPRS+26
    GMPORIG(10 NOTES+1, NOTES+2, NOTES+7, NOTES+8
    GMPQT EN+13~, EN+14*, EN+20, EN+21, EN+22*, EN+23, EN+24*, NEW+18~, NEW+19*, NEW+26
    , NEW+27, NEW+28*, NEW+29, NEW+30*
    >> GMPROV EN+44, EN+48, NOTES+9, NOTES+11, REFORM+1, REACTV+1, NN1+6, COEXPRS+32, COEXPRS+33, COEXPRS+39
    >> GMPSAVED EN+50*, EXIT+1, NEW+41*
    GMPSCT NTRTBULL~, NTRTBULL+4*, NTRTBULL+11
    GMPSITE NTRTBULL+1~*, NTRTBULL+15
    GMPSRCH EN+52, NEW+66, NTRTBULL~, NTRTBULL+16
    GMPSVC NTRTBULL+1~, NTRTBULL+5*, NTRTBULL+14
    GMPSYN EN+13~, EN+25!, NEW+18~, NEW+31!
    GMPSYN( EN+20, EN+21, EN+22, EN+24, NEW+26, NEW+27, NEW+28, NEW+30
    GMPTERM NTRTBULL~, NTRTBULL+2, NTRTBULL+9, NTRTBULL+10
    GMPTYP EN+13~, EN+14*, EN+20*, EN+21, EN+22, EN+24, NEW+18~, NEW+19*, NEW+26*, NEW+27
    , NEW+28, NEW+30
    GMPUSER NTRTBULL+1~, NTRTBULL+5
    GMPUSER(5 NTRTBULL+5
    >> GMPVAMC NEW+41, NEW+43, 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+35*, NOTES+1*, NOTES+2, NOTES+7, NOTES+8, NEW+2~, NEW+46*, 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+36*, EN+39, EN+48, NOTES+9, NOTES+11, REFORM+1, REACTV+1, COEXPRS+1~*, COEXPRS+32
    , COEXPRS+33, COEXPRS+39
    NUM NEW+2~, NEW+41*, NEW+43, 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+13~, EN+17*, EN+18, NEW+18~, NEW+22*, NEW+23, NEW+24
    SCTD EN+13~, EN+18*, EN+19*, EN+22*, EN+24*, EN+25, NEW+18~, NEW+24*, NEW+25*, NEW+28*
    , NEW+30*, NEW+31
    SCTS EN+13~, EN+15*, EN+16, EN+17, NEW+18~, NEW+20*, NEW+21, NEW+22
    SCTT EN+13~, EN+16*, EN+22, EN+24, NEW+18~, NEW+21*, NEW+28, NEW+30
    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+3, EN+4, EN+5, EN+7, EN+8, EN+9, EN+16, EN+17, EN+19, EN+22
    , EN+24, EN+25, EN+26, EN+30, EN+32, EN+34, EN+35, EN+39, EN+41, EN+44
    , EN+46, EN+47, EN+48, EN+52, NOTES+2, NOTES+5, NOTES+7, NOTES+8, NOTES+9, NOTES+11
    , REFORM+1, REFORM+2, REACTV+1, REACTV+2, NEW+4, NEW+6, NEW+8, NEW+9, NEW+11, NEW+12
    , NEW+15, NEW+21, NEW+23, NEW+25, NEW+28, NEW+30, NEW+31, NEW+35, NEW+37, NEW+39
    , NEW+43, NEW+46, NEW+49, NEW+50, NEW+51, NEW+54, NEW+55, NEW+58, NEW+59, NEW+66
    , 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+28~, EN+31*, EN+32, NEW+33~, NEW+36*, NEW+37
    VHATD EN+28~, EN+33*, EN+34*, NEW+33~, NEW+38*, NEW+39*
    VHATS EN+28~, EN+29*, EN+30, EN+31, NEW+33~, NEW+34*, NEW+35, NEW+36
    VHATT EN+28~, EN+30*, EN+33, NEW+33~, NEW+35*, NEW+38
    X EN+1~, NOTES+3*, NEW+2~, NEW+15*, NEW+69*
    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