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

Package: Problem List

Routine: GMPLMGR1


Information

GMPLMGR1 ; SLC/MKB -- Problem List VALM Utilities cont ;06-Dec-2013 10:52;DU

Source Information

Source file <GMPLMGR1.m>

Call Graph

Call Graph Total: 10

Package Total Call Graph
Problem List 5 NPHELP^GMPLEDT2  (BUILD,HDR)^GMPLMGR  AUTO^GMPLMGR2  $$MSG^GMPLX  ($$PAT,VADPT)^GMPLX1  
Registration 2 DEM^VADPT  FULL^VALM1  
Kernel 1 $$VERSION^XPDUTL  
Order Entry Results Reporting 1 IN^OR  
VA Fileman 1 ^DIC  

Caller Graph

Caller Graph Total: 10

Package Total Caller Graph
Problem List 8 GMPLCODE  GMPLENFM  GMPLHS  GMPLMGR  GMPLMGR2  GMPLPRNT  GMPLUTL  GMPLUTL3  
Health Summary 1 GMTSPLSZ  
Order Entry Results Reporting 1 ORQQPL3  

Entry Points

Name Comments DBIA/ICR reference
NEWPAT ; select new patient
LISTSERV ; List clinical services
NPRV
NEWCLIN ; Select new clinic
KEYS ; adds to XQORM("KEY") array
OEPAT() ; Calls OE/RR to return new patient, or -1
INACTIVE ; Incl inactive problems
NEWPROV ; select new provider
KEY
GETPLIST(PLIST,TOTAL,VIEW) ; Build PLIST(#)=IFN for view
  • ICR #2979
    • Status: Active
    • Usage: Controlled Subscription
    NEW ; prompt, from NEWSRV or NEWCLIN
    LISTCLIN ; List clinics
    NEWSRV ; select new service

    External References

    Name Field # of Occurrence
    ^DIC NEW+7, NPRV+5
    NPHELP^GMPLEDT2 NPRV+4
    BUILD^GMPLMGR NEWPAT+9, INACTIVE+7
    HDR^GMPLMGR NEWPAT+9, INACTIVE+7
    AUTO^GMPLMGR2 NEWPAT+2
    $$MSG^GMPLX NEWPAT+10, INACTIVE+6
    $$PAT^GMPLX1 NEWPAT+4
    VADPT^GMPLX1 NEWPAT+7
    IN^OR OEPAT+2
    DEM^VADPT OEPAT+4
    FULL^VALM1 NEWPAT+3
    $$VERSION^XPDUTL NEWPAT+4

    Interaction Calls

    Name Line Occurrences
    Function Call: WRITE
    • Prompt: !
    • Line Location: NEWPAT+3
    Function Call: WRITE
    • Prompt: !!,"Listing already includes inactive problems!"
    • Line Location: INACTIVE+3
    Function Call: WRITE
    • Prompt: !!,"Patient has no inactive problems to include.",!
    • Line Location: INACTIVE+5
    Function Call: WRITE
    • Prompt: !!,"Enter the "_VIEW_" from which you wish to view problems:"
    • Line Location: NEW+2
    Function Call: READ
    • Timeout: DTIME
    • Variable: X
    • Line Location: NEW+4
    Function Call: WRITE
    • Prompt: !!?3,"Enter the "_VIEW_", one at a time, from which you wish to view",!?3,"problems; press <return> when you have finished.",!
    • Line Location: NEW+5
    Function Call: WRITE
    • Prompt: !,"Choose from: "
    • Line Location: LISTSERV+2
    Function Call: READ
    • Timeout: DTIME
    • Variable: Y
    • Line Location: LISTSERV+5
    Function Call: WRITE
    • Prompt: !," "_$P(^DIC(49,I,0),U)
    • Line Location: LISTSERV+6
    Function Call: WRITE
    • Prompt: !
    • Line Location: LISTSERV+8
    Function Call: WRITE
    • Prompt: !,"Choose from: "
    • Line Location: LISTCLIN+2
    Function Call: READ
    • Timeout: DTIME
    • Variable: Y
    • Line Location: LISTCLIN+6
    Function Call: WRITE
    • Prompt: !," "_$P($G(^SC(I,0)),U)
    • Line Location: LISTCLIN+7
    Function Call: WRITE
    • Prompt: !
    • Line Location: LISTCLIN+8
    Function Call: WRITE
    • Prompt: !!,"Enter the name of the provider whose problems you wish to view:"
    • Line Location: NEWPROV+3
    Function Call: READ
    • Prompt: "Select PROVIDER: "
    • Formatting: !
    • Timeout: DTIME
    • Variable: X
    • Line Location: NPRV+0
    Function Call: WRITE
    • Prompt: !!?3,"If you wish to see only those problems of the current patient that"
    • Line Location: NPRV+2
    Function Call: WRITE
    • Prompt: !?3,"are associated with a specific provider, enter his/her name here.",!
    • Line Location: NPRV+3
    Routine Call
    • DIC
    • Line Location:
      • NEW+7
      • NPRV+5

    FileMan Files Accessed Via FileMan Db Call

    FileNo Call Tags
    ^VA(200 - [#200] Classic Fileman Calls
    ^SC - [#44] Classic Fileman Calls
    ^DIC(49 - [#49] Classic Fileman Calls

    Global Variables Directly Accessed

    Name Line Occurrences  (* Changed,  ! Killed)
    ^AUPNPROB - [#9000011] GETPLIST+12, GETPLIST+16
    ^AUPNPROB("ACTIVE" INACTIVE+4, GETPLIST+6, GETPLIST+11
    ^DIC(49 - [#49] LISTSERV+3, LISTSERV+6, LISTSERV+7
    ^ORD(101 - [#101] KEYS+1, KEY
    ^SC - [#44] LISTCLIN+3, LISTCLIN+4, LISTCLIN+7

    Label References

    Name Line Occurrences
    $$OEPAT NEWPAT+4
    @( NEW+6
    GETPLIST NEWPAT+8, INACTIVE+7
    NEW NEWSRV+4, NEWCLIN+4
    NPRV NPRV+1, NPRV+4, NPRV+5

    Naked Globals

    Name Field # of Occurrence
    ^(0 LISTSERV+7

    Local Variables

    Legend:

    >> Not killed explicitly
    * Changed
    ! Killed
    ~ Newed

    Name Field # of Occurrence
    CNT LISTSERV+1~*, LISTSERV+4*, LISTCLIN+1~*, LISTCLIN+5*, GETPLIST+1~, GETPLIST+19*, GETPLIST+21*, GETPLIST+22
    DATE GETPLIST+1~, GETPLIST+16*, GETPLIST+17*, GETPLIST+18, GETPLIST+20*, GETPLIST+21
    DFN OEPAT+1~, OEPAT+4*, OEPAT+5
    DIC NEWSRV+1~, NEWSRV+2*, NEWCLIN+1~, NEWCLIN+2*, NEWPROV+1~, NEWPROV+2*
    DIC("S" NEWSRV+2*, NEWCLIN+2*
    DIC(0 NEW+1*, NEWPROV+2*
    DTIME NEW+4, LISTSERV+5, LISTCLIN+6, NPRV
    >> DTOUT NEWPAT+2
    >> GMPAGTOR NEWPAT+7*
    >> GMPARAM("PRT" NEWPAT+2
    >> GMPARAM("QUIET" GETPLIST+2
    >> GMPARAM("REV" GETPLIST+17
    >> GMPARAM("VER" KEYS+1
    >> GMPDFN NEWPAT+5, NEWPAT+6*, NEWPAT+7, OEPAT+3, INACTIVE+4, GETPLIST+6, GETPLIST+11
    >> GMPGULF NEWPAT+7*
    >> GMPION NEWPAT+7*
    >> GMPLIST NEWPAT+8, NEWPAT+9, INACTIVE+7
    >> GMPLVIEW NEWPAT+8, INACTIVE+7
    >> GMPLVIEW("ACT" INACTIVE+2, INACTIVE+6*
    >> GMPLVIEW("PROV" NPRV+6*
    >> GMPLVIEW("VIEW" NEWSRV+5*, NEWCLIN+5*
    >> GMPQUIT NEWSRV+1, NEWSRV+4, NEWCLIN+1, NEWCLIN+4, NEW+3, NEW+4*, NEW+8, NEWPROV+1, NPRV*
    >> GMPREBLD NEWSRV+5*, NEWCLIN+5*, NPRV+6*
    GMPRINT NEWPAT+2, NEWPAT+8!
    >> GMPSC NEWPAT+7*
    >> GMPTOTAL NEWPAT+8, INACTIVE+7
    >> GMPVA NEWPAT+7
    HELPMSG NEWSRV+1~, NEWSRV+3*, NEWCLIN+1~, NEWCLIN+3*, NEW+6
    I LISTSERV+1~, LISTSERV+3*, LISTSERV+6, LISTCLIN+1~, LISTCLIN+3*, LISTCLIN+4, LISTCLIN+7
    IFN GETPLIST+1~, GETPLIST+11*, GETPLIST+12, GETPLIST+16, GETPLIST+18, GETPLIST+21*
    LIST GETPLIST+1~
    LIST( GETPLIST+18*, GETPLIST+19, GETPLIST+20, GETPLIST+21
    NEWPROV NEWPROV+1~*, NPRV+5*, NPRV+6
    NEWPT NEWPAT+1~, NEWPAT+4*, NEWPAT+5, NEWPAT+6
    NEWVIEW NEWSRV+1~, NEWSRV+5, NEWCLIN+1~, NEWCLIN+5, NEW+1*, NEW+7*, NEW+8*
    >> ORVP NEWPAT+4, OEPAT+2, OEPAT+3, OEPAT+4
    PLIST GETPLIST~, GETPLIST+1!
    PLIST( GETPLIST+21*
    PLIST("B" GETPLIST+21*
    PLIST(0 GETPLIST+22*
    PROMPT NEWSRV+1~, NEWSRV+3*, NEWCLIN+1~, NEWCLIN+3*, NEW+4, NEW+7*
    RECORD GETPLIST+1~, GETPLIST+12*, GETPLIST+13, GETPLIST+14, GETPLIST+15, GETPLIST+16
    ST GETPLIST+1~, GETPLIST+3*, GETPLIST+6*, GETPLIST+8, GETPLIST+10, GETPLIST+11, GETPLIST+18, GETPLIST+19*, GETPLIST+20, GETPLIST+21
    STBEG GETPLIST+1~, GETPLIST+3*
    STEND GETPLIST+1~, GETPLIST+3*
    TOTAL GETPLIST~, GETPLIST+3*, GETPLIST+13*
    U OEPAT+5, OEPAT+6, LISTSERV+6, LISTSERV+7, LISTCLIN+4, LISTCLIN+7, GETPLIST+13, GETPLIST+14, GETPLIST+15, GETPLIST+16
    >> VA("BID" OEPAT+5
    VADM OEPAT+1~
    VADM(1 OEPAT+5
    VADM(6 OEPAT+6
    >> VALMBCK NEWPAT+1*, NEWPAT+2*, INACTIVE+1*, INACTIVE+6*
    >> VALMBG NEWPAT+6*
    >> VALMCC INACTIVE+1
    >> VALMSG NEWPAT+10*, INACTIVE+6*
    VIEW NEWSRV+1~, NEWSRV+3*, NEWCLIN+1~, NEWCLIN+3*, NEW+2, NEW+5, GETPLIST~
    VIEW("ACT" GETPLIST+3, GETPLIST+10
    VIEW("PROV" GETPLIST+15
    VIEW("VIEW" GETPLIST+14
    X NEW+1~, NEW+3, NEW+4*, NEW+5, NEW+6, NEWPROV+1~, NPRV*, NPRV+1, NPRV+4
    >> XQORM("KEY" KEYS+1*, KEY*
    Y OEPAT+1~, OEPAT+5*, OEPAT+6*, OEPAT+7, NEW+1~, NEW+7, LISTSERV+1~*, LISTSERV+3, LISTSERV+4, LISTSERV+5*
    , LISTCLIN+1~*, LISTCLIN+3, LISTCLIN+5, LISTCLIN+6*, NEWPROV+1~, NPRV+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 |  Naked Globals |  Local Variables |  All