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

Package: Inpatient Medications

Routine: PSIVRD


Information

PSIVRD ;BIR/PR,MLM-HANDLE QUICK RET/DES ENTRY ;29 SEP 97 / 11:17 AM

Source Information

Source file <PSIVRD.m>

Call Graph

Call Graph Total: 18

Package Total Call Graph
Inpatient Medications 11 (,H2)^PSGON  (ENCHS1,ENGETP)^PSIV  ^PSIVHLP  $$PROMPT^PSIVLBRP  ^PSIVLTR  EXPIR^PSIVOE  GT55^PSIVORFB  (ENNH,ENNONUM)^PSIVORV2  
^PSIVPRO  ^PSIVSTAT  ^PSIVXU  
VA Fileman 4 NOW^%DTC  IX^DIC  ^DIE  ^DIR  
Registration 2 EN^VALM  (FULL,PAUSE)^VALM1  
Kernel 1 ^%ZIS  

Caller Graph

Caller Graph Total: 2

Package Total Caller Graph
Inpatient Medications 2 PSIV  PSJI RETURNS  

Entry Points

Name Comments DBIA/ICR reference
EN ; Entry point to enter returns/destroyed items.
ORDNO ;
NRD1 ;
READ ; Read order no.s, no profile.
WARD1 ;
NRD ;Ask number of bottles/bags
Q
EN1 ;
PROCESS ;
OV1 ;
GTORDRS ;Needs PSIVBR (Branch point)
PROCESS1 ;
EN1OLD ;
ASK
OV ;
WARD ;Get the ward to associate returns or destroyed with.
KILL ;

External References

Name Field # of Occurrence
NOW^%DTC READ+8, WARD1+8
^%ZIS GTORDRS+1
IX^DIC WARD+3
^DIE WARD1+11
^DIR PROCESS1+1
^PSGON ASK+2
H2^PSGON ASK+1
ENCHS1^PSIV EN1+1
ENGETP^PSIV EN+1
^PSIVHLP ASK+1, NRD1+3
$$PROMPT^PSIVLBRP WARD1+2
^PSIVLTR WARD1+13, NRD1+6
EXPIR^PSIVOE READ+9
GT55^PSIVORFB OV1+1
ENNH^PSIVORV2 PROCESS+2
ENNONUM^PSIVORV2 OV1+1
^PSIVPRO GTORDRS+2
^PSIVSTAT WARD1+13, NRD1+6
^PSIVXU EN+1
EN^VALM PROCESS1+4
FULL^VALM1 PROCESS+1
PAUSE^VALM1 PROCESS1+3, WARD+1

Interaction Calls

Name Line Occurrences
Function Call: READ
  • Prompt: "Enter the order number(s) to be processed: "
  • Formatting: !!
  • Timeout: DTIME
  • Variable: PSIVNU
  • Line Location: ORDNO+1
Function Call: WRITE
  • Prompt: !!,"Enter order number(s) separated by a comma e.g. 2,4,5,6.",!
  • Line Location: READ+2
Function Call: WRITE
  • Prompt: $C(7),$C(7),"??",!!
  • Line Location: READ+3
Function Call: WRITE
  • Prompt: $C(7),$C(7),"??",!!
  • Line Location: READ+5
Function Call: WRITE
  • Prompt: !!,$C(7),$C(7),"Order ",ON," is invalid.",!!
  • Line Location: READ+6
Function Call: WRITE
  • Prompt: !!,$C(7),$C(7),"Order number ",+ON," does not exist for this patient.",!
  • Line Location: READ+7
Function Call: READ
  • Timeout: DTIME
  • Variable: X
  • Line Location: ASK+0
Function Call: WRITE
  • Prompt: !!,$C(7),$C(7),"No labels have been dispensed for this order."
  • Line Location: PROCESS1+1
Function Call: WRITE
  • Prompt: !!,"WARNING ",$C(7),$C(7),$C(7),"This order is in a different IV room",!," from the one in which you are entering returned/destroyed!"
  • Line Location: PROCESS1+2
Function Call: WRITE
  • Prompt: !,"No labels are available"
  • Line Location: WARD+1
Function Call: WRITE
  • Prompt: $P("^OUTPATIENT",X,2)
  • Line Location: WARD+3
Function Call: WRITE
  • Prompt: "...Done."
  • Line Location: WARD1+13
Function Call: READ
  • Prompt: "Number of bottles: "
  • Formatting: !
  • Timeout: DTIME
  • Variable: X
  • Line Location: NRD1+3
Function Call: WRITE
  • Prompt: $C(7)," ??"
  • Line Location: NRD1+4
Function Call: WRITE
  • Prompt: "...Done."
  • Line Location: NRD1+6
Routine Call
  • VALM
  • Line Location:
    • PROCESS1+4
Routine Call
  • DIE
  • Line Location:
    • WARD1+11
Routine Call
  • DIR
  • Line Location:
    • PROCESS1+1
Routine Call
  • %ZIS
  • Line Location:
    • GTORDRS+1
