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

Package: Inpatient Medications

Routine: PSIVWL1


Information

PSIVWL1 ;BIR/RGY-WARD LIST ROUTINES ;02 AUG 96 / 9:40 AM

Source Information

Source file <PSIVWL1.m>

Entry Points

Name Comments DBIA/ICR reference
SELMAN ;
P
P0
ASK ;
SEL
SEL1
ENRSET
PRNT ;
HDR
SETP
WD
CODES
ENT ;
NOW
NOW1
QPRNT
NXT
ENINIT ;
K1

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!?5,"The manufacturing times on file are:"
  • Line Location: P+0
Function Call: WRITE
  • Prompt: !?10,I," ",$E($P(X,"^",5),1,2),":",$E($P(X,"^",5),3,4)," ",$$CODES^PSIVUTL($P(X,"^",2),59.51,.02)_" covering ",$P(X,"^",3),"."
  • Line Location: P0+0
Function Call: WRITE
  • Prompt: !
  • Line Location: SEL+1
Function Call: WRITE
  • Prompt: !
  • Line Location: ENRSET+0
Function Call: WRITE
  • Prompt: !,"... Ward list #",$P(X,",",I)," reset"
  • Line Location: ENRSET+1
Function Call: WRITE
  • Prompt: !,VAIN(5),?30
  • Line Location: PRNT+2
Function Call: WRITE
  • Prompt: ?70
  • Line Location: PRNT+2
Function Call: WRITE
  • Prompt: ?70
  • Line Location: PRNT+2
Function Call: WRITE
  • Prompt: ?70
  • Line Location: PRNT+2
Function Call: WRITE
  • Prompt: !,PSIV("NME")
  • Line Location: PRNT+3
Function Call: WRITE
  • Prompt: @IOF
  • Condition for execution: $Y
  • Line Location: HDR+0
Function Call: WRITE
  • Prompt: !,"WARD LIST FOR IV ROOM: ",$P(^PS(59.5,PSIVSN,0),U)," AT "
  • Line Location: HDR+0
Function Call: WRITE
  • Prompt: $P(Y,"@"),?70,"Printed on : "
  • Line Location: HDR+0
Function Call: WRITE
  • Prompt: $P(Y,"@"),?70,"Printed on : "
  • Line Location: HDR+0
Function Call: WRITE
  • Prompt: $P(Y,"@"),?70,"Printed on : "
  • Line Location: HDR+0
Function Call: WRITE
  • Prompt: !,X,"S",?15," covering from "
  • Line Location: HDR+1
Function Call: WRITE
  • Prompt: " to "
  • Line Location: HDR+1
Function Call: WRITE
  • Prompt: " to "
  • Line Location: HDR+1
Function Call: WRITE
  • Prompt: !!?92,"Qty",!,"Patient name",?40,"Order",?70,"Stop date",?90,"needed",?100,"Provider/Initial"
  • Line Location: HDR+2
Function Call: WRITE
  • Prompt: !
  • Line Location: HDR+3
Function Call: WRITE
  • Prompt: "-"
  • Line Location: HDR+3
Function Call: WRITE
  • Prompt: " Ward: ",WRD," "
  • Condition for execution: X=50
  • Line Location: HDR+3
Function Call: WRITE
  • Prompt: $P(Y,"@")," ",$P(Y,"@",2)
  • Line Location: WD+0
Info |  Source |  Entry Points |  Interaction Calls