Routine: PSDREC4

Information

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

Source file <PSDREC4.m>

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