Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call
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>

Entry Points

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

    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
    • Variable: X
    • Timeout: DTIME
    • 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
    • Variable: Y
    • Timeout: DTIME
    • 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
    • Variable: Y
    • Timeout: DTIME
    • 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
    • Formatting: !
    • Prompt: "Select PROVIDER: "
    • Variable: X
    • Timeout: DTIME
    • 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

    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
    Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call