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

Package: Controlled Substances

Routine: PSDNRGS


Information

PSDNRGS ;BIR/JPW-Receive Green Sheet for NAOU ; 17 Jan 2017 9:42 AM

Source Information

Source file <PSDNRGS.m>

Call Graph

Call Graph

Call Graph Total: 7

Package Total Call Graph
VA FileMan 4 NOW^%DTC  (,IX)^DIC  ^DIE  ^DIR  
Kernel 2 EN^XQH  SIG^XUSESIG  
Controlled Substances 1 ^PSDSET  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

action A extended action Ea event driver Ed subscriber Su protocol O limited protocol LP run routine RR broker B edit E server Se print P screenman SM inquire I

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Controlled Substances 1 PSD REC GS  

Entry Points

Name Comments DBIA/ICR reference
ASKN ;ask naou
GS ;select green sheet #
ORD
REC ;receive at order level in 58.8
UPDATE ;update 58.8 and 58.81
END

External References

Name Field # of Occurrence
NOW^%DTC ORD+9
^DIC ASKN+4
IX^DIC GS+3
^DIE REC+8, UPDATE+10, UPDATE+14
^DIR REC+3
^PSDSET PSDNRGS+2
EN^XQH PSDNRGS+6
SIG^XUSESIG PSDNRGS+8

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: $C(7),!!,?9,"** Please contact your Coordinator for access to complete",!,?12,"narcotic orders.",!!,"PSJ RNURSE, PSD NURSE, PSJ RPHARM, or PSJ PHARM TECH security key required.",!
  • Line Location: PSDNRGS+5
Function Call: WRITE
  • Prompt: !!,"Receive Controlled Substances Orders and Green Sheet"
  • Line Location: PSDNRGS+7
Function Call: WRITE
  • Prompt: !
  • Line Location: ASKN+1
Function Call: WRITE
  • Prompt: !
  • Line Location: GS+1
Function Call: WRITE
  • Prompt: !,AKUNITS
  • Line Location: GS+16
Function Call: WRITE
  • Prompt: !,"The Green Sheet # ",PSDPN," is currently in use by another user",!,"Please select another Green Sheet.",!
  • Line Location: ORD+4
Function Call: WRITE
  • Prompt: $C(7),!!,"The Green Sheet # ",PSDPN," is assigned to ",NAOUN,".",!,"Please select another Green Sheet.",!
  • Line Location: ORD+6
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+7
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+8
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: !!,"Quantity not entered. No action taken.",!,"This order remains ",STATN,!!
  • Line Location: REC+3
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+5
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+9
Function Call: WRITE
  • Prompt: !!,"Updating your records now..."
  • Line Location: UPDATE+12
Function Call: WRITE
  • Prompt: "done.",!!
  • Line Location: UPDATE+15
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+16
Routine Call
  • DIC
  • Line Location:
    • ASKN+4
Routine Call
  • DIC
  • Line Location:
    • GS+3
Routine Call
  • DIE
  • Line Location:
    • REC+8
    • UPDATE+10
    • UPDATE+14
