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 |  Marked Items  | All
Print Page as PDF
Routine: GMTSPSI5

Package: Health Summary

Routine: GMTSPSI5


Information

GMTSPSI5 ; SLC/JER,KER - IV Rx Summary Component (V5) ; 02/11/2003

Source Information

Source file <GMTSPSI5.m>

Call Graph

Call Graph

Call Graph Total: 3

Package Total Call Graph
Health Summary 2 REGDT4^GMTSU  CKP^GMTSUP  
Inpatient Medications 1 ENHS^PSJEEU0  

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

Package Total Caller Graph
Health Summary 1 GMTSPSI  

Entry Points

Name Comments DBIA/ICR reference
MAIN ; Controls Branching
NOPSJ ; Handles case where ^PSJEEU0 not present
WRT ; Prints IV Pharmacy order
LSTSOL ; Write Solutions
HEAD ; Prints Header

External References

Name Field # of Occurrence
REGDT4^GMTSU WRT+5
CKP^GMTSUP NOPSJ+1, WRT+7, WRT+10, WRT+12, WRT+16, LSTSOL+2, HEAD+1
ENHS^PSJEEU0 MAIN+3, MAIN+4

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: "Inpatient Pharmacy version 3.2 or greater is required.",!
  • Line Location: NOPSJ+1
Function Call: WRITE
  • Prompt: $E($P($P(^UTILITY("PSIV",$J,GMTSIDT,"A",1),";",2),U),1,36),?38,$P(^(1),U,2)
  • Line Location: WRT+11
Function Call: WRITE
  • Prompt: ?50,STAT,?57,SD,?69,FD,!
  • Line Location: WRT+12
Function Call: WRITE
  • Prompt: $E($P($P(GMTSDRUG,";",2),U),1,36),?38,$P(GMTSDRUG,U,2),!
  • Line Location: WRT+17
Function Call: WRITE
  • Prompt: ?3,$S(SOL=1!GMTSNPG:"In: ",1:" ")
  • Line Location: LSTSOL+3
Function Call: WRITE
  • Prompt: $P($P(SLN,";",2),U)," ",$P(SLN,U,2)," ",IR," ",SCH,!
  • Line Location: LSTSOL+4

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^UTILITY("PSG" MAIN+7!
^UTILITY("PSIV" MAIN+3!, MAIN+4, MAIN+6, MAIN+7!, WRT+2, WRT+9, WRT+11, WRT+15, LSTSOL+1

Label References

Name Line Occurrences
HEAD WRT+6, WRT+10, WRT+12, WRT+16, LSTSOL+2
NOPSJ MAIN+3
WRT MAIN+6

Naked Globals

Name Field # of Occurrence
^( WRT+16, LSTSOL+2
^(0 WRT+2
^(1 WRT+11

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
FD WRT+1~, WRT+2*, WRT+12
GMI MAIN+1~, MAIN+5*, WRT+6, WRT+7, WRT+8*
>> GMRANGE WRT+4
>> GMTS1 WRT+4
>> GMTS2 MAIN+2
GMTSAD WRT+1~, WRT+14*, WRT+15*, WRT+16
GMTSDRUG WRT+1~, WRT+16*, WRT+17
GMTSIDT MAIN+1~, MAIN+6*, WRT+2, WRT+9, WRT+11, WRT+15, LSTSOL+1
>> GMTSLO HEAD+2
>> GMTSNPG WRT+7, WRT+10, WRT+12, WRT+16, LSTSOL+2, LSTSOL+3, HEAD+1
>> GMTSQIT MAIN+6, NOPSJ+1, WRT+7, WRT+9, WRT+10, WRT+12, WRT+13, WRT+15, WRT+16, WRT+18
, LSTSOL+1, LSTSOL+2, HEAD+1
GMV WRT+1~, WRT+5*
GMW WRT+1~
IOSL HEAD+2
IR WRT+1~, WRT+2*, LSTSOL+4
MAX MAIN+1~
ON MAIN+1~
PS MAIN+1~
PSIVREA MAIN+1~
PSJEDT MAIN+1~, MAIN+2*
PSJNKF MAIN+1~, MAIN+2*
PSJPFWD MAIN+1~
SCH WRT+1~, WRT+2*, LSTSOL+4
SD WRT+1~, WRT+2*, WRT+4, WRT+12
SLN WRT+1~, LSTSOL+2*, LSTSOL+4
SOL WRT+1~, LSTSOL+1*, LSTSOL+2, LSTSOL+3
STAT WRT+1~, WRT+2*, WRT+12
TN MAIN+1~
U WRT+2, WRT+11, WRT+17, LSTSOL+4
X WRT+5*!

Marked Items

Name Field # of Occurrence
$T(ENHS^PSJEEU0 MAIN+3
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  Marked Items  | All