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 |  Local Variables |  All
Print Page as PDF
Routine: PSDTRVR

Package: Controlled Substances

Routine: PSDTRVR


Information

PSDTRVR ;BIR/BJW-CS Transfer Between Vaults Report ; 12 Feb 98

Source Information

Source file <PSDTRVR.m>

Call Graph

Call Graph Total: 9

Package Total Call Graph
VA Fileman 4 ^%DT  ^DIC  D^DIQ  ^DIR  
Kernel 3 (,HOME)^%ZIS  ^%ZISC  ^%ZTLOAD  
Controlled Substances 2 ^PSDSET  ^PSDTRVR1  

Caller Graph

Caller Graph Total: 2

Package Total Caller Graph
Controlled Substances 2 PSD PRINT VAULT TRANSFERS  PSD PRINT VAULT TRANSFERS TECH  

Entry Points

Name Comments DBIA/ICR reference
END ;
SITE ;sel one, some or all inp sites
DEV ;dev & queue info
DATE ;ask date range
ASK
SAVE

External References

Name Field # of Occurrence
^%DT DATE+1, DATE+2
^%ZIS DEV+2
HOME^%ZIS DEV+3
^%ZISC END+3
^%ZTLOAD DEV+3
^DIC SITE+5
D^DIQ DATE+2, DATE+4
^DIR ASK+2
^PSDSET PSDTRVR+4
^PSDTRVR1 DEV+4

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: $C(7),!!,?9,"** Please contact your Pharmacy Coordinator for access to",!,?12,"print CS reports.",!!,"PSJ RPHARM or PSD TECH security key required.",!
  • Line Location: PSDTRVR+5
Function Call: WRITE
  • Prompt: !!,"CS Transfer Controlled Substances Between Vaults Report",!
  • Line Location: PSDTRVR+6
Function Call: WRITE
  • Prompt: !!,"There are no Inpatient Sites defined for Controlled Substances use.",!,"Please contact your Pharmacy Coordinator for assistance.",!
  • Line Location: SITE+2
Function Call: WRITE
  • Prompt: !!,?2,"You may display Dispensing Sites transfers from a single Inpatient Site, ",!,?2,"several Inpatient Sites, or enter ^ALL to select all Inpatient Sites.",!!
  • Line Location: SITE+4
Function Call: WRITE
  • Prompt: !
  • Line Location: DATE+1
Function Call: WRITE
  • Prompt: !!,"The ending date of the range must be later than the starting date."
  • Line Location: DATE+3
Function Call: WRITE
  • Prompt: !!,"This report is designed for a 80 column format.",!,"You may queue this report to print at a later time.",!!
  • Line Location: DEV+1
Function Call: WRITE
  • Prompt: !,"NO DEVICE SELECTED OR REPORT PRINTED!"
  • Line Location: DEV+2
Routine Call
  • %ZIS
  • Line Location:
    • DEV+3
Routine Call
  • DIC
  • Line Location:
    • SITE+5
Routine Call
  • DIR
  • Line Location:
    • ASK+2
Routine Call
  • %ZIS
  • Line Location:
    • DEV+2

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^PS(59.4 - [#59.4] SITE+1, SITE+7
^TMP("PSDTRVR" END+3!
^XUSEC("PSD TECH" PSDTRVR+5
^XUSEC("PSJ RPHARM" PSDTRVR+5

Label References

Name Line Occurrences
DATE SITE+3, DATE+3
END ASK+2, SITE+2, SITE+6, DATE+1, DATE+2, DEV+2, DEV+3
SAVE DEV+3

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
% END+1!
%DT DATE+1!*, END+1!
%DT("A" DATE+1*, DATE+2*
%H END+1!
%I END+1!
%ZIS DEV+2!*, END+1!
%ZIS("B" DEV+2*
ASK ASK+3*, END+1!
CNT SITE+1*, SITE+2, SITE+3, END+1!
DA ASK!, END+1!
DIC SITE+5*!, END+1!
DIC("A" SITE+5*
DIC("S" SITE+5*
DIC(0 SITE+5*
DIR ASK!, ASK+2!, END+1!
DIR("?" ASK+1*
DIR("A" ASK*
DIR("B" ASK*
DIR(0 ASK*
DIROUT END+1!
DIRUT END+1!
DTOUT ASK!, ASK+2, END+1!
DUOUT ASK!, ASK+2, END+1!
DUZ PSDTRVR+5
IO DEV+4
IO("Q" DEV+2!, DEV+3!
IOP DEV+2!
JJ SITE+1*, END+1!
OK END+1!
POP DEV+2!, END+2!
PSD SITE+7*, END+2!
PSDATE DATE+2*, DATE+4*, END+2!
PSDED DATE+4*, END+2!
PSDOUT DATE+1*, DATE+2*, END+2!
PSDSD DATE+2*, DATE+3, DATE+4*, END+2!
>> PSDSITE PSDTRVR+4
SITE SITE+3!, SITE+6, END+2!
SITE( SITE+1*, SITE+5*, SITE+7*
SITE(0 SITE+6
SITEN END+2!
X SITE+6, SITE+7, END+2!
Y ASK+3, SITE+5, DATE+1, DATE+2, DATE+3, DATE+4, END+2!
ZTDESC DEV+3*, END+2!
ZTDTH DEV+3!, END+2!
ZTIO DEV+3!
>> ZTQUEUED END+3
>> ZTREQ END+3*
ZTRTN DEV+3*, END+2!
ZTSAVE DEV+3!, END+2!
ZTSAVE("ASK" SAVE*
ZTSAVE("PSDATE" SAVE*
ZTSAVE("PSDED" SAVE*
ZTSAVE("PSDSD" SAVE*
ZTSAVE("SITE(" SAVE*
ZTSK DEV+3!, END+2!
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables |  All