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

Package: Controlled Substances

Routine: PSDPDR2


Information

PSDPDR2 ;BIR/BJW-Narc Disp/Rec Report (VA FORM 10-2321) (cont'd) ; 09 FEB 95

Source Information

Source file <PSDPDR2.m>

Call Graph

Call Graph Total: 6

Package Total Call Graph
VA Fileman 5 NOW^%DTC  ^DIE  ^DIR  ^DIWP  ^DIWW  
Kernel 1 ^%ZISC  

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Controlled Substances 1 PSDPDR1  

Entry Points

Name Comments DBIA/ICR reference
COP
END
HDR ;header for log
DONE
PRINT ;entry to print
COPY ;copy 1 and 2

External References

Name Field # of Occurrence
NOW^%DTC COPY+1
^%ZISC END+3
^DIE COP+10
^DIR DONE+1, HDR+3
^DIWP COP+8
^DIWW COP+9

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: DONE+0
Function Call: WRITE
  • Prompt: !
  • Line Location: DONE+1
Function Call: WRITE
  • Prompt: !,"* VERIFIED ORDER WAS EDITED."
  • Line Location: HDR+2
Function Call: WRITE
  • Prompt: @IOF
  • Condition for execution: $Y
  • Line Location: HDR+4
Function Call: WRITE
  • Prompt: !,?45,"*** RECEIPT VERIFICATION COPY ***",!,?42,"Technician Delivering Orders: ________________________",!
  • Line Location: HDR+4
Function Call: WRITE
  • Prompt: " for ",NAOU
  • Line Location: HDR+5
Function Call: WRITE
  • Prompt: " (Perpetual Inventory)"
  • Condition for execution: $P($G(^PSD(58.8,+$O(^PSD(58.8,"B",NAOU,0)),2)),U,5)
  • Line Location: HDR+5
Function Call: WRITE
  • Prompt: ?125,"Page: ",PG,!,?52,RPDT,!
  • Line Location: HDR+6
Function Call: WRITE
  • Prompt: !,?14,"DATE",?78,"DATE"
  • Line Location: HDR+7
Function Call: WRITE
  • Prompt: !,"DISP #",?12,"DISPENSED",?24,"QTY",?33,"DRUG",?78,"ORD",?90,"ORDERED BY"
  • Line Location: HDR+8
Function Call: WRITE
  • Prompt: !,LN,!!
  • Line Location: HDR+9
Function Call: WRITE
  • Prompt: !!,?45,"**** NO PENDING NARCOTIC ORDERS TO BE DELIVERED ****"
  • Line Location: COPY+2
Function Call: WRITE
  • Prompt: !,?33,"BALANCE: "_$S($P(NODE,"^",11)]"":+$P(NODE,"^",11),1:"UNKNOWN")_" "_$P(NODE,"^",12)
  • Line Location: COP+5
Function Call: WRITE
  • Prompt: !,?33,"Mfg/Lot #/Exp Date: ",$P(NODE,"^",6)_" "_$P(NODE,"^",7)_" "_$P(NODE,"^",8)
  • Line Location: COP+6
Function Call: WRITE
  • Prompt: !
  • Line Location: COP+9
Function Call: WRITE
  • Prompt: !,"* VERIFIED ORDER WAS EDITED."
  • Line Location: COP+12
Routine Call
  • DIE
  • Line Location:
    • COP+10
Routine Call
  • DIR
  • Line Location:
    • DONE+1
    • HDR+3

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DD("DD" COPY+1
^PSD(58.8 - [#58.8] HDR+5
^PSD(58.81 - [#58.81] COP+8
^TMP("PSDRPT" END+3!, COPY+2, COPY+3, COPY+5
^UTILITY($J COP+8!

Label References

Name Line Occurrences
COPY PRINT+1
HDR COPY+2, COPY+3, COPY+5, COP, COP+8

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
% END!, COPY+1
%H END!
%I END!
%ZIS END!
ALL END!
ANS END!
C END!
CNT END!
COMM END!, COPY+1*, COP+8*, COP+9*
COPY PRINT+1*, END!, HDR+2, HDR+4, COPY+3*, COP+2, COP+5, COP+12
DA END!, HDR+3!, COP+10!*
DIC END!
DIE END!, COP+10!*
DIR DONE+1!, END!, HDR+3!
DIR("A" DONE+1*
DIR(0 DONE+1*, HDR+3*
DIROUT END!
DIRUT DONE+1!, END!
DIWF END!, COP+8*
DIWL END!, COP+8*
DIWR END!, COP+8*
DR END!, COP+10!*
DTOUT END!
DUOUT END!
EXP END!
EXPD END!
FLAG END!, COPY+2*
IOF DONE, HDR+4
IOSL COPY+5, COP, COP+8
IOST DONE, DONE+1, HDR+3
LN END!, HDR+9, COPY+2!*
LOOP END!
LOT END!
MFG END!
NAOU END!, HDR+5, COPY+1*, COPY+3*, COPY+5
NODE END!, COPY+5*, COP, COP+2, COP+3, COP+5, COP+6, COP+8, COP+10
NUM END!, COPY+5*, COP+3
OK END+1!
ORD END+1!
ORDN END+1!
PG END+1!, HDR+2, HDR+3, HDR+4*, HDR+6, COPY+1*, COP+12
POP END+1!
PSD END+1!
PSDA END+1!, COP+8*, COP+10*
PSDCPY PRINT+1, END+1!, HDR+2, HDR+4, COPY+3, COP+2, COP+5, COP+12
PSDDT END+1!
PSDEV END+1!
PSDG END+1!
PSDIO END+1!
PSDN END+1!
PSDNA END+1!
PSDOUT DONE+1, END+1!, HDR+3*, COPY+1*, COPY+3, COPY+5, COP, COP+8
PSDPT END+1!, COP+10
PSDR END+1!
PSDRN END+1!
PSDS END+1!
PSDSN END+1!
PSDST END+1!
PSDT END+1!
QTY END+1!
REQD END+1!
REQDT END+1!
RPDT END+1!, HDR+6, COPY+1*
SEL END+1!
STAT END+1!
STATN END+1!
TEXT END+1!, COP+8*
U HDR+5
X END+1!, COP+2~*, COP+3, COP+8*
Y END+1!, HDR+3, COPY+1*
ZTDESC END+2!
ZTDTH END+2!
ZTIO END+2!
>> ZTQUEUED END+4
>> ZTREQ END+4*
ZTRTN END+2!
ZTSAVE END+2!
ZTSK END+2!
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables |  All