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

Package: Inpatient Medications

Routine: PSIVRP


Information

PSIVRP ;BIR/MLM-REPRINT IV LABELS FROM WARD OR MANUFACTURING LIST ;12 JUL 96 / 10:45 AM

Source Information

Source file <PSIVRP.m>

Call Graph

Call Graph Total: 10

Package Total Call Graph
Inpatient Medications 7 GT55^PSIVORFB  (ENPL,HDL)^PSIVPRO  (DEQ,GTMES,QUIT)^PSIVRP1  P0^PSIVWL1  ^PSIVXU  ENIV^PSJAC  HDR^PSJLMHED  
VA Fileman 2 ^DIC  ^DIR  
Kernel 1 ^%ZTLOAD  

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Inpatient Medications 1 PSJI LBLR  

Entry Points

Name Comments DBIA/ICR reference
SELMAN ;
GTORDR ;
SKIP ;
PRO ;
GTRANGE ;
BU ;
QUE ;
SETP ;
ORDER ;
FNDLBLS ;
ORDER1 ;

External References

Name Field # of Occurrence
^%ZTLOAD QUE+2
^DIC GTRANGE+3
^DIR PSIVRP+9, PSIVRP+10
GT55^PSIVORFB PRO+4
ENPL^PSIVPRO PRO+4
HDL^PSIVPRO PRO+4
DEQ^PSIVRP1 SKIP+1
GTMES^PSIVRP1 PSIVRP+9
QUIT^PSIVRP1 PSIVRP+8, PSIVRP+9, PSIVRP+10, SELMAN+2, FNDLBLS+1, FNDLBLS+2, SKIP+1, QUE+2, ORDER1+3
P0^PSIVWL1 SELMAN+2
^PSIVXU PSIVRP+8
ENIV^PSJAC GTRANGE+3
HDR^PSJLMHED PRO+2

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: $C(7),!!,"THIS OPTION MAY BE USED ONLY AFTER THE WARD LIST HAS BEEN RUN",!!
  • Line Location: PSIVRP+8
Function Call: WRITE
  • Prompt: $C(7),!!,"The Ward list & Scheduled Labels options MUST be run for the chosen date",!,"before you may use this option!!",!!
  • Line Location: PSIVRP+10
Function Call: WRITE
  • Prompt: $C(7),!!,"NEXT LABEL MUST FOLLOW LAST LABEL",!!
  • Line Location: FNDLBLS+4
Function Call: WRITE
  • Prompt: $C(7),!!,VADM(1)," has no IV orders on the Ward List for the date &",!,"manufacturing times chosen",!
  • Line Location: GTRANGE+2
Function Call: WRITE
  • Prompt: $C(7),!!,VADM(1)," has no IV orders on the Ward List for the date &",!,"manufacturing times chosen",!
  • Line Location: GTRANGE+3
Function Call: WRITE
  • Prompt: !!,$E(P,1,44),$S(ON:" or RETURN to continue: ",1:": ")
  • Line Location: ORDER+1
Function Call: WRITE
  • Prompt: " or ""^"" to exit",!!
  • Line Location: ORDER+4
Function Call: WRITE
  • Prompt: !,^(XX,0)
  • Line Location: PRO+5
Routine Call
  • DIC
  • Line Location:
    • GTRANGE+3
