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

Package: Inpatient Medications

Routine: PSIVLBL1


Information

PSIVLBL1 ;BIR/RGY-PRINT LABEL FROM WARD LIST ;24 Aug 2001 3:59 PM

Source Information

Source file <PSIVLBL1.m>

Call Graph

Call Graph Total: 19

Package Total Call Graph
Inpatient Medications 12 TXT^PSGMUTL  ^PSIVHLP  ^PSIVHLP1  ^PSIVHYPL  ^PSIVLABL  REPRT^PSIVLBRP  ^PSIVLTR  ENNH^PSIVORV2  
$$CODES^PSIVUTL  ^PSIVWL1  ENIV^PSJAC  $$ONE^PSJBCMA  
VA Fileman 3 ^%DT  YN^DICN  ^DIR  
Kernel 2 (,HOME)^%ZIS  ^%ZTLOAD  
Registration 2 EN^VALM  (FULL,PAUSE)^VALM1  

Caller Graph

Caller Graph Total: 4

Package Total Caller Graph
Inpatient Medications 4 PSIVMAN1  PSIVRP1  PSIVSUS1  PSJI LBLS  

Entry Points

Name Comments DBIA/ICR reference
QUIT
MEOWRPT ;Reprint from man/ward list
LBLBEG
LBLM1 ;
MEOW ; Print labels
DEQ ;
REPRT ; Reprint labels using existing bcma ID
Q ;K %,IONOFF,ON,ORNS,ORPV,ORSTOP,ORSTRT,ORSTS,ORVP,P,PSIVC,PSIVREA,J,N,N2,ORIFN,P17,SCHED,PSIVDOSE,PSIVNOL,PSIVNOW,VAERR
ENLBLI ;Print individual labels.
DESC(X) ;Expand the IV type.
A1 ;
START
LBLM ;
QUE
DEQIA ;
LBLW ; loop through ward lists
ASK
USAGE ;

External References

Name Field # of Occurrence
^%DT START, START+2
^%ZIS USAGE+3
HOME^%ZIS USAGE+3, USAGE+4
^%ZTLOAD QUE+3, USAGE+6
YN^DICN A1+1, USAGE+1
^DIR ENLBLI+3
TXT^PSGMUTL DESC+3
^PSIVHLP START+2
^PSIVHLP1 LBLBEG, USAGE+1
^PSIVHYPL MEOW+11, DEQIA+4
^PSIVLABL MEOW+11, DEQIA+4
REPRT^PSIVLBRP REPRT+6
^PSIVLTR MEOW+11, DEQIA+2
ENNH^PSIVORV2 ENLBLI+2
$$CODES^PSIVUTL DESC+1
^PSIVWL1 ASK
ENIV^PSJAC LBLM1+3, LBLW+4
$$ONE^PSJBCMA MEOW+4
EN^VALM A1+3
FULL^VALM1 ENLBLI+1
PAUSE^VALM1 A1+2

Interaction Calls

Name Line Occurrences
Function Call: READ
  • Timeout: DTIME
  • Variable: X
  • Line Location: START+0
Function Call: WRITE
  • Prompt: !!,"Schedule labels for DATE: TODAY//"
  • Line Location: START+0
Function Call: WRITE
  • Prompt: @IOF
  • Condition for execution: $Y
  • Line Location: DEQ+1
Function Call: WRITE
  • Prompt: !!,"**** WARNING --- LABELS NOT",!," RUN, WARD LIST IN PROGRESS"
  • Line Location: DEQ+1
Function Call: WRITE
  • Prompt: !!,"*** NOTE ***"
  • Line Location: DEQ+4
Function Call: WRITE
  • Prompt: !!,"Schedule labels had already printed for the selected manufacturing time."
  • Line Location: DEQ+5
Function Call: WRITE
  • Prompt: !,"Please use the Reprint Scheduled Labels option instead.",!
  • Line Location: DEQ+6
Function Call: WRITE
  • Prompt: !!,$C(7),$C(7),"You may not print labels for a pending order."
  • Line Location: ENLBLI+3
Function Call: WRITE
  • Prompt: !
  • Line Location: ENLBLI+3
Function Call: WRITE
  • Prompt: !,$C(7),$C(7),"WARNING, this order is not active.",!,"Continue"
  • Line Location: A1+1
Function Call: READ
  • Prompt: "Number of labels to print: "
  • Formatting: !!
  • Timeout: DTIME
  • Variable: X
  • Line Location: LBLBEG+0
Function Call: WRITE
  • Prompt: !,"Count as daily usage"
  • Line Location: USAGE+1
Function Call: WRITE
  • Prompt: !!!
  • Line Location: USAGE+3
Function Call: WRITE
  • Prompt: !
  • Line Location: USAGE+5
