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

Package: Controlled Substances

Routine: PSDFND


Information

PSDFND ;BIR/JPW-Pharm Filled Not Delivered Report ; 29 Aug 94

Source Information

Source file <PSDFND.m>

Call Graph

Call Graph Total: 9

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

Caller Graph

Caller Graph Total: 2

Package Total Caller Graph
Controlled Substances 2 PSD NOT DELIVERED  PSD NOT DELIVERED NURSE  

Entry Points

Name Comments DBIA/ICR reference
END ;
HDR ;header for log
START ;compile data
SUM ;if summary only
DEV ;ask device and queue info
ASKD ;ask dispensing location
DONE
PRINT ;print filled not delivered log

External References

Name Field # of Occurrence
NOW^%DTC PRINT+1
^%ZIS DEV+3
HOME^%ZIS DEV+4
^%ZISC END+3
^%ZTLOAD DEV+4
^DIC ASKD+5
Y^DIQ DEV+2
^DIR SUM+3, PRINT+7, DONE+1, HDR+1
^PSDFND1 PRINT+2, PRINT+8
^PSDSET PSDFND+2

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: $C(7),!!,?9,"** Please contact your Coordinator for access to",!,?12,"review this narcotics report.",!!,"PSJ RPHARM, PSJ RNURSE, or PSJ PHARM TECH security key required.",!
  • Line Location: PSDFND+4
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: DEV+1
Function Call: WRITE
  • Prompt: !,"NO DEVICE SELECTED OR REPORT PRINTED!"
  • Line Location: DEV+3
Function Call: WRITE
  • Prompt: !!,?40,"**** NO PENDING DELIVERIES FOR THIS DISPENSING LOCATION ****",!
  • Line Location: PRINT+4
Function Call: WRITE
  • Prompt: !,NUM,?15,$P(NODE,"^"),?65,$J($P(NODE,"^",3),6),?80,$P(NODE,"^",4),?95,$P(NODE,"^",2),?112,$P(NODE,"^",5)
  • Line Location: PRINT+6
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: !,?45,"Narcotics Filled Not Delivered Report",?115,"Page: ",PG,!,?45,"Dispensing Vault: "_PSDSN,!,?56,RPDT,!
  • Line Location: HDR+2
Function Call: WRITE
  • Prompt: !!,?65,"QUANTITY",?82,"DATE",?97,"NAOU"
  • Line Location: HDR+3
Function Call: WRITE
  • Prompt: !,"DISP #",?15,"DRUG",?65,"DISPENSED",?80,"DISPENSED",?94,"DISPENSED TO",?112,"DISPENSED BY"
  • Line Location: HDR+4
Function Call: WRITE
  • Prompt: !,LN,!
  • Line Location: HDR+5
Routine Call
  • %ZIS
  • Line Location:
    • DEV+4
Routine Call
  • DIC
  • Line Location:
    • ASKD+5
Routine Call
  • DIR
  • Line Location:
    • SUM+3
    • PRINT+7
    • DONE+1
    • HDR+1
Routine Call
  • %ZIS
  • Line Location:
    • DEV+3

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DD("DD" START+11, PRINT+1
^DD(58.8 DEV+2
^PSD(58.8 - [#58.8] DEV+2, START+5
^PSD(58.81 - [#58.81] START+2, START+3, START+4, START+7, START+10
^PSDRUG - [#50] START+6
^TMP("PSDFND" START+1!, START+12*, PRINT+4, PRINT+5, PRINT+6, END+3!
^TMP("PSDFNDT" START+1!, START+8*, START+9*, END+3!
^VA(200 - [#200] START+10
^XUSEC("PSJ PHARM TECH" PSDFND+3
^XUSEC("PSJ RNURSE" PSDFND+3
^XUSEC("PSJ RPHARM" PSDFND+3

Label References

Name Line Occurrences
DONE PRINT+2, PRINT+4, PRINT+7
END ASKD+5, SUM+3, DEV+3, DEV+4
HDR PRINT+4, PRINT+5, PRINT+6
SUM ASKD+2

Naked Globals

Name Field # of Occurrence
^(0 START+2, START+5, START+6, START+10
^(4 START+7
^(5 START+3

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

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