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 |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All
Print Page as PDF
Routine: PSIVSUS

Package: Inpatient Medications

Routine: PSIVSUS


Information

PSIVSUS ;BIR/PR-SUSPENSE LIST OPTIONS ;16 DEC 97 / 1:40 PM

Source Information

Source file <PSIVSUS.m>

Call Graph

Call Graph Total: 15

Package Total Call Graph
Inpatient Medications 10 ENIVKV^PSGSETU  ^PSIVHLP  ^PSIVHLP1  ^PSIVHYPL  ^PSIVLABL  ^PSIVLTR  C^PSIVORE2  ENP3^PSIVRNL  
^PSIVXU  ENIV^PSJAC  
VA Fileman 4 ^%DT  NOW^%DTC  YN^DICN  ^DIR  
Kernel 1 ^%ZTLOAD  

Caller Graph

Caller Graph Total: 2

Package Total Caller Graph
Inpatient Medications 2 PSJI SUSLBLS  PSJI SUSLIST  

Entry Points

Name Comments DBIA/ICR reference
Q1
DEQSUS
HDR ;
HDR1
DEQEN3
S1 ;Suspend labels.
CHK ;Entry for individual label suspense, check if labels may be suspended.
Q
PRNT
EN3 ;Will print a report of those labels on suspense
ENT ;Print labels from suspense
QEN3
EXPIR ;
SETP
ALSUS ;See if labels are already suspended.
E3
E2

External References

Name Field # of Occurrence
^%DT ENT+2
NOW^%DTC CHK+1, S1+2, DEQSUS, HDR1, EXPIR+1
^%ZTLOAD ENT+3, EN3+4
YN^DICN EN3+2
^DIR HDR+1
ENIVKV^PSGSETU Q1, EN3+5
^PSIVHLP S1+1
^PSIVHLP1 EN3+2
^PSIVHYPL E2+2
^PSIVLABL E2+2
^PSIVLTR S1+3, E2+2
C^PSIVORE2 ALSUS+1
ENP3^PSIVRNL PRNT+2
^PSIVXU ENT+1, EN3+1
ENIV^PSJAC DEQSUS+1, DEQEN3+1, PRNT+1

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"There are already ",SNM," ",$S(SNM>1:"LABELS",1:"LABEL")," suspended for this order."
  • Line Location: ALSUS+1
Function Call: READ
  • Prompt: "Number of labels to suspend: "
  • Formatting: !!
  • Timeout: DTIME
  • Variable: X
  • Line Location: S1+1
Function Call: WRITE
  • Prompt: $C(7),!," ... NO labels suspended! Wait 15 seconds and try again."
  • Line Location: S1+2
Function Call: WRITE
  • Prompt: " ..... ",+X," Label"_$S(+X>1:"s",1:"")_" suspended !"
  • Line Location: S1+3
Function Call: READ
  • Prompt: !!
  • Timeout: %=-1
  • Variable: "Send report to a printer" S %=2 D YN^DICN Q
  • Line Location: EN3+2
Function Call: WRITE
  • Prompt: !,VADM(1)," (",$S(VAIN(4):$P(VAIN(4),U,2),1:"Outpatient IV"),")",$J(+NODE_" label"_$S(+NODE>1:"s",1:"")_" "_$P(NODE,U,2),IOM-1-$X)
  • Line Location: PRNT+1
Function Call: WRITE
  • Prompt: !,VA("BID")," [",ON,"]"
  • Line Location: PRNT+2
Function Call: WRITE
  • Prompt: @IOF
  • Condition for execution: $Y
  • Line Location: HDR1+0
Function Call: WRITE
  • Prompt: !!,"Suspense list for: "
  • Line Location: HDR1+0
Function Call: WRITE
  • Prompt: $P(Y,"@")," ",$P(Y,"@",2),!,"Patient name",?30,"Order",?IOM-11,"Suspended",!
  • Line Location: HDR1+0
Function Call: WRITE
  • Prompt: $P(Y,"@")," ",$P(Y,"@",2),!,"Patient name",?30,"Order",?IOM-11,"Suspended",!
  • Line Location: HDR1+0