Routine Call
  • DIC
  • Line Location:
    • WARD+3

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DPT - [#2] WARD+2
^PS(55 - [#55] READ+7, READ+9*, PROCESS1+1, PROCESS1+2, NRD+3
^TMP("PSIV" OV+1

Label References

Name Line Occurrences
ASK ASK+1, ASK+2
EN1 EN+1
KILL WARD+3, NRD1+3
NRD1 NRD1+3, NRD1+4
OV GTORDRS+2
OV1 READ+8, OV+1
PROCESS1 OV1+2
READ ORDNO+1
WARD WARD+4
WARD1 WARD+3

Naked Globals

Name Field # of Occurrence
^( OV+1
^(2 PROCESS1+2

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> % READ+8, WARD1+11
%ZIS GTORDRS+1!
ACTION Q!, WARD1+13*, NRD1+6*
D Q!, WARD+3*, KILL+3!
DA WARD1+9!, WARD1+10*, WARD1+12!
DA(1 WARD1+10*
DFN EN+1, Q!, READ+7, READ+9, OV1+1, PROCESS1+1, PROCESS1+2, WARD+2, WARD1+10, NRD+3
DIC Q!, WARD+2!, WARD+3*, WARD1+9!, WARD1+12!, KILL+3!
DIC("A" WARD+3*
DIC("B" WARD+2*
DIC(0 WARD+3*
DIE WARD1+9!, WARD1+10*, WARD1+12!
DIR Q!, PROCESS1+1~
DIR(0 PROCESS1+1*
DONE READ+1~, READ+5*, READ+6*, READ+7*, READ+8
DR WARD1+9!, WARD1+11*, WARD1+12!
DRG Q!
DRGI Q!
DRGN Q!
DTIME ORDNO+1, ASK, NRD1+3
E Q!, PROCESS1+2*
E1 Q!, PROCESS1+2*
HELP Q!, ASK+1*, NRD1+3*, KILL+3!
I Q!, READ+4*, READ+7*
I1 Q!
IOP GTORDRS+1*!
JJ Q!, READ+6*
LABELS Q!, WARD1+13*, NRD1+6*, KILL+3!
MXMN Q!, NRD+3*, NRD1+4, KILL+3!
ON Q!, READ+4*, READ+5, READ+6, READ+7*, READ+8*, READ+9, OV+1*, OV1+1*, PROCESS+2
, PROCESS1+1, PROCESS1+2, NRD+3
ON55 Q!, OV1+1*
ONCNT Q!, READ+8*
P Q!
P("PON" OV1+1*
P("PT" GTORDRS+1
PS Q!, ASK, ASK+2
PSGDT Q!
PSGID Q!
PSGLMT Q!, ASK+2*
PSGODDD Q!, OV+1
PSGODDD( OV+1
PSGP Q!
PSIVAC Q!
>> PSIVBR EN1+1*
PSIVC Q!, WARD1+11, WARD1+13, NRD1+6, KILL+3!
PSIVCTD WARD1+1~*
>> PSIVLBTP PROCESS1+4*
PSIVNOL Q!, WARD1+4*, WARD1+5*, WARD1+13, NRD1+6*, KILL+3!
PSIVNOW Q!, READ+8*, READ+9
PSIVNU Q+1!, ORDNO+1*, READ+1*, READ+2, READ+3, READ+4, READ+7, READ+8
PSIVNUM OV1+1!
PSIVON Q!
PSIVOV1 Q+1!, OV+1*
PSIVOV2 Q+1!, OV+1*
PSIVPL Q+1!
PSIVPR Q+1!
PSIVSITE Q+1!
PSIVSN Q+1!, PROCESS1+2
PSIVUP Q+1!
PSIVX Q+1!
PSJHT Q+1!
>> PSJID WARD1+7*, WARD1+8
>> PSJIDLST WARD+1
>> PSJIDLST( WARD1+7
>> PSJIDNO WARD1+8*, WARD1+10
>> PSJMORE PROCESS1+4*
>> PSJORD PROCESS+2*
PSJORIFN Q+1!
PSJORL Q+1!
PSJPWT Q+1!
>> PSJSEL WARD1+5*, WARD1+6*
>> PSJSEL1 WARD1+5*, WARD1+6*, WARD1+7
PSJSYSL Q+1!
PSJSYSU Q+1!
PSJSYSW Q+1!
PSJSYSW0 Q+1!
>> PSJY WARD1+2*, WARD1+3, WARD1+5, WARD1+6
Q Q+1!
RDFLAG Q+1!, PROCESS1+4*, KILL+3!
RDWARD Q+1!, WARD+3*, WARD+4*
U READ+9, PROCESS1+2, NRD+3
UL80 Q+1!
VA Q+1!
VADM Q+1!
VAERR Q+1!
VAIN Q+1!
>> VALMBCK KILL+4*
X Q+1!, READ+9*, GTORDRS+2, ASK*, ASK+1, ASK+2, WARD+3, NRD1+3*, NRD1+4, NRD1+6
, KILL+3!
XQUIT EN+1, Q+1!
Y Q+1!, WARD+4, KILL+3!
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All