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 |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All
Print Page as PDF
Routine: GMPLRPTS

Package: Problem List

Routine: GMPLRPTS


Information

GMPLRPTS ; SLC/MKB -- Problem List Mgt Reports ;1/26/95 10:00

Source Information

Source file <GMPLRPTS.m>

Call Graph

Call Graph

Call Graph Total: 7

Package Total Call Graph
Kernel 4 (,HOME)^%ZIS  ^%ZISC  ^%ZTLOAD  ($$REPEAT,$$UP)^XLFSTR  
VA FileMan 2 WAIT^DICD  ^DIR  
Problem List 1 ($$EXTDT,SEARCH)^GMPLX  

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

Package Total Caller Graph
Electronic Health Modernization 2 EHM-01415  EHM-01416  
Problem List 2 GMPL PATIENT LISTING  GMPL PROBLEM LISTING  

Entry Points

Name Comments DBIA/ICR reference
PAT ; List patients having data in Problem file #9000011
PATQ
PROB ; Search for/List patients with selected problem
PROB1
PROBQ
KILL ; Clean-up after ourselves
DEVICE ; Prompt for device to send report to -- Sets GMPQUIT to quit
DQ
PRT ; Print patient listing from ^TMP("GMPRT",$J,)
HDR ; Prints report header
RETURN ; Checks for end-of-page, continue
STATUS() ; Prompts for problem status to search for

External References

Name Field # of Occurrence
^%ZIS DEVICE+1
HOME^%ZIS DEVICE+5
^%ZISC PRT+8
^%ZTLOAD DEVICE+5
WAIT^DICD PAT+2, PROB1+3
^DIR RETURN+3, STATUS+5
$$EXTDT^GMPLX HDR+2
SEARCH^GMPLX PROB1
$$REPEAT^XLFSTR HDR+4
$$UP^XLFSTR PROB1+1, PROB1+8, PROB1+14

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: "."
  • Line Location: PAT+6
Function Call: WRITE
  • Prompt: $C(7),!!,"No patient data available.",!
  • Line Location: PAT+7
Function Call: WRITE
  • Prompt: $C(7),!!,"No patient data available.",!
  • Line Location: PROB1+13
Function Call: WRITE
  • Prompt: !,NAME,?60,^TMP("GMPRT",$J,NAME)
  • Line Location: PRT+4
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: HDR+1
Function Call: WRITE
  • Prompt: GMPLHDR,?60,$$EXTDT^GMPLX(DT),?70,"PAGE "_PAGE,!!
  • Line Location: HDR+2
Function Call: WRITE
  • Prompt: "Patient Name",?60,$S(GMPLCNT:"# Active/Inactive",1:"Status"),!
  • Line Location: HDR+3
Function Call: WRITE
  • Prompt: $$REPEAT^XLFSTR("-",79),!
  • Line Location: HDR+4
Function Call: WRITE
  • Prompt: !
  • Line Location: RETURN+2
Routine Call
  • %ZIS
  • Line Location:
    • DEVICE+1
Routine Call
  • %ZIS
  • Line Location:
    • DEVICE+5
Routine Call
  • DIR
  • Line Location:
    • RETURN+3
    • STATUS+5

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^AUPNPROB - [#9000011] PAT+5, PROB1+5, PROB1+6, PROB1+7
^AUPNPROB("AC" PAT+3, PAT+5
^AUPNPROB("C" PROB1+4
^AUTNPOV - [#9999999.27] PROB1+8
^DPT - [#2] PAT+6, PROB1+7
^TMP("GMPRT" PAT+6*, PROB1+9*, PROB1+10, PROB1+11*, PROB1+12*, KILL+1!, PRT+2, PRT+4

Label References

Name Line Occurrences
$$STATUS PROB1+2
DEVICE PAT+9, PROB1+15
DQ DEVICE+1
HDR PRT+1, PRT+3
KILL PATQ, PROB1+13, PROB1+15, PROB1+16, PROBQ, PRT+7
PATQ PAT+7, PAT+9
PROB1 PROB1+13, PROB1+15, PROB1+16
PROBQ PROB1, PROB1+2
PRT PAT+10, PROB1+16
RETURN PRT+3, PRT+6

Naked Globals

Name Field # of Occurrence
^(0 PAT+5

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
%ZIS DEVICE+1*, DQ!
CNT PAT+1~
CNT( PAT+5*
CNT("A" PAT+4*, PAT+6
CNT("I" PAT+4*, PAT+6
DFN PAT+1~, PAT+3*, PAT+5, PAT+6, PROB+1~, PROB1+7*
DIR RETURN+1~, STATUS+1~
DIR("?" STATUS+4*
DIR("A" STATUS+3*
DIR("B" STATUS+3*
DIR(0 RETURN+3*, STATUS+2*
DT HDR+2
>> DTOUT STATUS+5
>> DUOUT STATUS+5
>> GMPLCNT PAT+8*, PROB1+14*, HDR+3
GMPLHDR PAT+8*, PROB1+14*, KILL+1!, DEVICE+3, HDR+2
GMPQUIT PAT+9, PROB1+15, KILL+1!, DEVICE+1*, DEVICE+5*, PRT+2, PRT+3, PRT+5, PRT+6, RETURN+3*
GMPRT PAT+1*, PAT+6*, PAT+7, PROB1+3*, PROB1+9*, PROB1+13, KILL+1!, PRT+5
GMPTERM PROB+1~, PROB1+1*, PROB1+4, PROB1+8, PROB1+14
GMPTEXT PROB+1~, PROB1+1*, PROB1+8
I RETURN+1~, RETURN+2*
IFN PAT+1~, PAT+4*, PAT+5*, PROB+1~, PROB1+4*, PROB1+5, PROB1+6, PROB1+7
IO PRT+1
IO("Q" DEVICE+2, DQ!
IOF PRT+6, HDR+1
IOSL PRT+3, RETURN+2
IOST PRT+6, RETURN+1
NAME PROB+1~, PROB1+7*, PROB1+9, PROB1+10, PROB1+11, PROB1+12, PRT+1~*, PRT+2*, PRT+4
>> NODE PROB1+7*
PAGE PRT+1~*, HDR+1*, HDR+2
POP DEVICE+1, DQ!
ST PAT+1~, PAT+5*, PROB+1~, PROB1+7*, PROB1+9, PROB1+10, PROB1+11, PROB1+12
STATUS PROB+1~, PROB1+2*, PROB1+6
TXT PROB+1~, PROB1+7*, PROB1+8
U PAT+5, PAT+6, PROB1+5, PROB1+6, PROB1+7, PROB1+8, PROB1+14
X PROB+1~, PROB1, PROB1+1, KILL+1!, RETURN+1~, STATUS+1~
Y PROB+1~, PROB1, PROB1+1, KILL+1!, RETURN+1~, RETURN+3, STATUS+1~, STATUS+5*, STATUS+6
ZTDESC DEVICE+3*, DQ!
>> ZTQUEUED PRT+7
>> ZTREQ PRT+7*
ZTRTN DEVICE+3*, DQ!
ZTSAVE DQ!
ZTSAVE("GMPLCNT" DEVICE+4*
ZTSAVE("GMPLHDR" DEVICE+4*
ZTSAVE("GMPRT" DEVICE+4*
ZTSAVE("^TMP(""GMPRT"",$J," DEVICE+4*
ZTSK DEVICE+5, DQ!
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All