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 ;5/10/94 16:42

Source Information

Source file <GMPLMGR1.m>

Call Graph

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  
Kernel 1 $$VERSION^XPDUTL  
List Manager 1 FULL^VALM1  
Order Entry Results Reporting 1 IN^OR  
Registration 1 DEM^VADPT  
VA FileMan 1 ^DIC  

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

Package Total Caller Graph
Problem List 20 GMPL CODE LIST  GMPL DATA ENTRY  GMPL DT MENU  GMPL MENU BUILD GROUP  GMPL MENU BUILD LIST  GMPL PATIENT  GMPL PROBLEM LIST  GMPL USER PREFS  
GMPL VIEW CLINIC  GMPL VIEW INCLUDE INACTIVE  GMPL VIEW PROVIDER  GMPL VIEW SERVICE  GMPLCODE  GMPLENFM  GMPLHS  GMPLMGR  
GMPLMGR2  GMPLPRNT  GMPLUTL  GMPLUTL3  
Health Summary 1 GMTSPLSZ  
Kernel 1 ^ORD(101  
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+6, GETPLIST+10
    ^AUPNPROB("ACTIVE" INACTIVE+4, GETPLIST+4, GETPLIST+5
    ^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+13*, GETPLIST+15*, GETPLIST+16
    DATE GETPLIST+1~, GETPLIST+10*, GETPLIST+11*, GETPLIST+12, GETPLIST+14*, GETPLIST+15
    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+11
    >> GMPARAM("VER" KEYS+1
    >> GMPDFN NEWPAT+5, NEWPAT+6*, NEWPAT+7, OEPAT+3, INACTIVE+4, GETPLIST+4, GETPLIST+5
    >> 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+5*, GETPLIST+6, GETPLIST+10, GETPLIST+12, GETPLIST+15*
    LIST GETPLIST+1~
    LIST( GETPLIST+12*, GETPLIST+13, GETPLIST+14, GETPLIST+15
    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+15*
    PLIST("B" GETPLIST+15*
    PLIST(0 GETPLIST+16*
    PROMPT NEWSRV+1~, NEWSRV+3*, NEWCLIN+1~, NEWCLIN+3*, NEW+4, NEW+7*
    RECORD GETPLIST+1~, GETPLIST+6*, GETPLIST+7, GETPLIST+8, GETPLIST+9, GETPLIST+10
    ST GETPLIST+1~, GETPLIST+3*, GETPLIST+4*, GETPLIST+5, GETPLIST+12, GETPLIST+13*, GETPLIST+14, GETPLIST+15
    STBEG GETPLIST+1~, GETPLIST+3*
    STEND GETPLIST+1~, GETPLIST+3*, GETPLIST+4
    TOTAL GETPLIST~, GETPLIST+3*, GETPLIST+7*
    U OEPAT+5, OEPAT+6, LISTSERV+6, LISTSERV+7, LISTCLIN+4, LISTCLIN+7, GETPLIST+7, GETPLIST+8, GETPLIST+9, GETPLIST+10
    >> 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
    VIEW("PROV" GETPLIST+9
    VIEW("VIEW" GETPLIST+8
    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