Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables |  All
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>

Call Graph

Call Graph Total: 3

Package Total Call Graph
VA Fileman 3 ^DIR  ^DIWP  ^DIWW  

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Controlled Substances 1 PSDGSH1  

Entry Points

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

External References

Name Field # of Occurrence
^DIR HDR+1
^DIWP DISPLAY+9
^DIWW DISPLAY+10

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
Routine Call
  • DIR
  • Line Location:
    • HDR+1

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DPT - [#2] HDR+5
^PSD(58.81 - [#58.81] DISPLAY+9, HDR+5
^UTILITY($J DISPLAY+9!

Label References

Name Line Occurrences
CHK DISPLAY+11, DISPLAY+12, DISPLAY+13, DISPLAY+14, DISPLAY+16, DISPLAY+17, DISPLAY+18, DISPLAY+19
HDR DISPLAY+1, MORE+1, MORE+2, MORE+3, MORE+4, MORE+7, LOOP+1, CHK+1
LOOP MORE+7
MORE DISPLAY+20

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> CANCD MORE+2
>> CANCPH MORE+2
>> CBY DISPLAY+18
>> CDT DISPLAY+18
>> COMM DISPLAY+8*, DISPLAY+9*, DISPLAY+10*
>> COMP HDR+3
>> CREAS MORE+2
DA HDR+1!
>> DESD MORE+6
>> DESDP MORE+6
>> DESTD MORE+4, MORE+5
>> DESTH MORE+5
>> DESTQ MORE+5
DIR HDR+1!
DIR(0 HDR+1*
>> DIWF DISPLAY+9*
>> DIWL DISPLAY+9*
>> DIWR DISPLAY+9*
>> DREAS MORE+5
>> DRUG HDR+6
>> EDPH MORE+1
>> EDQTY MORE+1
>> EDT MORE+1
>> EREAS MORE+1
>> EXP DISPLAY+2
>> FILL DISPLAY+4
IOF HDR+2
IOSL MORE+1, MORE+2, MORE+3, MORE+4, MORE+7, LOOP+1, CHK+1
IOST HDR+1
>> JJ LOOP+1*, LOOP+2, LOOP+4, LOOP+5
LN HDR+2!*, HDR+4
>> LOT DISPLAY+2
>> MFG DISPLAY+2
>> NAOU DISPLAY+5
>> NODE16 DISPLAY+15
>> NODE3 DISPLAY+20, MORE+3, MORE+4
>> NODE4 DISPLAY+20, MORE+1
>> NODE5 DISPLAY+20, MORE+2
>> NODE7 MORE+7
>> ORC DISPLAY+11
>> ORCD DISPLAY+11, DISPLAY+12
>> OTR DISPLAY+19
>> PG DISPLAY+1*, HDR+1, HDR+2*
>> PROC DISPLAY+4
>> PSDA DISPLAY+9, HDR+5
>> PSDBY DISPLAY+3
>> PSDDT DISPLAY+3
>> PSDIN DISPLAY+14
>> PSDIP DISPLAY+14
>> PSDIR DISPLAY+14
>> PSDOUT DISPLAY+1*, DISPLAY+11, DISPLAY+12, DISPLAY+13, DISPLAY+14, DISPLAY+16, DISPLAY+17, DISPLAY+18, DISPLAY+19, HDR+1*
, MORE+1, MORE+2, MORE+3, MORE+4, MORE+7, LOOP+1
>> PSDPN HDR+3
>> PSDSN HDR+4
>> PSDTP DISPLAY+16
>> PSDUZAN DISPLAY+7
>> PUBY DISPLAY+17
>> PUDT DISPLAY+17
>> QTY HDR+6
>> REAS DISPLAY+13
>> REQ DISPLAY+5
>> REQD DISPLAY+6
>> RETN DISPLAY+16, MORE+3, MORE+4
>> RTECH DISPLAY+12
>> SREAS MORE+3
>> STAT HDR+3
>> STKD MORE+3
>> STKQ MORE+3
>> TEXT DISPLAY+9*
>> TRANS DISPLAY+20
>> TRN( LOOP+1, LOOP+2, LOOP+4, LOOP+5
U HDR+5, LOOP+4
>> X DISPLAY+9*
>> Y HDR+1
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables |  All