Routine Call
  • DIR
  • Line Location:
    • REC+3

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DD("DD" ORD+9
^PSD(58.8 - [#58.8] GS+15, ORD+1, ORD+7, REC+8, UPDATE+2, UPDATE+4*, UPDATE+5, UPDATE+7, UPDATE+9
^PSD(58.81 - [#58.81] ORD+3, ORD+5, ORD+6, ORD+7, ORD+8, REC+3, REC+5, REC+9, UPDATE+9, UPDATE+11*
, UPDATE+16, UPDATE+17
^PSD(58.82 - [#58.82] ORD, UPDATE+16
^PSD(58.85 - [#58.85] UPDATE+14
^PSDRUG - [#50] ORD+1
^VA(200 - [#200] PSDNRGS+6, PSDNRGS+7
^XUSEC("PSD NURSE" PSDNRGS+4
^XUSEC("PSJ PHARM TECH" PSDNRGS+4
^XUSEC("PSJ RNURSE" PSDNRGS+4
^XUSEC("PSJ RPHARM" PSDNRGS+4

Label References

Name Line Occurrences
ASKN GS+3
END ASKN+4, ORD+7, REC+3, REC+9
GS ORD+4, ORD+6, ORD+8, REC+5, UPDATE+18

Naked Globals

Name Field # of Occurrence
^(0 PSDNRGS+7, UPDATE+16
^(4 ORD+5

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
% ORD+9, END!
%DT END!
%H END!
%I END!
AKD GS+13~, GS+14*, GS+15
AKD1 GS+13~, GS+14*, GS+15
AKUNITS PSDNRGS+3~, GS+15*, GS+16, REC+4
AOU ASKN+4*, ORD+6, END!
AOUN ASKN+4*, END!
D GS+1*, END!
DA ASKN+1!, GS+1!, REC+3!, REC+6!*, REC+8!, UPDATE+8!*, UPDATE+10!, UPDATE+14*!, END!
DA(1 REC+6*, REC+7
DA(2 REC+6*, REC+7
DIC ASKN+1!*, ASKN+4!, GS+1!*, GS+3!, END!
DIC("A" ASKN+1*, GS+1*
DIC("S" ASKN+2*, ASKN+3*, GS+2*
DIC(0 ASKN+1*, GS+1*
DIE REC+6!, REC+7*, REC+8!, UPDATE+8!*, UPDATE+10!, UPDATE+14!*, END!
>> DILOCKTM ORD+3, UPDATE+2
DIR REC+3!
DIR("A" REC+4*
DIR("B" REC+3*
DIR(0 REC+3*
DIRUT REC+3!
DR REC+6!, REC+8*!, UPDATE+8!, UPDATE+9*, UPDATE+10!, UPDATE+14!*, END!
DTOUT REC+9, END!
DUOUT END!
DUZ PSDNRGS+4, PSDNRGS+6, PSDNRGS+7
NAOU ORD+1*, ORD+6, ORD+7, REC+6, REC+8, UPDATE+2, UPDATE+4, UPDATE+5, UPDATE+7, UPDATE+9
, UPDATE+14, END+1!
NAOUN ORD+1*, ORD+6, ORD+7, END+1!
OK PSDNRGS+4*, PSDNRGS+5!, ASKN+2, ASKN+3, REC+8, UPDATE+11, END+1!
ORD ORD+1*, ORD+7, REC+6, UPDATE+7, UPDATE+14, END+1!
OREC UPDATE+7*, UPDATE+9, END+1!
PSDA GS+3*, ORD+3, ORD+5, ORD+6, ORD+7, ORD+8, REC+3, REC+5, REC+9, UPDATE+8
, UPDATE+9, UPDATE+11, UPDATE+16, UPDATE+17, END+1!
PSDPN ORD*, ORD+4, ORD+6, ORD+7, UPDATE+16, END+1!
PSDR ORD+1*, ORD+7, REC+6, REC+8, UPDATE+2, UPDATE+4, UPDATE+5, UPDATE+7, UPDATE+14, END+1!
PSDRN ORD+1*, REC+1, END+1!
>> PSDSITE PSDNRGS+2
PSDUZ PSDNRGS+7*, REC+8, UPDATE+11, END+1!
PSDUZN PSDNRGS+7*, END+1!
QTY ORD+1*, ORD+5*, REC+3, REC+5, REC+8, UPDATE+4, UPDATE+9, END+1!
RECD ORD+9*, REC+8, UPDATE+9, END+1!
RECDT ORD+9*, END+1!
RQTY REC+5*, END+1!
STAT ORD*, ORD+8, UPDATE+16*, END+1!
STATN ORD*, ORD+8, REC+3, REC+9, END+1!
SUB END+1!
U PSDNRGS+6, REC+8, UPDATE+9
X PSDNRGS+8~, END+1!
X1 PSDNRGS+8~
XQH PSDNRGS+6~*
Y ASKN+4, GS+3, ORD+9*, REC+5, REC+9, END+1!
Y(0 GS+14, 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