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 |  Naked Globals |  Local Variables |  All
Print Page as PDF
Routine: PSDNRGO

Package: Controlled Substances

Routine: PSDNRGO


Information

PSDNRGO ;BIR/JPW-Receive Green Sheet for NAOU ; 6 Jan 94

Source Information

Source file <PSDNRGO.m>

Call Graph

Call Graph Total: 3

Package Total Call Graph
VA Fileman 3 NOW^%DTC  ^DIE  ^DIR  

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Controlled Substances 1 PSDORSU  

Entry Points

Name Comments DBIA/ICR reference
REC ;receive at order level in 58.8
ORD
END
UPDATE ;update 58.8 and 58.81

External References

Name Field # of Occurrence
NOW^%DTC ORD+6
^DIE REC+6, UPDATE+9, UPDATE+13
^DIR REC+2

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: $C(7),!!,"The Green Sheet # ",PSDPN," is assigned to ",NAOUN,".",!,"Please select another Green Sheet.",!
  • Line Location: ORD+3
Function Call: WRITE
  • Prompt: $C(7),!!,"There's no data on ",NAOUN," for Green Sheet # ",PSDPN,".",!,"Contact your Pharmacy Coordinator for assistance.",!
  • Line Location: ORD+4
Function Call: WRITE
  • Prompt: $C(7),!!,"This Green Sheet has a status of "_$S(STATN]"":STATN,1:"UNKNOWN")_".",!,"Please select another Green Sheet.",!
  • Line Location: ORD+5
Function Call: WRITE
  • Prompt: !!,"Accessing ",PSDRN," information...",!!
  • Line Location: REC+1
Function Call: WRITE
  • Prompt: !!,"Quantity not entered. No action taken.",!,"This order remains ",STATN,!!
  • Line Location: REC+2
Function Call: WRITE
  • Prompt: $C(7),!!,"The quantity received does not match the quantity dispensed.",!,"This order must be returned to pharmacy for investigation.",!!
  • Line Location: REC+3
Function Call: WRITE
  • Prompt: $C(7),!!,"*** THIS ORDER HAS NOT BEEN RECEIVED ***",!,"Receiving nurses name must be entered.",!!,"The status remains "_STATN,!
  • Line Location: REC+7
Function Call: WRITE
  • Prompt: !!,"Updating your records now..."
  • Line Location: UPDATE+11
Function Call: WRITE
  • Prompt: "done.",!!
  • Line Location: UPDATE+14
Function Call: WRITE
  • Prompt: ?5,"*** Your Green Sheet #"_PSDPN_" is now "_$S($P($G(^PSD(58.82,STAT,0)),"^")]"":$P(^(0),"^"),1:"UNKNOWN")_" ***",!
  • Line Location: UPDATE+15
Routine Call
  • DIE
  • Line Location:
    • REC+6
    • UPDATE+9
    • UPDATE+13
Routine Call
  • DIR
  • Line Location:
    • REC+2

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DD("DD" ORD+6
^PSD(58.8 - [#58.8] ORD+1, ORD+4, REC+6, UPDATE+3*, UPDATE+6, UPDATE+8
^PSD(58.81 - [#58.81] ORD+2, UPDATE+3, UPDATE+8, UPDATE+10*, UPDATE+15
^PSD(58.82 - [#58.82] ORD, UPDATE+15
^PSD(58.85 - [#58.85] UPDATE+13
^PSDRUG - [#50] ORD+1

Label References

Name Line Occurrences
END ORD+3, ORD+4, ORD+5, REC+2, REC+3, REC+7

Naked Globals

Name Field # of Occurrence
^(0 UPDATE+15
^(4 ORD+2

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
% ORD+6, END!
%DT END!
%H END!
%I END!
>> AOU ORD+3
AOUN END!
D END!
DA REC+2!, REC+4!*, REC+6!, UPDATE+7!*, UPDATE+9!, UPDATE+13*!, END!
DA(1 REC+4*, REC+5
DA(2 REC+4*, REC+5
DIC END!
DIE REC+4!, REC+5*, REC+6!, UPDATE+7!*, UPDATE+9!, UPDATE+13!*, END!
DIR REC+2!
DIR("B" REC+2*
DIR(0 REC+2*
DIRUT REC+2!
DR REC+4!, REC+6*!, UPDATE+7!, UPDATE+8*, UPDATE+9!, UPDATE+13!*, END!
DTOUT REC+7, END!
DUOUT END!
DUZ ORD+1
>> NAOU ORD+1*, ORD+3, ORD+4, REC+4, REC+6, UPDATE+3, UPDATE+6, UPDATE+8, UPDATE+13
>> NAOU(1 UPDATE+15*
NAOUN ORD+1*, ORD+3, ORD+4, END+1!
OK ORD+1*, REC+6, UPDATE+10, END+1!
>> ORD ORD+1*, ORD+4, REC+4, UPDATE+6, UPDATE+13
OREC UPDATE+6*, UPDATE+8, END+1!
PSDA ORD+2, UPDATE+3, UPDATE+7, UPDATE+8, UPDATE+10, UPDATE+15, END+1!
>> PSDOUT ORD+3*, ORD+4*, ORD+5*, REC+2*, REC+3*, REC+7*
PSDPN ORD*, ORD+3, ORD+4, UPDATE+15, END+1!
>> PSDR ORD+1*, ORD+4, REC+4, REC+6, UPDATE+3, UPDATE+6, UPDATE+13
PSDRN ORD+1*, REC+1, END+1!
PSDUZ ORD+1*, REC+6, UPDATE+10, END+1!
PSDUZN END+1!
QTY ORD+1*, ORD+2*, REC+2, REC+3, REC+6, UPDATE+3, UPDATE+8, END+1!
RECD ORD+6*, REC+6, UPDATE+8, END+1!
RECDT ORD+6*, END+1!
RQTY REC+3*, END+1!
>> STAT ORD*, ORD+5, UPDATE+15*
STATN ORD*, ORD+5, REC+2, REC+7, END+1!
SUB END+1!
U REC+6, UPDATE+3, UPDATE+8
X END+1!
Y ORD+6*, REC+3, REC+7, END+1!
Y(0 ORD, ORD+1
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All