Function Call: WRITE
  • Prompt: $G(MARX(XX-2))
  • Condition for execution: XX>2
  • Line Location: DESC+4
Function Call: WRITE
  • Prompt: !
  • Line Location: DESC+4
Routine Call
  • VALM
  • Line Location:
    • A1+3
Routine Call
  • %ZIS
  • Line Location:
    • USAGE+3
    • USAGE+4
Routine Call
  • DIR
  • Line Location:
    • ENLBLI+3
Routine Call
  • %ZIS
  • Line Location:
    • USAGE+3

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^PS(55 - [#55] DEQ+1, DEQ+2, QUIT, LBLM+1, LBLM+2, LBLM1+2, LBLM1+3, LBLW+2, LBLW+3, LBLW+4
, MEOWRPT+1, MEOWRPT+4, MEOWRPT+9!, MEOWRPT+11*, REPRT+2, REPRT+5, MEOW+1, MEOW+4, MEOW+5, MEOW+7
, MEOW+8, MEOW+11, MEOW+13*, A1+1, USAGE+2, DEQIA+1

Label References

Name Line Occurrences
@( DEQ+2
A1 A1+1
DEQIA USAGE+3
DESC LBLM+1, LBLM1+6, LBLW+5
LBLBEG LBLBEG
LBLM1 LBLM+2
MEOW LBLM1+4, LBLW+4, MEOWRPT+1
Q ENLBLI+3, A1+1, A1+3, USAGE+1, USAGE+3
QUE ASK+1
QUIT ASK, ASK+1, DEQ+1
REPRT MEOWRPT+4
START START+1, START+2
USAGE USAGE+1

Naked Globals

Name Field # of Occurrence
^( LBLM1+4, MEOW+1*, MEOW+5
^(0 USAGE+2*

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
% QUIT!, A1+1*, USAGE+1*, Q+1!
%DT START*, QUIT!
%T QUIT!
>> %ZIS USAGE+3*
A MEOW+3~, MEOW+5*
>> ACTION MEOW+11*, DEQIA+2*
D QUIT!
DESC DESC+1~
DFN QUIT!, LBLM1+3*, LBLW+4*, MEOWRPT+1, MEOWRPT+4, MEOWRPT+9, MEOWRPT+11, REPRT+2, REPRT+5, REPRT+6
, MEOW+1, MEOW+4, MEOW+5, MEOW+7, MEOW+8, MEOW+11, MEOW+13, A1+1, USAGE+2, DEQIA+1
DFNX LBLM1+1~, LBLM1+2*, LBLM1+3, LBLW+1~, LBLW+3*, LBLW+4
DIR ENLBLI+3!
DIR(0 ENLBLI+3*
DTIME START, LBLBEG
>> HELP START+2*, LBLBEG*, USAGE+1*
I QUIT!, QUE+1*
IO USAGE+3
IO(0 USAGE+3
IOF DEQ+1
ION ASK+1
IONOFF MEOW+11*, USAGE+3*, Q+1!
>> IOP USAGE+3*
IOST USAGE+3
J Q+1!
JJ QUIT!
JX LBLM+3!
MARX DESC+3~
MARX( DESC+4
N Q+1!
N2 Q+1!
NOFLG QUIT!, LBLM1+1*, LBLM1+6, LBLW+2*, LBLW+5, MEOW+9*, MEOW+14*
OIX1 QUIT!, LBLM+1~, LBLM+2*, LBLM1+2, LBLM1+3, LBLM1+4
OIX2 QUIT!, LBLM+1~, LBLM+2*, LBLM1+2, LBLM1+3, LBLM1+4
ON QUIT!, LBLM1+4*, LBLW+4*, MEOWRPT+1, MEOWRPT+4, MEOWRPT+9, MEOWRPT+11, REPRT+5, MEOW+1, MEOW+4
, MEOW+5, MEOW+7, MEOW+8, MEOW+11, MEOW+13, ENLBLI+2, ENLBLI+3, A1+1, USAGE+2, DEQIA+1
ONX LBLM1+1~, LBLM1+3*, LBLM1+4, LBLW+1~, LBLW+4*
ORIFN Q+1!
ORNS Q+1!
ORPV Q+1!
ORSTOP Q+1!
ORSTRT Q+1!
ORSTS Q+1!
ORVP Q+1!
P QUIT!
P(4 REPRT+5*, MEOW+11*, DEQIA+1*, DEQIA+4
>> P16 MEOW+1*, USAGE+2*
P17 Q+1!
>> POP USAGE+3
PSCT QUIT!
PSIV QUIT!
PSIVC Q+1!
PSIVCD ASK, QUIT!
PSIVCT REPRT+5*, MEOW+1*!, MEOW+2!, MEOW+15!, LBLBEG*, USAGE+1!, USAGE+2, USAGE+6
>> PSIVCTD REPRT+5*
PSIVDOSE QUIT!, MEOW+1*, MEOW+2!, MEOW+15!, Q+1!, DEQIA+1!
PSIVDT ASK*, QUIT!
PSIVID MEOWRPT+3~, MEOWRPT+12!, MEOW+2!, MEOW+12, MEOW+15!
PSIVID( MEOWRPT+10, MEOW+12
>> PSIVLBL1 DEQ+2*
>> PSIVLBTP A1+3*
PSIVMT QUIT!
PSIVMT( QUE+1
PSIVNOL QUIT!, REPRT+5*, MEOW+1*, MEOW+2, LBLBEG*, Q+1!
PSIVNOW Q+1!
PSIVOD ASK, QUIT!
PSIVOD( DEQ+2, LBLM+1, LBLM+2, LBLM1+2, LBLM1+3, LBLW+3, LBLW+4, MEOWRPT+1, MEOWRPT+4, MEOWRPT+9
, MEOWRPT+11, MEOW+1, MEOW+8, MEOW+13
PSIVOID MEOWRPT+3~, MEOWRPT+12!
PSIVOID( MEOWRPT+8, REPRT+1*
>> PSIVPL ASK+1, QUE, USAGE+3, USAGE+5
PSIVREA Q+1!
>> PSIVSITE DESC+3, DESC+4
>> PSIVSN DEQ+1, DEQ+2, QUIT, LBLM+1, LBLM+2, LBLM1+2, LBLM1+3, LBLW+2, LBLW+3, LBLW+4
, MEOWRPT+1, MEOWRPT+4, MEOWRPT+9, MEOWRPT+11, MEOW+1, MEOW+8, MEOW+13
PSIVT DEQ+2*, QUIT!, LBLM+1, LBLM+2, LBLM1+2, LBLM1+3, LBLM1+6, LBLW+3, LBLW+4, LBLW+5
, MEOWRPT+1, MEOWRPT+4, MEOWRPT+9, MEOWRPT+11, MEOW+1, MEOW+8, MEOW+13, QUE*, QUE+1*
PSIVWMFL MEOWRPT+2*, MEOWRPT+12!, MEOW+2!, MEOW+10*, MEOW+15!
PSJID MEOWRPT+3~, MEOWRPT+4*, REPRT+1, REPRT+2, REPRT+6
PSJLB REPRT+2~
PSJLB( REPRT+3*
PSJLB(4 REPRT+4
PSJLB(7 REPRT+4
>> PSJMORE A1+3*
PSJOK MEOW+3~, MEOW+5*, MEOW+6
>> PSJORD ENLBLI+2*
PSJRPFLG DEQ+3, DEQ+7!, MEOW+9*
PSJSCH MEOW+3~, MEOW+4*
PSJST MEOW+3~, MEOW+4*, MEOW+5
SCHED Q+1!
>> TRACK MEOW+11*, DEQIA+2*
U REPRT+3, A1+1, DESC+3, DESC+4
VAERR QUIT!, Q+1!
WRD DEQ+2*, QUIT!, LBLM1+4*, LBLW+3*, LBLW+4, MEOWRPT+1, MEOWRPT+4, MEOWRPT+9, MEOWRPT+11, MEOW+1
, MEOW+8, MEOW+13
WRDX LBLW+1~, LBLW+2*, LBLW+3
X START*, START+2*, QUIT!, MEOWRPT+3~, MEOWRPT+8*, MEOWRPT+9, MEOWRPT+10*, MEOWRPT+11, REPRT+3*, MEOW+12*
, MEOW+13, QUE+2*, LBLBEG*!, USAGE+2, USAGE+5*, DESC~, DESC+1
X1 QUIT!, LBLM1+4*, DESC+1~
X2 QUIT!, LBLM1+4*, DESC+1~
XX MEOWRPT+3~, REPRT+2*, REPRT+3, DESC+1~, DESC+2*, DESC+3, DESC+4*
Y START*, START+1, ASK, QUIT!, DESC+1~*, DESC+2
Z QUIT!
>> ZTDESC QUE*, USAGE+5*
>> ZTDTH USAGE+5*
>> ZTIO QUE*, USAGE+5*
>> ZTQUEUED QUIT, DEQIA+4
>> ZTREQ QUIT*, DEQIA+4*
>> ZTRTN QUE*, USAGE+5*
>> ZTSAVE( QUE+2*, USAGE+5*
>> ZTSAVE("PSIVCD(""" QUE+1*
>> ZTSAVE("PSIVCT" USAGE+6*
>> ZTSAVE("PSIVMT(""" QUE+1*
>> ZTSAVE("PSIVOD(""" QUE+1*
>> ZTSAVE("PSJSYSP0" QUE*
ZTSK QUIT!, QUE+3, USAGE+6
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All