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 |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All
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>

Call Graph

Call Graph Total: 11

Package Total Call Graph
Inpatient Medications 5 $$ENLU^PSGMI  ENQ^PSIV  ^PSIVHLP  ^PSIVXU  ENIV^PSJAC  
VA Fileman 4 ^%DT  NOW^%DTC  ^DIC  ^DIR  
Kernel 1 ^%ZTLOAD  
Registration 1 INP^VADPT  

Caller Graph

Caller Graph Total: 5

Package Total Caller Graph
Inpatient Medications 5 PSIVLBDL  PSIVSUS  PSIVWL1  PSJI ACTIVE  PSJI RNL  

Entry Points

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

External References

Name Field # of Occurrence
^%DT BEGRNL, ENDRNL
NOW^%DTC DEQRNL, ENTACT
^%ZTLOAD QUERNL+1
^DIC BEG+5, END+5
^DIR BEG+2, END+2, WRD+1
$$ENLU^PSGMI BEG+4, END+4
ENQ^PSIV BEGRNL, ENDRNL
^PSIVHLP BEGRNL, ENDRNL
^PSIVXU ENRNL+1
ENIV^PSJAC PRNT
INP^VADPT DEQRNL1+1

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+1
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+4
Function Call: WRITE
  • Prompt: ?30,"*** THIS ORDER HAS A STATUS OF '",X,"' ***",!
  • Line Location: ENP3+10
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: " (",$P(PSIV,"^",4),")"
  • Line Location: ENP2+0
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
Routine Call
  • DIC
  • Line Location:
    • BEG+5
    • END+5
Routine Call
  • DIR
  • Line Location:
    • BEG+2
    • END+2
    • WRD+1

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^DIC(42 - [#42] Classic Fileman Calls

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DD("DD" WD
^DD(55.01 ENP3+10
^DPT - [#2] DEQRNL1+1
^PS(52.6 - [#52.6] ENP2
^PS(52.7 - [#52.7] ENP3+4
^PS(55 - [#55] DEQRNL+1, SETP, DEQRNL1+1, PRNT, ENP3, ENP3+1, ENP3+2, ENP3+7, ENP2, CHK
^UTILITY("PSIV" DEQRNL!, DEQRNL+2, QRNL!, UT*
^VA(200 - [#200] PRNT

Label References

Name Line Occurrences
BEG BEG+5, WRD+1
BEGRNL ENRNL+2, BEGRNL, BEGRNL+1
CHK DEQRNL+2
CHK2 ENP3, ENP3+1, ENP3+4, ENP3+5, ENP3+6, ENP3+7, ENP3+9, ENP3+11
DEQRNL1 DEQRNL+1
EN1 ENTACT
END BEG+3, BEG+4, END+5
ENDRNL ENDRNL, ENDRNL+1
ENP2 PRNT, ENP3, ENP3+1
HDR PRNT
PRNT CHK
QRNL BEGRNL, ENDRNL, BEG+3, END+3, WRD+2, QUERNL+1
QUERNL WRD+2
SETP DEQRNL+2, DEQRNL1+1
UT DEQRNL1+1
WD PRNT, HDR+1, HDR+2
WRD END+3, END+4

Naked Globals

Name Field # of Occurrence
^( ENP3+4
^($J DEQRNL*
^(0 ENP3+4, ENP2
^(1 ENP3+9
^(2 CHK
^(3 ENP3+7

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> % DEQRNL, ENTACT
>> %DT BEGRNL*
DA BEG+5!, END+5!
DFN ENRNL+2!, DEQRNL+1*, DEQRNL+2*, SETP, DEQRNL1+1, PRNT, ENP3, ENP3+1, ENP3+2, ENP3+7
, ENP2, UT, CHK
DIC BEG+5!*, END+5!*
DIC(0 BEG+5*, END+5*
DIR BEG!, END!, WRD+1!
DIR("?" BEG+1*, END+1*
DIR("A" BEG*, END*, WRD+1*
DIR("B" BEG*, END*
DIR(0 BEG*, END*, WRD+1*
>> DTOUT BEG+3, END+3
>> HELP BEGRNL*, ENDRNL*
I ENRNL+2!
IOF QRNL, HDR
ION WRD+2
IOSL PRNT
ON ENRNL+2!, DEQRNL+2*, SETP, DEQRNL1+1*, PRNT, ENP3, ENP3+1, ENP3+2, ENP3+7, ENP2
, UT, CHK, CHK2
P ENRNL+2!
P( SETP*
P(11 ENP3+6
P(17 ENP3+10, CHK
P(3 PRNT
P(6 PRNT
P(8 ENP3+5
P(9 ENP3+6
PSIV ENRNL+2!, PRNT*, ENP3*, ENP3+1*, ENP3+2*, ENP3+4*, ENP3+7*, ENP3+9*, ENP2*, ENP2+1*
PSIV("NME" DEQRNL1+1*
PSIV1 ENRNL+2!, DEQRNL+2*
PSIVBEG ENRNL+2!, BEGRNL+1*, DEQRNL*, DEQRNL+1, HDR+1, ENTACT*
PSIVDT ENRNL+2!, DEQRNL+1*, DEQRNL1+1
PSIVEND ENRNL+2!, EN1*, DEQRNL, DEQRNL+1, HDR, HDR+1, QUERNL, CHK
>> PSIVPR WRD+2, QRNL, QUERNL
PSIVRUN ENRNL+2!, DEQRNL*, HDR+2
>> PSIVSN CHK
SSNF ENP1+1*, ENP3+11!, CHK2*
U DEQRNL1+1, UT, CHK
>> VA("BID" CHK2
>> VADM(1 ENP1
VAERR ENRNL+2!
>> VAIN(4 UT
>> VAIN(5 PRNT
WARD ENRNL+2!, DEQRNL*, PRNT, HDR+3*
WRD ENRNL+2!, EN1!, DEQRNL+2*, PRNT, HDR+3
WRDB ENRNL+2!, BEG+3*, BEG+4*, BEG+6*, WRD*, WRD+1, DEQRNL+2
WRDE ENRNL+2!, END+3*, END+4*, END+6*, WRD*, WRD+1, DEQRNL, DEQRNL+2
X BEGRNL*, ENDRNL*, BEG+3, BEG+4*, BEG+5, END+3, END+4*, END+5, WRD!, WRD+1!
, SETP*, ENP3+10*, QUERNL*
X( WRD*, WRD+1
XQUIT ENRNL+1!
>> Y BEGRNL, BEGRNL+1, ENDRNL, ENDRNL+1, EN1, BEG+5, BEG+6, END+5, END+6, WD
, SETP*, PRNT*, ENP3+10*, HDR+1*, HDR+2*, ENTACT*
Z ENRNL+2!
>> ZTDESC QUERNL*
>> ZTIO QUERNL*
>> ZTQUEUED QRNL
>> ZTREQ QRNL*
>> ZTRTN QUERNL*
>> ZTSAVE( QUERNL*
>> ZTSK QUERNL+1
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All