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

Package: Controlled Substances

Routine: PSDRDR2


Information

PSDRDR2 ;BIR/BJW-Narc Disp/Rec (reprint VA FORM 10-2321) (cont'd) ; 4 Aug 94

Source Information

Source file <PSDRDR2.m>

Call Graph

Call Graph Total: 4

Package Total Call Graph
VA Fileman 4 NOW^%DTC  ^DIR  ^DIWP  ^DIWW  

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Controlled Substances 1 PSDRDR1  

Entry Points

Name Comments DBIA/ICR reference
PRINT ;reprint log in lieu of VA FORM 10-2321
END
COPY ;copy number
DONE
HDR ;header for log

External References

Name Field # of Occurrence
NOW^%DTC COPY+1
^DIR DONE+1, HDR+2
^DIWP COPY+14
^DIWW COPY+15

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+1
Function Call: WRITE
  • Prompt: @IOF
  • Condition for execution: $Y
  • Line Location: HDR+3
Function Call: WRITE
  • Prompt: !,?55,"*** REPRINT ***",!
  • Line Location: HDR+3
Function Call: WRITE
  • Prompt: !,?50,"*** PHARMACY VAULT COPY ***",!,?42,"Technician Delivering Orders: ____________________",!
  • Line Location: HDR+3
Function Call: WRITE
  • Prompt: " for ",NAOU
  • Line Location: HDR+4
Function Call: WRITE
  • Prompt: ?120,"Page: ",PG,!,?52,RPDT,!
  • Line Location: HDR+5
Function Call: WRITE
  • Prompt: !,?14,"DATE",?78,"DATE"
  • Line Location: HDR+6
Function Call: WRITE
  • Prompt: !,"DISP #",?12,"DISPENSED",?24,"QTY",?33,"DRUG",?78,"ORD",?90,"ORDERED BY"
  • Line Location: HDR+7
Function Call: WRITE
  • Prompt: !,LN,!!
  • Line Location: HDR+8
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,"^",13):+$P(NODE,"^",13),1:"UNKNOWN")_" "_$P(NODE,"^",14)
  • Line Location: COPY+9
Function Call: WRITE
  • Prompt: !,?33,"Mfg/Lot #/Exp Date: ",$P(NODE,"^",6)_" "_$P(NODE,"^",7)_" "_$P(NODE,"^",8)
  • Line Location: COPY+10
Function Call: WRITE
  • Prompt: !
  • Line Location: COPY+15
Function Call: WRITE
  • Prompt: !,"* VERIFIED ORDER WAS EDITED."
  • Line Location: COPY+16
Routine Call
  • DIR
  • Line Location:
    • DONE+1
    • HDR+2

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DD("DD" COPY+1
^PSD(58.81 - [#58.81] COPY+14
^TMP("PSDRDR" COPY+2, COPY+3, COPY+4
^UTILITY($J COPY+14!

Label References

Name Line Occurrences
COPY PRINT+1, PRINT+2
DONE PRINT+1
HDR COPY+2, COPY+3, COPY+4, COPY+5, COPY+14

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> % COPY+1
>> COMM COPY+1*, COPY+14*, COPY+15*
>> COPY PRINT+1*, PRINT+2*, HDR+1, HDR+3, COPY+6, COPY+9, COPY+16
DA HDR+2!
DIR DONE+1!, HDR+2!
DIR("A" DONE+1*
DIR(0 DONE+1*, HDR+2*
DIRUT DONE+1!
>> DIWF COPY+14*
>> DIWL COPY+14*
>> DIWR COPY+14*
>> FLAG PRINT+1, COPY+2*
IOF DONE, HDR+3
IOSL COPY+4, COPY+5, COPY+14
IOST DONE, DONE+1, HDR+2
LN HDR+8, COPY+2!*
>> NAOU HDR+4, COPY+1*, COPY+3*, COPY+4
>> NODE COPY+4*, COPY+5, COPY+6, COPY+7, COPY+9, COPY+10, COPY+11, COPY+12, COPY+14
>> NUM COPY+4*, COPY+7
>> PG HDR+1, HDR+2, HDR+3*, HDR+5, COPY+1*, COPY+16
>> PSDA COPY+14*
>> PSDCPY PRINT+2, HDR+1, HDR+3, COPY+6, COPY+9, COPY+16
>> PSDOUT PRINT+1, DONE+1, HDR+2*, COPY+1*, COPY+3, COPY+4, COPY+5, COPY+14
>> RPDT HDR+5, COPY+1*
>> TEXT COPY+14*
X COPY+6~*, COPY+7, COPY+14*
>> Y HDR+2, COPY+1*
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables |  All