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 |  FileMan Files Accessed Via FileMan Db Call
Print Page as PDF
Routine: PSIVRNL

Package: Inpatient Medications

Routine: PSIVRNL


Information

PSIVRNL ;BIR/RGY-PRINT RENEWAL AND ACTIVE ORDER LIST ; 15 May 98 / 9:27 AM

Source Information

Source file <PSIVRNL.m>

Entry Points

Name Comments DBIA/ICR reference
ENRNL ;
BEGRNL
ENDRNL
EN1
BEG
END
WRD
DEQRNL
QRNL
WD
SETP
DEQRNL1 ;
PRNT
ENP1
ENP3
ENP2
HDR
QUERNL
UT
CHK
ENTACT
CHK2

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: $C(7),!!,"*** Please enter time with date. ***",!
  • Line Location: BEGRNL+1
Function Call: WRITE
  • Prompt: $C(7),!!,"*** Please enter time with date. ***",!
  • Line Location: ENDRNL+1
Function Call: WRITE
  • Prompt: $P("^OUTPATIENT IV",X,2)
  • Line Location: BEG+4
Function Call: WRITE
  • Prompt: $P("^OUTPATIENT IV",X,2)
  • Line Location: END+4
Function Call: WRITE
  • Prompt: !
  • Line Location: WRD+1
Function Call: WRITE
  • Prompt: $P(Y,"@")," ",$P(Y,"@",2)
  • Line Location: WD+0
Function Call: WRITE
  • Prompt: !,VAIN(5),?30
  • Line Location: PRNT+0
Function Call: WRITE
  • Prompt: ?80
  • Line Location: PRNT+0
Function Call: WRITE
  • Prompt: ?80
  • Line Location: PRNT+0
Function Call: WRITE
  • Prompt: !,VADM(1)
  • Line Location: ENP1+0
Function Call: WRITE
  • Prompt: !
  • Line Location: ENP3+0
Function Call: WRITE
  • Prompt: !
  • Line Location: ENP3+2
Function Call: WRITE
  • Prompt: ?30,$S($D(^PS(52.7,$P(PSIV,"^",2),0)):$P(^(0),"^")_" "_$P(PSIV,"^",3)_" "_$P(^(0),"^",4),1:"*** Undefined Solution"),!
  • Line Location: ENP3+5
Function Call: WRITE
  • Prompt: ?30,$G(P("HAZHA"))_$G(P("HAZDA"))
  • Line Location: ENP3+10
Function Call: WRITE
  • Prompt: ?30,"*** THIS ORDER HAS A STATUS OF '",X,"' ***",!
  • Line Location: ENP3+15
Function Call: WRITE
  • Prompt: ?30,$S($D(^PS(52.6,$P(PSIV,"^",2),0)):$P(^(0),"^")_" "_$P(PSIV,"^",3),1:"*** Undefined Additive")
  • Line Location: ENP2+0
Function Call: WRITE
  • Prompt: !?30,$G(P("HAZHS"))_$G(P("HAZDS"))
  • Line Location: ENP2+3
Function Call: WRITE
  • Prompt: " (",$P(PSIV,"^",4),")"
  • Line Location: ENP2+5
Function Call: WRITE
  • Prompt: @IOF,!!
  • Condition for execution: $Y
  • Line Location: HDR+0
Function Call: WRITE
  • Prompt: "Active order list"
  • Line Location: HDR+0
Function Call: WRITE
  • Prompt: "Renewal list from "
  • Line Location: HDR+1
Function Call: WRITE
  • Prompt: " to "
  • Line Location: HDR+1
Function Call: WRITE
  • Prompt: !,"Printed on: "
  • Line Location: HDR+2
Function Call: WRITE
  • Prompt: !!,"Patient name",?40,"Order",?80,"Stop date",?105,"Provider",!
  • Line Location: HDR+2
Function Call: WRITE
  • Prompt: !!,"Patient name",?40,"Order",?80,"Stop date",?105,"Provider",!
  • Line Location: HDR+2
Function Call: WRITE
  • Prompt: !?50,"**** Ward: ",WRD," ****"
  • Line Location: HDR+3
Function Call: WRITE
  • Prompt: !
  • Line Location: HDR+3
Function Call: WRITE
  • Prompt: VA("BID")," [",ON,"]"
  • Line Location: CHK2+0

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^DIC(42 - [#42] Classic Fileman Calls
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call