Routine Call
  • DIR
  • Line Location:
    • HDR+1

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DD("DD" PRNT, HDR1
^PS(55 - [#55] CHK+1, ALSUS+1, S1+2, S1+3*, DEQSUS!, DEQSUS+1, Q, E2, E2+2, E3*!
, E3+2*, DEQEN3+1, DEQEN3+2, PRNT, SETP, EXPIR+2!

Label References

Name Line Occurrences
DEQEN3 EN3+3
E2 DEQSUS+1
E3 E2
EN3 EN3+2
EXPIR ENT+2, EN3+2
HDR PRNT
HDR1 DEQEN3
PRNT DEQEN3+2
Q DEQSUS
Q1 QEN3
S1 S1+1, S1+2
SETP DEQEN3+2

Naked Globals

Name Field # of Occurrence
^( E2+2
^(0 S1+3*, SETP, EXPIR+2

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> % CHK+1, S1+2, DEQSUS, EN3+2*, EN3+3, HDR1, EXPIR+2
>> %DT ENT+2*
>> ACTION S1+3*, E2+2*
D QEN3!
DAT ALSUS+1!
DFN CHK+1, ALSUS+1, S1+2, S1+3, DEQSUS+1*, E2, E2+2, E3, E3+2, DEQEN3+1*
, DEQEN3+2, QEN3!, PRNT, SETP
DIR HDR+1!
DIR(0 HDR+1*
DONE DEQEN3!, DEQEN3+1, DEQEN3+2, QEN3!, PRNT, HDR+1*
DTIME S1+1
>> DTOUT HDR+1
>> DUOUT HDR+1
>> HELP S1+1*, EN3+2*
I DEQSUS*, Q!, QEN3!
IOF QEN3, HDR1
IOM PRNT+1, HDR1
ION ENT+3, EN3+2, EN3+3
IOSL PRNT
IOST HDR+1
JJ CHK+1!*, ALSUS+1, Q!
NODE Q!, QEN3!, PRNT*, PRNT+1
ON CHK+1, ALSUS+1, S1+2, S1+3, DEQSUS+1*, Q!, E2, E2+2, E3, E3+2
, EN3+5!, DEQEN3+1*, DEQEN3+2, QEN3!, PRNT, PRNT+2, SETP, EXPIR+2*
P QEN3!
P( SETP*
P(17 DEQEN3+2
P(4 E2+2*
P16 Q!, E2+2*
PSCT Q!
PSIV QEN3!, PRNT+2*
PSIVDEL ENT+2*, DEQSUS, Q!
PSIVDOSE Q!, E2+2*
PSIVDT Q!, DEQEN3+2*, QEN3!, PRNT
PSIVFND DEQEN3!, QEN3!, PRNT*
PSIVID E3+1, E3+3!
PSIVID( E3+1
>> PSIVNOL S1+3*, E2+2*
PSIVNOW CHK+1*, S1+2*, S1+3, S1+4!
PSIVNW DEQSUS*, Q!, E3, E3+2
>> PSIVPL ENT+3
>> PSIVPR EN3+2, EN3+3, EN3+4, QEN3
>> PSIVSN ALSUS+1, S1+2, S1+3, DEQSUS, DEQSUS+1, Q, E2+2, E3, E3+2, DEQEN3+1
, DEQEN3+2, PRNT, EXPIR+2
PSIVTTM Q!
PSIVWMFL E2+1*, E3+3!
SDT DEQSUS+1*, E2+2, E3, E3+2, QEN3!
SNM ALSUS+1!
>> SSNF PRNT+2*
TOTAL Q!
>> TRACK S1+3*, E2+2*
U CHK+1, S1+3, E2, E2+2, PRNT+1, SETP, EXPIR+2
>> VA("BID" PRNT+2
>> VADM(1 PRNT+1
VAERR QEN3!
>> VAIN(4 PRNT+1
X S1+1*!, S1+3, ENT+2*, DEQSUS*, E3+1~*, E3+2, HDR1*, SETP*, EXPIR+2*
XQUIT ENT+1!, EN3+1!
>> Y ENT+2, DEQSUS*, PRNT*, HDR1*, SETP*, EXPIR+2*
Z QEN3!
>> ZTDESC ENT+3*, EN3+4*
>> ZTIO ENT+3*, EN3+4*
>> ZTQUEUED Q1
>> ZTREQ Q1*
>> ZTRTN ENT+3*, EN3+4*
>> ZTSAVE("PSIVDEL" ENT+3*
>> ZTSAVE("PSIVSITE" ENT+3*, EN3+4*
>> ZTSAVE("PSIVSN" ENT+3*, EN3+4*
>> ZTSAVE("PSJSYSP0" ENT+3*, EN3+4*
>> ZTSAVE("PSJSYSU" ENT+3*, EN3+4*
>> ZTSAVE("PSJSYSW0" ENT+3*, EN3+4*
>> ZTSK ENT+3
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All