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

Package: Controlled Substances

Routine: PSDGSH2


Information

PSDGSH2 ;BIR/JPW-Review Green Sheet History (cont'd) ; 2 Aug 94

Source Information

Source file <PSDGSH2.m>

Entry Points

Name Comments DBIA/ICR reference
DISPLAY ;print data
HDR ;header
MORE ;additional display
LOOP ;loop thru transfer between naous
CHK ;check end of page

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,"Manufacturer",?16,": ",MFG,?61,"Lot:",?66,LOT,!,"Expiration Date : ",EXP
  • Line Location: DISPLAY+2
Function Call: WRITE
  • Prompt: !,"Dispensed by",?16,": ",$S($D(PSDBY):PSDBY,1:""),?49,"Disp Date: ",PSDDT
  • Line Location: DISPLAY+3
Function Call: WRITE
  • Prompt: !,"Filled by",?16,": ",FILL,?53,"Fill Date: ",$S($D(PROC):PROC,1:"")
  • Line Location: DISPLAY+4
Function Call: WRITE
  • Prompt: !,"Ord. Location",?16,": ",NAOU,!,"Ordered by",?16,": ",$G(REQ),?52
  • Line Location: DISPLAY+5
Function Call: WRITE
  • Prompt: "Order Date: ",$G(REQD)
  • Line Location: DISPLAY+6
Function Call: WRITE
  • Prompt: !,"Ord. by Pharm",?16,": ",PSDUZAN
  • Line Location: DISPLAY+7
Function Call: WRITE
  • Prompt: !,"Received by",?16,": ",ORC,?53,"Rec Date: ",$S($D(ORCD):ORCD,1:"")
  • Line Location: DISPLAY+11
Function Call: WRITE
  • Prompt: !,"Rec'd by Tech",?16,": ",RTECH,?55,"Rec Date :",$S($D(ORCD):ORCD,1:"")
  • Line Location: DISPLAY+12
Function Call: WRITE
  • Prompt: !,"REASON",?16,": ",REAS
  • Line Location: DISPLAY+13
Function Call: WRITE
  • Prompt: !,"Insp Hold by:",?16,": ",PSDIN,?51,"Placed Date: ",PSDIP
  • Line Location: DISPLAY+14
Function Call: WRITE
  • Prompt: !,?50,"Removed Date: ",PSDIR
  • Condition for execution: PSDIR]""
  • Line Location: DISPLAY+14
Function Call: WRITE
  • Prompt: !,"Hold Reason:",?16,": ",NODE16
  • Line Location: DISPLAY+15
Function Call: WRITE
  • Prompt: !,"Comp by Nurse",?16,": ",RETN,?53,"Comp Date: ",PSDTP
  • Line Location: DISPLAY+16
Function Call: WRITE
  • Prompt: !,"Pickup by",?16,": ",$S($D(PUBY):PUBY,1:""),?51,"Pickup Date: ",PUDT
  • Line Location: DISPLAY+17
Function Call: WRITE
  • Prompt: !,"Completed by",?16,": ",CBY,?53,"Comp Date: ",$S($D(CDT):CDT,1:"")
  • Line Location: DISPLAY+18
Function Call: WRITE
  • Prompt: !,"Referred Reason",?16,": ",OTR
  • Line Location: DISPLAY+19
Function Call: WRITE
  • Prompt: !
  • Line Location: DISPLAY+21
Function Call: WRITE
  • Prompt: @IOF
  • Condition for execution: $Y
  • Line Location: HDR+2
Function Call: WRITE
  • Prompt: !,?23,"Controlled Substance Order",!!
  • Line Location: HDR+2
Function Call: WRITE
  • Prompt: "Pharmacy Dispensing #: ",PSDPN,!,"Order Status",?21,": ",STAT,!,?23,$S(COMP]"":COMP,1:"")
  • Line Location: HDR+3
Function Call: WRITE
  • Prompt: !,"Dispensing Location : ",PSDSN,!,LN,!
  • Line Location: HDR+4
Function Call: WRITE
  • Prompt: !,"Drug",?16,": ",DRUG,?56,"Quantity: ",?66,QTY
  • Line Location: HDR+6
Function Call: WRITE
  • Prompt: !!,?10,"*** EDITED AFTER VERIFICATION ***",!!,"Edit Date",?16,": ",EDT,?48,"New Adjusted Qty: ",?64,EDQTY,!,"Pharmacist",?16,": ",EDPH,!,"Reason",?16,": ",EREAS
  • Line Location: MORE+1
Function Call: WRITE
  • Prompt: !!,?10,"*** CANCELLED AFTER VERIFICATION ***",!!,"Cancel Date",?16,": ",CANCD,!,"Pharmacist",?16,": ",CANCPH,!,"Reason",?16,": ",CREAS
  • Line Location: MORE+2
Function Call: WRITE
  • Prompt: !!,?10,"*** RETURNED TO STOCK ***",!!,"Ret by Nurse",?16,": ",$S($D(RETN):RETN,1:""),?57,"Qty Ret: ",?66,STKQ,!,"Returned Date",?16,": ",STKD,!,"Reason",?16,": ",SREAS
  • Line Location: MORE+3
Function Call: WRITE
  • Prompt: !!,?10,"*** TURNED IN FOR DESTRUCTION ***",!!,"Turned in by",?16,": ",$S($D(RETN):RETN,1:"")
  • Line Location: MORE+4
Function Call: WRITE
  • Prompt: !!,?10,"*** TRANSFER BETWEEN NAOUs ***",!
  • Line Location: MORE+7
Function Call: WRITE
  • Prompt: !
  • Line Location: MORE+8
Function Call: WRITE
  • Prompt: !,"From NAOU",?16,": ",$P(TRN(JJ),"^"),?56,"Quantity:",?66,$P(TRN(JJ),"^",7),!,"Nurse From",?16,": ",$P(TRN(JJ),"^",3),?56,"Date:",?62,$P(TRN(JJ),"^",2),!
  • Line Location: LOOP+1
Info |  Source |  Entry Points |  Interaction Calls