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

Package: Controlled Substances

Routine: PSDORP1


Information

PSDORP1 ;BIR/JPW-Pharm CS Order Entry (cont'd) ; 2 Aug 94

Source Information

Source file <PSDORP1.m>

Entry Points

Name Comments DBIA/ICR reference
ASK ;displays order for review
DISPLAY ;displays order request to screen
EDIT ;edit or delete order request
DEL ;deletes order request
PHARM ;create worksheet entry in file 58.85
ADD

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!
  • Line Location: ASK+2
Function Call: WRITE
  • Prompt: !!
  • Line Location: ASK+6
Function Call: WRITE
  • Prompt: "Your order request #"_CNT1_" of "_CNT
  • Condition for execution: $D(ORD)
  • Line Location: ASK+6
Function Call: WRITE
  • Prompt: ?32,"Sent to Pharmacy...",!!
  • Line Location: ASK+6
Function Call: WRITE
  • Prompt: @IOF,!,?23,"Controlled Substance Order Request"
  • Line Location: DISPLAY+2
Function Call: WRITE
  • Prompt: " # "_CNT1_" of "_CNT
  • Line Location: DISPLAY+2
Function Call: WRITE
  • Prompt: !!,"Pharmacy Dispensing #: ",!,"Requested by",?16,": ",$P($G(^VA(200,PSDUZ,0)),"^"),?52,"Request Date: ",REQD,!,LN,!
  • Line Location: DISPLAY+3
Function Call: WRITE
  • Prompt: !,"Drug",?16,": ",PSDRN,?56,"Quantity: ",?66,PSDQTY,!,"Dispensed by",?16,": N/A",?50,"Dispensed Date: N/A"
  • Line Location: DISPLAY+4
Function Call: WRITE
  • Prompt: !,"Disp. Location",?16,": "
  • Line Location: DISPLAY+5
Function Call: WRITE
  • Prompt: $P($G(^PSD(58.8,+PSDS,0)),"^")
  • Condition for execution: +PSDS
  • Line Location: DISPLAY+5
Function Call: WRITE
  • Prompt: !,"Exp. Date",?16,": ",!,"Manufacturer",?16,": ",!,"Lot #",?16,": "
  • Line Location: DISPLAY+5
Function Call: WRITE
  • Prompt: !,"Ord. Location",?16,": ",NAOUN,!,"Order Status",?16,": ",$P($G(^PSD(58.82,1,0)),"^"),!,"Comments:"
  • Line Location: DISPLAY+6
Function Call: READ
  • Variable: X
  • Timeout: DTIME
  • Line Location: EDIT+1
Function Call: WRITE
  • Prompt: !!,"Press <RET> to edit this order request, or enter 'D' to delete the request.",!
  • Line Location: EDIT+2
Function Call: WRITE
  • Prompt: !!,?25,"Request being deleted...",!
  • Line Location: DEL+1
Function Call: WRITE
  • Prompt: ?5,!!,"Processing your request now..."
  • Line Location: PHARM+1
Info |  Source |  Entry Points |  Interaction Calls