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

Package: Controlled Substances

Routine: PSDORN1


Information

PSDORN1 ;BIR/JPW,LTL-Nurse CS Order Entry (cont'd) ;12/14/99 16:09

Source Information

Source file <PSDORN1.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+7
Function Call: WRITE
  • Prompt: "Your order request #"_CNT1_" of "_CNT
  • Condition for execution: $D(ORD)
  • Line Location: ASK+7
Function Call: WRITE
  • Prompt: @IOF,!,?17,"Controlled Substance "
  • Line Location: DISPLAY+2
Function Call: WRITE
  • Prompt: "Order Request"
  • Line Location: DISPLAY+4
Function Call: WRITE
  • Prompt: " # "_CNT1_" of "_CNT
  • Line Location: DISPLAY+4
Function Call: WRITE
  • Prompt: !!,"Pharmacy Dispensing #: ",!
  • Line Location: DISPLAY+6
Function Call: WRITE
  • Prompt: "Requested by",?16,": ",$P($G(^VA(200,PSDUZ,0)),"^")
  • Line Location: DISPLAY+7
Function Call: WRITE
  • Prompt: ?51,$S($G(PSDT(9))]"":"Needed by: "_PSDT(9),1:"Request Date: "_REQD),!,LN,!
  • Line Location: DISPLAY+8
Function Call: WRITE
  • Prompt: !,"Drug",?16,": ",PSDRN,?56,"Quantity: ",?66,PSDQTY,!,"Dispensed by",?16,": N/A",?50,"Dispensed Date: N/A"
  • Line Location: DISPLAY+9
Function Call: WRITE
  • Prompt: !,"Disp. Location",?16,": "
  • Line Location: DISPLAY+10
Function Call: WRITE
  • Prompt: $P($G(^PSD(58.8,+PSDS,0)),"^")
  • Condition for execution: +PSDS
  • Line Location: DISPLAY+10
Function Call: WRITE
  • Prompt: !,"Exp. Date",?16,": ",!,"Manufacturer",?16,": ",!,"Lot #",?16,": "
  • Line Location: DISPLAY+10
Function Call: WRITE
  • Prompt: !,"Ord. Location",?16,": ",NAOUN,!,"Order Status",?16,": ",$P($G(^PSD(58.82,1,0)),"^"),!,"Comments:"
  • Line Location: DISPLAY+11
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+2
Info |  Source |  Entry Points |  Interaction Calls