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 |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  Marked Items  | All
Print Page as PDF
Routine: GMTSPSI

Package: Health Summary

Routine: GMTSPSI


Information

GMTSPSI ; SLC/JER,KER - IV Rx Summary Component (V4.5) ; 08/27/2002

Source Information

Source file <GMTSPSI.m>

Call Graph

Call Graph

Call Graph Total: 5

Package Total Call Graph
Health Summary 3 MAIN^GMTSPSI5  REGDT4^GMTSU  CKP^GMTSUP  
Inpatient Medications 1 ENHS^PSJEEU0  
Kernel 1 $$VERSION^XPDUTL  

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
MAIN^GMTSPSI5 MAIN+1
REGDT4^GMTSU WRT+5
CKP^GMTSUP NOPSJ+1, WRT+7, WRT+9, WRT+11, LSTSOL+2, HEAD+1
ENHS^PSJEEU0 MAIN+4, MAIN+5
$$VERSION^XPDUTL MAIN+1

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),?50,STAT,?57,SD,?69,FD,!
  • Line Location: WRT+9
Function Call: WRITE
  • Prompt: $E($P($P(GMTSDRUG,";",2),U),1,36),?38,$P(GMTSDRUG,U,2),!
  • Line Location: WRT+11
Function Call: WRITE
  • Prompt: ?3,$S(SOL=1!GMTSNPG:"In: ",1:" ")
  • Line Location: LSTSOL+4
Function Call: WRITE
  • Prompt: $P($P(SLN,";",2),U)," ",$P(SLN,U,2)," ",IR," ",SCH,!
  • Line Location: LSTSOL+5

Global Variables Directly Accessed

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

Label References

Name Line Occurrences
HEAD WRT+6, WRT+9, WRT+11, LSTSOL+3
NOPSJ MAIN+4
WRT MAIN+8

Naked Globals

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

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

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

Marked Items

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