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

Package: Controlled Substances

Routine: PSDACT


Information

PSDACT ;BIR/BJW-Print Daily Activity Log ; 3 Feb 98

Source Information

Source file <PSDACT.m>

Call Graph

Call Graph Total: 9

Package Total Call Graph
Kernel 3 (,HOME)^%ZIS  ^%ZISC  ^%ZTLOAD  
VA Fileman 3 ^%DT  ^DIC  (D,Y)^DIQ  
Controlled Substances 2 START^PSDACT1  ^PSDSET  
Registration 1 KVAR^VADPT  

Caller Graph

Caller Graph Total: 2

Package Total Caller Graph
Controlled Substances 2 PSD DAILY LOG  PSD DAILY LOG TECH  

Entry Points

Name Comments DBIA/ICR reference
DATE
END ;
DEV ;sel device
ASKD ;ask disp location
DRUG ;ask drug
CHKD
SAVE ;sets variables for queueing

External References

Name Field # of Occurrence
^%DT DATE, DATE+1
^%ZIS DEV+2
HOME^%ZIS DEV+3
^%ZISC END+5
^%ZTLOAD DEV+3
^DIC ASKD+6, DRUG+3
D^DIQ DATE+1, DATE+3
Y^DIQ DEV+1
START^PSDACT1 DEV+4
^PSDSET PSDACT+3
KVAR^VADPT END+1

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"Contact your Pharmacy Coordinator for access to display the daily CS activity.",!!,"PSJ RPHARM or PSD TECH security key required.",!
  • Line Location: PSDACT+4
Function Call: WRITE
  • Prompt: !!,"There are no CS stocked drugs for your dispensing vault.",!!
  • Line Location: CHKD+0
Function Call: WRITE
  • Prompt: !!,?5,"You may select a single drug, several drugs,",!,?5,"or enter ^ALL to select all drugs.",!!
  • Line Location: DRUG+1
Function Call: WRITE
  • Prompt: !
  • Line Location: DRUG+2
Function Call: WRITE
  • Prompt: !
  • Line Location: DATE+0
Function Call: WRITE
  • Prompt: !!,"The ending date of the range must be later than the starting date."
  • Line Location: DATE+2
Function Call: WRITE
  • Prompt: !!,"This report is designed for a 132 column format.",!,"You may queue this report to print at a later time.",!!
  • Line Location: DATE+5
Function Call: WRITE
  • Prompt: !
  • Line Location: DEV+2
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:
    • ASKD+6
    • DRUG+3
Routine Call
  • %ZIS
  • Line Location:
    • DEV+2

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DD(58.8 DEV+1
^PSD(58.8 - [#58.8] CHKD, DEV+1
^TMP("PSDACT" END+4!
^XUSEC("PSD TECH" PSDACT+4
^XUSEC("PSJ RPHARM" PSDACT+4

Label References

Name Line Occurrences
CHKD ASKD+2
DATE DATE+2
END ASKD+6, CHKD, DRUG+5, DATE, DATE+1, DEV+2, DEV+3
SAVE DEV+3

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
% END+2!
%DT DATE!*, END+2!
%DT("A" DATE*, DATE+1*
%H END+2!
%I END+2!
%ZIS DEV+2!*, END+2!
%ZIS("B" DEV+2*
ACT END+2!
ALL DRUG+6*, END+2!, SAVE+2
BFWD END+2!
C DEV+1*, END+2!
DA ASKD+3!, DRUG+2!, END+2!
DA(1 DRUG+3*
DATE END+2!
DIC ASKD+3!*, ASKD+6!, DRUG+2!, DRUG+3*!, END+2!
DIC("A" ASKD+4*
DIC("B" ASKD+5*
DIC("S" ASKD+3*
DIC("W" DRUG+3*
DIC(0 ASKD+3*, DRUG+3*
DIR END+2!
DIROUT END+2!
DIRUT END+2!
DTOUT END+2!
DUOUT END+2!
DUZ PSDACT+4
IO DEV+4
IO("Q" DEV+2!, DEV+3!
ION DEV+3
IOP DEV+2!
LN END+2!
MFG END+2!
NAOU END+2!
NODE END+2!
NQTY END+2!
NUM END+2!
PAT END+3!
PG END+3!
PHARM END+3!
POP DEV+2!, END+3!
PSD END+3!
PSDA END+3!
PSDATE DATE+1*, DATE+3*, END+3!
PSDED DATE+3*, DATE+4*, END+3!
PSDEV DEV+1*, DEV+2, END+3!
PSDIO DEV+3*, END+3!
PSDOUT END+3!
PSDPN END+3!
PSDR END+3!
PSDRG DRUG+5, END+3!, SAVE+2
PSDRG( DRUG+4*
PSDRGN END+3!
PSDS ASKD+1*, ASKD+7*, CHKD, DRUG+3, DEV+1, END+3!
PSDSD DATE+1*, DATE+2, DATE+3*, END+3!
>> PSDSITE PSDACT+3, ASKD+1, ASKD+2, ASKD+5, ASKD+7*
PSDSN ASKD+1*, ASKD+7*, END+3!
PSDUZ END+3!
PSDUZN END+3!
QTY END+3!
RX END+3!
TEXT END+3!
TYP END+3!
TYPE END+3!
U ASKD+1, ASKD+2, ASKD+5, ASKD+7
>> VA("BID" END+3!
>> VA("PID" END+3!
X DRUG+5, DRUG+6, END+3!
Y ASKD+6, ASKD+7, DRUG+3, DRUG+4, DATE, DATE+1, DATE+2, DATE+3, DEV+1*, END+3!
ZTDESC DEV+3*, END+4!
ZTDTH DEV+3!, END+4!
ZTIO DEV+3!*, END+4!
>> ZTQUEUED END+5
>> ZTREQ END+5*
ZTRTN DEV+3*, END+4!
ZTSAVE DEV+3!, END+4!
ZTSAVE("ALL" SAVE+2*
ZTSAVE("PSDATE" SAVE+1*
ZTSAVE("PSDED" SAVE+1*
ZTSAVE("PSDIO" SAVE+1*
ZTSAVE("PSDRG(" SAVE+2*
ZTSAVE("PSDS" SAVE+1*
ZTSAVE("PSDSD" SAVE+1*
ZTSAVE("PSDSN" SAVE+1*
ZTSK DEV+3!, END+4!
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables |  All