Routine Call
  • DIR
  • Line Location:
    • PSIVRP+9
    • PSIVRP+10

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DIC(42 - [#42] ORDER1+1
^PS("52." BU+2
^PS(55 - [#55] PSIVRP+8, ORDER1+1, ORDER1+2, BU+1, BU+2, GTORDR+1, SETP+1
^PS(59.5 - [#59.5] SELMAN+1
^TMP("PSJPRO" PRO+5, PRO+7!

Label References

Name Line Occurrences
BU ORDER1+3
FNDLBLS FNDLBLS+4
GTORDR GTRANGE+3
GTRANGE FNDLBLS+1, FNDLBLS+2, GTRANGE+3, ORDER+2, ORDER+4
ORDER ORDER+2, ORDER+3, ORDER+4
ORDER1 ORDER+2
PRO ORDER+2, ORDER+3
SKIP FNDLBLS+3

Naked Globals

Name Field # of Occurrence
^( SELMAN+1, PRO+5
^(0 ORDER1+1, BU+2

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> D1 BU+1*, BU+2
>> DFN FNDLBLS+2, GTRANGE+1*, GTRANGE+3*, ORDER1+1, BU+1, BU+2, GTORDR+1, PRO+2, SETP+1
DIC FNDLBLS+1!*, FNDLBLS+2!
DIC("A" FNDLBLS+1*, FNDLBLS+2*
DIC(0 FNDLBLS+1*
DIR PSIVRP+9!, PSIVRP+10!
DIR("??" PSIVRP+9*
DIR("A" PSIVRP+9*
DIR("B" PSIVRP+9*
DIR(0 PSIVRP+9*, PSIVRP+10*
DTIME ORDER+1
>> FILE ORDER1+3*, BU+1, BU+2
>> I SELMAN+1*
ION SKIP+1
>> J SELMAN+2*, FNDLBLS+1*, FNDLBLS+2*, ORDER+1
>> LAST( FNDLBLS+1*, FNDLBLS+3, FNDLBLS+4
>> LAST("LIST" FNDLBLS+2
>> LIST FNDLBLS+1, FNDLBLS+2*, GTRANGE+1*, ORDER1+2*, ORDER1+3
NEXT GTRANGE+1!
NEXT( FNDLBLS+2*, FNDLBLS+3, FNDLBLS+4
NEXT("DFN" FNDLBLS+3
>> NF BU+2*
>> ON GTRANGE+1*, GTRANGE+3*, ORDER+1*, ORDER+2, ORDER1+1*, BU+1, BU+2, GTORDR+1*, PRO+4*, PRO+6
, SETP+1
>> ON55 PRO+4*
>> P ORDER+1*, ORDER+4
>> P( SETP+1*
PG PRO+3~*
>> PRO GTRANGE+3*, ORDER+1, ORDER+3, ORDER+4, PRO+3*, PRO+6*
PS PSIVRP+9!, PSIVRP+10, FNDLBLS+1!, GTRANGE+3, GTORDR+1!
PS( SELMAN+1*, SELMAN+2
PS("A" ORDER+2, GTORDR+1*, PRO+4
>> PSCT SELMAN+1*
>> PSIVDRG BU+2*
>> PSIVDT SELMAN+1*, GTRANGE+1*, ORDER1+1*, ORDER1+2, GTORDR+1*
>> PSIVDTS SELMAN+1*
>> PSIVPL SKIP+1, QUE+1
>> PSIVSN PSIVRP+8, SELMAN+1, ORDER1+2, GTORDR+1
>> PSIVST PRO+3*
>> PSIVT GTRANGE+1*, ORDER1+1*, ORDER1+3
>> PSIVX1 PRO+4*
PSIVX2 PRO+3~*
>> PSJLN PRO+3*
PSM SELMAN+1!
PSM( SELMAN+1*
PSR SELMAN+2!
PSR( SELMAN+2*, ORDER1+1, GTORDR+1
>> STR FNDLBLS+1, FNDLBLS+2, FNDLBLS+3, FNDLBLS+4, ORDER1+3*
>> VADM(1 GTRANGE+3, ORDER+4
>> WRD GTRANGE+1*, ORDER1+1*, GTORDR+1*
>> X SELMAN+2, FNDLBLS+1*, FNDLBLS+2*, FNDLBLS+3*, FNDLBLS+4, QUE+1*, ORDER+1*, ORDER+2, ORDER+3, ORDER+4
, ORDER1+1, ORDER1+3, BU+2*, GTORDR+1*, SETP+1*
>> X1 GTRANGE+1*, ORDER1+3*, PRO+4*
>> X2 GTRANGE+1*, ORDER1+3*
>> XQUIT PSIVRP+8
>> XT ORDER1+3*
XX PRO+5~*
>> Y PSIVRP+9, SELMAN+1, SELMAN+2*, FNDLBLS+1, GTRANGE+3, ORDER1+1*, SETP+1*
>> ZTDESC QUE+1*
ZTDTH QUE+1!
>> ZTIO QUE+1*
>> ZTRTN QUE+1*
ZTSAVE QUE+1!
ZTSAVE( QUE+1*
>> ZTSK QUE+2
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All