Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Entry Points |  Interaction Calls
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>

Entry Points

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

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
Info |  Source |  Entry Points |  Interaction Calls