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

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

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
Info |  Source |  Entry Points |  Interaction Calls