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 |  FileMan Files Accessed Via FileMan Db Call
Print Page as PDF
Routine: PSDREC4

Package: Controlled Substances

Routine: PSDREC4


Information

PSDREC4 ;BIR/LTL-Issues Receiving ; 8 Aug 94

Source Information

Source file <PSDREC4.m>

Entry Points

Name Comments DBIA/ICR reference
PRE
CHO
SEL
ITEM
NON
IT
DISP
POST
MON
TR
FIND
QUIT

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"Previous receipts have been processed for this transaction.",!
  • Line Location: PRE+0
Function Call: WRITE
  • Prompt: !!,$P(PSDIT,U)
  • Line Location: ITEM+0
Function Call: WRITE
  • Prompt: ?5,$E($P($G(^PRCS(410,+PSDCON,"IT",+PSDI,1,PSDW,0)),U),1,75),!
  • Line Location: ITEM+1
Function Call: WRITE
  • Prompt: !,"Packaging: "
  • Line Location: ITEM+2
Function Call: WRITE
  • Prompt: $$UNITCODE^PRCPUX1(+$P(PSDIT,U,3))
  • Line Location: ITEM+3
Function Call: WRITE
  • Prompt: ?18,"Price :$",$P(PSDIT,U,7)
  • Line Location: ITEM+4
Function Call: WRITE
  • Prompt: ?33,"Item #: ",$P(PSDIT,U,5),?48,"Vendor Stock #: ",$P(PSDIT,U,6),!
  • Line Location: ITEM+5
Function Call: WRITE
  • Prompt: !!,PSDRUGN,!!
  • Line Location: IT+1
Function Call: WRITE
  • Prompt: !!,"Quantity ordered: ",$P($G(^PRCS(410,+PSDCON,"IT",+PSDI,0)),U,2)
  • Line Location: DISP+0
Function Call: WRITE
  • Prompt: ?40,"Quantity warehouse posted: ",$P($G(^(0)),U,12)
  • Line Location: DISP+1
Function Call: WRITE
  • Prompt: !!,"Quantity received by Primary: ",$P($G(^(0)),U,13)
  • Line Location: DISP+2
Function Call: WRITE
  • Prompt: ?40,"Converted quantity: ",PSDREC*$P($G(^PSDRUG(+PSDRUG,660)),U,5),!
  • Line Location: DISP+3
Function Call: WRITE
  • Prompt: !,"Sorry, but this drug is not stocked in this pharmacy location.",!
  • Line Location: DISP+5

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^PRCS(410 - [#410] Classic Fileman Calls
^PSDRUG - [#50] Classic Fileman Calls
^PSD(58.8 - [#58.8] Classic Fileman Calls
^PSD(58.81 - [#58.81] Classic Fileman Calls
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call