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

Package: Controlled Substances

Routine: PSDORST


Information

PSDORST ;BIR/JPW-Pharmacy Vault Order Stats Report ; 29 Aug 94

Source Information

Source file <PSDORST.m>

Call Graph

Call Graph

Call Graph Total: 8

Package Total Call Graph
VA FileMan 4 NOW^%DTC  ^DIC  Y^DIQ  ^DIR  
Kernel 3 (,HOME)^%ZIS  ^%ZISC  ^%ZTLOAD  
Controlled Substances 1 ^PSDSET  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

action A extended action Ea event driver Ed subscriber Su protocol O limited protocol LP run routine RR broker B edit E server Se print P screenman SM inquire I

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Controlled Substances 1 PSD PEND VAULT ORDERS  

Entry Points

Name Comments DBIA/ICR reference
ASKD ;ask dispensing location
DEV ;ask device and queue info
START ;loops thru pending orders and orders cancelled in the past 3 days
PRINT ;prints the report
DONE
END
LOOP ;starts drug loop for all orders
SET ;sets data for printing
HDR ;header for log

External References

Name Field # of Occurrence
NOW^%DTC START+2
^%ZIS DEV+3
HOME^%ZIS DEV+4
^%ZISC END+2
^%ZTLOAD DEV+4
^DIC ASKD+5
Y^DIQ DEV+2
^DIR DONE+1, HDR+1
^PSDSET PSDORST+2

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: $C(7),!!,?9,"** Please contact your Pharmacy Coordinator for access to",!,?12,"print this status report.",!!,"PSJ RPHARM or PSJ PHARM TECH security key required.",!
  • Line Location: PSDORST+4
Function Call: WRITE
  • Prompt: !!,"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+3
Function Call: WRITE
  • Prompt: !!,?10,"**** NO PENDING ORDERS TO REPORT ****"
  • Line Location: PRINT+2
Function Call: WRITE
  • Prompt: !,?2,"=> ",DRUG,!!
  • Line Location: PRINT+5
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: DONE+0
Function Call: WRITE
  • Prompt: !
  • Line Location: DONE+1
Function Call: WRITE
  • Prompt: @IOF
  • Condition for execution: $Y
  • Line Location: HDR+2
Function Call: WRITE
  • Prompt: !,?20,"Pharmacy Status of Pending Narcotic Orders",?70,"Page: ",PG,!,?35,PSDSN,!,?35,RPDT,!
  • Line Location: HDR+2
Function Call: WRITE
  • Prompt: !,?2,"=> DRUG",!,?13,"DATE",!,"DISP #",?12,"ORDERED",?32,"QTY",?40,"NAOU",?55,"ORDER STATUS"
  • Line Location: HDR+3
Function Call: WRITE
  • Prompt: !,LN,!
  • Line Location: HDR+4
Routine Call
  • DIC
  • Line Location:
    • ASKD+5
Routine Call
  • DIR
  • Line Location:
    • DONE+1
    • HDR+1
Routine Call
  • %ZIS
  • Line Location:
    • DEV+3
Routine Call
  • %ZIS
  • Line Location:
    • DEV+4

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DD("DD" PRINT+1, SET+4
^DD(58.8 DEV+2
^PSD(58.8 - [#58.8] DEV+2, SET+3
^PSD(58.82 - [#58.82] SET+4
^PSD(58.85 - [#58.85] START+3, LOOP+1, SET+1
^PSDRUG - [#50] SET+2
^TMP("PSDTST" START+1!, PRINT+2, PRINT+4, PRINT+5, END+2!, SET+5*
^XUSEC("PSJ PHARM TECH" PSDORST+3
^XUSEC("PSJ RPHARM" PSDORST+3

Label References

Name Line Occurrences
DEV ASKD+2
END ASKD+5, DEV+3, DEV+4, PRINT+2
HDR PRINT+2, PRINT+3, PRINT+5
LOOP START+3
SET LOOP+1

Naked Globals

Name Field # of Occurrence
^(0 SET+1, SET+2, SET+3

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
% END!
%H END!
%I END!
%ZIS DEV+3!*, END!
%ZIS("B" DEV+3*
C DEV+2*, END!
DA ASKD+3!, END!, HDR+1!
DIC ASKD+3!*, ASKD+5!, END!
DIC("A" ASKD+4*
DIC("B" ASKD+4*
DIC("S" ASKD+3*
DIC(0 ASKD+3*
DIR DONE+1!, END!, HDR+1!
DIR("A" DONE+1*
DIR(0 DONE+1*, HDR+1*
DIROUT END!
DIRUT DONE+1!, END!
DRUG PRINT+4*, PRINT+5, END!, LOOP+1*, SET+2
DRUGN END!, SET+2*, SET+5
DTOUT END!
DUOUT END!
DUZ PSDORST+3
IO DEV+5
IO("Q" DEV+3!, DEV+4!
IOF DONE, HDR+2
IOP DEV+3!
IOSL PRINT+5
IOST DONE, DONE+1, HDR+1
LN PRINT+2!*, END!, HDR+4
NAOU START+3*, END!, LOOP+1, SET+3
NAOUN END!, SET+3*, SET+5
NODE PRINT+5*, PRINT+6, END!, SET+1*, SET+4
OK PSDORST+3*, PSDORST+4!, END!
ORD PRINT+4*, PRINT+5, END!, LOOP+1*
PG PRINT+1*, END+1!, HDR+1, HDR+2*
POP DEV+3!
PSDA END+1!, LOOP+1*, SET+1, SET+5
PSDEV DEV+2*, DEV+3, END+1!
PSDOUT PRINT+1*, PRINT+4, PRINT+5, DONE+1, END+1!, HDR+1*
PSDPN END+1!, SET+4*, SET+5
PSDS ASKD+1*, ASKD+6*, DEV+2, END+1!, SET+1
>> PSDSITE PSDORST+2, ASKD+1, ASKD+2, ASKD+4, ASKD+6*
PSDSN ASKD+1*, ASKD+6*, END+1!, HDR+2
PSDT START+2*, PRINT+1, END+1!
QTY END+1!, SET+4*, SET+5
REQ END+1!, SET+4*, SET+5
RPDT PRINT+1*, END+1!, HDR+2
STAT START+3*, END+1!, LOOP+1, SET+4
STATN END+1!, SET+4*, SET+5
U ASKD+1, ASKD+2, ASKD+4, ASKD+6
X START+2, END+1!
Y ASKD+5, ASKD+6, DEV+2*, PRINT+1*, END+1!, SET+4*, HDR+1
ZTDESC DEV+4*, END+1!
ZTDTH DEV+4!, END+1!
ZTIO DEV+4!
>> ZTQUEUED END+2
>> ZTREQ END+2*
ZTRTN DEV+4*, END+1!
ZTSAVE DEV+4!, END+1!
ZTSAVE("PSDS" DEV+4*
ZTSAVE("PSDSN" DEV+4*
ZTSK DEV+4!, END+1!
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All