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

Package: Inpatient Medications

Routine: PSIVMAN1


Information

PSIVMAN1 ;BIR/RGY,PR-COMPILE MAN LIST ;07 OCT 97 / 9:35 AM

Source Information

Source file <PSIVMAN1.m>

Entry Points

Name Comments DBIA/ICR reference
PRNTO ;
SOL
PAT
ENT ; will print man. list
LOOKUP ; expand drug info
RGY ;
SETP
WD
HDR
HDRE
RGY1
TOTAL

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: ?80,"Lot#: __________"
  • Line Location: PRNTO+4
Function Call: WRITE
  • Prompt: !
  • Line Location: PRNTO+7
Function Call: WRITE
  • Prompt: ?16,"<<HAZ Handle>>"
  • Condition for execution: $P(PSHAZD,"^")
  • Line Location: PRNTO+7
Function Call: WRITE
  • Prompt: ?15," <<HAZ Dispose>>"
  • Condition for execution: $P(PSHAZD,"^",2)
  • Line Location: PRNTO+7
Function Call: WRITE
  • Prompt: !?16,PSIVSL
  • Line Location: SOL+3
Function Call: WRITE
  • Prompt: !
  • Line Location: SOL+7
Function Call: WRITE
  • Prompt: ?16,"<<HAZ Handle>>"
  • Condition for execution: $P(PSHAZS,"^")
  • Line Location: SOL+7
Function Call: WRITE
  • Prompt: ?15," <<HAZ Dispose>>"
  • Condition for execution: $P(PSHAZS,"^",2)
  • Line Location: SOL+7
Function Call: WRITE
  • Prompt: !?4,"[",ON,"] ",?10,VADM(1)," (",$E(VADM(2),6,9),") (",$S(+VAIN(4):$P(VAIN(4),U,2),1:"Outpatient IV"),")",?62,+^PS(55,PSIVGL1,PSIVSN,PSIVGL2,PSIVT,PSIV1,PSIV2,DFN,ON)
  • Line Location: PAT+0
Function Call: WRITE
  • Prompt: !
  • Line Location: PAT+3
Function Call: WRITE
  • Prompt: $P(Y,"@")," ",$P(Y,"@",2)
  • Line Location: WD+0
Function Call: WRITE
  • Prompt: "ROM SUSPENSE"
  • Line Location: HDR+0
Function Call: WRITE
  • Prompt: "OR IV ROOM: ",$P(^PS(59.5,PSIVSN,0),U)," AT "
  • Line Location: HDR+1
Function Call: WRITE
  • Prompt: $P(Y,"@")
  • Line Location: HDR+1
Function Call: WRITE
  • Prompt: !,"Printed on",?30,": "
  • Line Location: HDR+2
Function Call: WRITE
  • Prompt: !,X," manufacturing time: "
  • Line Location: HDR+5
Function Call: WRITE
  • Prompt: !!,X,"S covering from "
  • Line Location: HDR+5
Function Call: WRITE
  • Prompt: !!,X,"S covering from "
  • Line Location: HDR+5
Function Call: WRITE
  • Prompt: !
  • Line Location: HDR+6
Function Call: WRITE
  • Prompt: !!?20,"Order",?60,"Totals",?80,"Lot #'s"
  • Line Location: HDR+7
Function Call: WRITE
  • Prompt: !
  • Line Location: HDRE+0
Function Call: WRITE
  • Prompt: "-"
  • Line Location: HDRE+0
Function Call: WRITE
  • Prompt: !
  • Line Location: HDRE+1
Function Call: WRITE
  • Prompt: !,"*** ",X,"S ***",!
  • Condition for execution: X]""
  • Line Location: HDRE+1
Function Call: WRITE
  • Prompt: !,PSIVDN,?55,"Total: ",^PS(55,PSIVGL1,PSIVSN,PSIVGL2,PSIVT,PSIV1,0)
  • Line Location: RGY1+0
Function Call: WRITE
  • Prompt: !?16,PSIVDN
  • Condition for execution: $E(PSIVDN,1,3)="***"
  • Line Location: RGY1+0
Function Call: WRITE
  • Prompt: !?60,"_______",!?47,"Overall Total: ",TOTAL
  • Line Location: TOTAL+0
Info |  Source |  Entry Points |  Interaction Calls