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

Call Graph Total: 12

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  
Pharmacy Data Management 1 $$HAZ^PSSUTIL  
Registration 1 INP^VADPT  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

action A extended action Ea event driver Ed subscriber Su protocol O limited protocol LP run routine RR broker B edit E server Se print P screenman SM inquire I

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
ENRNL ;
BEGRNL
ENDRNL
EN1
BEG
END
WRD
DEQRNL
QRNL
WD
SETP
DEQRNL1 ;
PRNT
ENP1
ENP3
ENP2
HDR
QUERNL
UT
CHK
ENTACT
CHK2

External References

Name Field # of Occurrence
^%DT BEGRNLENDRNL
NOW^%DTC DEQRNLENTACT
^%ZTLOAD QUERNL+1
^DIC BEG+5, END+5
^DIR BEG+2, END+2, WRD+1
$$ENLU^PSGMI BEG+4, END+4
ENQ^PSIV BEGRNLENDRNL
^PSIVHLP BEGRNLENDRNL
^PSIVXU ENRNL+1
ENIV^PSJAC PRNT
$$HAZ^PSSUTIL ENP3+6, ENP2+1
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,$G(P("HAZHA"))_$G(P("HAZDA"))
  • Line Location: ENP3+9
Function Call: WRITE
  • Prompt: ?30,"*** THIS ORDER HAS A STATUS OF '",X,"' ***",!
  • Line Location: ENP3+14
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
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+14
^DPT - [#2] DEQRNL1+1
^PS(52.6 - [#52.6] ENP2ENP2+1
^PS(52.7 - [#52.7] ENP3+4, ENP3+6
^PS(55 - [#55] DEQRNL+1, SETPDEQRNL1+1, PRNTENP3ENP3+1, ENP3+2, ENP3+11, ENP2CHK
^UTILITY("PSIV" DEQRNL!, DEQRNL+2, QRNL!, UT*
^VA(200 - [#200] PRNT

Label References

Name Line Occurrences
BEG BEG+5, WRD+1
BEGRNL ENRNL+2, BEGRNLBEGRNL+1
CHK DEQRNL+2
CHK2 ENP3ENP3+1, ENP3+4, ENP3+8, ENP3+10, ENP3+11, ENP3+13, ENP3+15
DEQRNL1 DEQRNL+1
EN1 ENTACT
END BEG+3, BEG+4, END+5
ENDRNL ENDRNLENDRNL+1
ENP2 PRNTENP3ENP3+1
HDR PRNT
PRNT CHK
QRNL BEGRNLENDRNLBEG+3, END+3, WRD+2, QUERNL+1
QUERNL WRD+2
SETP DEQRNL+2, DEQRNL1+1
UT DEQRNL1+1
WD PRNTHDR+1, HDR+2
WRD END+3, END+4

Naked Globals

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

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> % DEQRNLENTACT
>> %DT BEGRNL*
DA BEG+5!, END+5!
DFN ENRNL+2!, DEQRNL+1*, DEQRNL+2*, SETPDEQRNL1+1, PRNTENP3ENP3+1, ENP3+2, ENP3+11
ENP2UTCHK
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 QRNLHDR
ION WRD+2
IOSL PRNT
ON ENRNL+2!, DEQRNL+2*, SETPDEQRNL1+1*, PRNTENP3ENP3+1, ENP3+2, ENP3+11, ENP2
UTCHKCHK2
P ENRNL+2!
P( SETP*
P("HAZDA" ENP3+7*, ENP3+9!
P("HAZDS" ENP2+2*, ENP2+3!
P("HAZHA" ENP3+6*, ENP3+9!
P("HAZHS" ENP2+1*, ENP2+3!
P(11 ENP3+10
P(17 ENP3+14, CHK
P(3 PRNT
P(6 PRNT
P(8 ENP3+8
P(9 ENP3+10
PSDG ENP2+1~*
PSHAZ ENP3+6~*, ENP3+7, ENP2+1~*, ENP2+2
PSIV ENRNL+2!, PRNT*, ENP3*, ENP3+1*, ENP3+2*, ENP3+4*, ENP3+6, ENP3+11*, ENP3+13*, ENP2*
ENP2+1, ENP2+4*, ENP2+5
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*, DEQRNLDEQRNL+1, HDRHDR+1, QUERNLCHK
>> PSIVPR WRD+2, QRNLQUERNL
PSIVRUN ENRNL+2!, DEQRNL*, HDR+2
>> PSIVSN CHK
PSSL ENP3+6~*
SSNF ENP1+1*, ENP3+15!, CHK2*
U DEQRNL1+1, UTCHK
>> VA("BID" CHK2
>> VADM(1 ENP1
VAERR ENRNL+2!
>> VAIN(4 UT
>> VAIN(5 PRNT
WARD ENRNL+2!, DEQRNL*, PRNTHDR+3*
WRD ENRNL+2!, EN1!, DEQRNL+2*, PRNTHDR+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, DEQRNLDEQRNL+2
X BEGRNL*, ENDRNL*, BEG+3, BEG+4*, BEG+5, END+3, END+4*, END+5, WRD!, WRD+1!
, SETP*, ENP3+14*, QUERNL*
X( WRD*, WRD+1
XQUIT ENRNL+1!
>> Y BEGRNLBEGRNL+1, ENDRNLENDRNL+1, EN1BEG+5, BEG+6, END+5, END+6, WD
, SETP*, PRNT*, ENP3+14*, 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