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

Package: Controlled Substances

Routine: PSDNTTPC


Information

PSDNTTPC ;BIR/JPW-Transfer Green Sheet - Receive this NAOU ; 8/15/07 11:42am

Source Information

Source file <PSDNTTPC.m>

Call Graph

Call Graph

Call Graph Total: 6

Package Total Call Graph
Controlled Substances 2 ^PSDNTTP1  ^PSDSET  
Kernel 2 EN^XQH  SIG^XUSESIG  
VA FileMan 2 (,IX)^DIC  ^DIR  

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 GS REC PCA/INF FOR PATIENT  

Entry Points

Name Comments DBIA/ICR reference
ASKN ;ask transfer to naou
GS ;select green sheet #
END
CHK ;check transfer to naou

External References

Name Field # of Occurrence
^DIC ASKN+3
IX^DIC GS+3
^DIR CHK+6
^PSDNTTP1 GS+16
^PSDSET PSDNTTPC+2
EN^XQH PSDNTTPC+5
SIG^XUSESIG GS+15

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: $C(7),!!,?9,"** Please contact your Coordinator for access to transfer",!,?12,"narcotic orders.",!!,"PSJ RNURSE or PSD NURSE security key required.",!
  • Line Location: PSDNTTPC+4
Function Call: WRITE
  • Prompt: !!,"Receive a transferred Green Sheet into this NAOU"
  • Line Location: PSDNTTPC+6
Function Call: WRITE
  • Prompt: !
  • Line Location: ASKN+1
Function Call: WRITE
  • Prompt: !
  • Line Location: GS+1
Function Call: WRITE
  • Prompt: !!,"Transfer quantity is greater than 0.",!,"Use option 'Receive Green Sheet & Drug from another NAOU'.",!
  • Line Location: GS+13
Function Call: WRITE
  • Prompt: !!,"This Green Sheet has a status of "_$S(STATN]"":STATN,1:"UNKNOWN")_".",!,"Please contact your Pharmacy Coordinator for assistance.",!
  • Line Location: GS+14
Function Call: WRITE
  • Prompt: !!,?5,"The Green Sheet # ",PSDPN," and quantity of ",RQTY
  • Line Location: CHK+1
Function Call: WRITE
  • Prompt: " was being transferred",!,?10,"*** from ",NAOUFN,!,?10,"*** to ",NAOUN,".",!!,$C(7),?5,"You are transferring it from ",NAOUFN,!,?10,"*** to ",AOUN,"."
  • Line Location: CHK+2
Function Call: WRITE
  • Prompt: " is being transferred ",!,?10,"*** from ",NAOUFN,!,?10,"*** to ",NAOUN,"."
  • Line Location: CHK+3
Function Call: WRITE
  • Prompt: !
  • Line Location: CHK+4
Function Call: WRITE
  • Prompt: !!,"Receive Green Sheet # ",PSDPN," transfer into another NAOU not completed.",!!
  • Line Location: CHK+6
Routine Call
  • DIC
  • Line Location:
    • ASKN+3
Routine Call
  • DIC
  • Line Location:
    • GS+3
Routine Call
  • DIR
  • Line Location:
    • CHK+6

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^PSD(58.8 - [#58.8] GS+6, GS+7, GS+11
^PSD(58.81 - [#58.81] GS+9, GS+10, GS+11, GS+12
^PSD(58.82 - [#58.82] GS+4
^PSDRUG - [#50] GS+5
^TMP("PSDNTMSG" END+2!
^VA(200 - [#200] PSDNTTPC+5, PSDNTTPC+6
^XUSEC("PSD NURSE" PSDNTTPC+3
^XUSEC("PSJ RNURSE" PSDNTTPC+3

Label References

Name Line Occurrences
CHK GS+15
END ASKN+3, GS+3, GS+13, GS+14, GS+15

Naked Globals

Name Field # of Occurrence
^(4 GS+9

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
% END!
%DT END!
%H END!
%I END!
AOU ASKN+3*, END!, CHK+2, CHK+3
AOUN ASKN+3*, END!, CHK+2
D GS+1*, END!
DA ASKN+1!, GS+1!, END!, CHK+4!
DIC ASKN+1!*, ASKN+3!, GS+1!*, GS+3!, END!
DIC("A" ASKN+1*, GS+1*
DIC("S" ASKN+2*, GS+2*
DIC(0 ASKN+1*, GS+1*
DIE END!
DIK END!
DINUM END!
DIR END!, CHK+4!, CHK+6!
DIR("?" CHK+5*
DIR("A" CHK+4*
DIR("B" CHK+4*
DIR(0 CHK+4*
DIROUT END!
DIRUT END!, CHK+4!, CHK+6
DLAYGO END!
DR END!
DTOUT END!
DUOUT END!
DUZ PSDNTTPC+3, PSDNTTPC+5, PSDNTTPC+6
EXP GS+8*, END!
FLAG END!
JJ END!
LOT GS+8*, END!
MFG GS+8*, END!
NAOU GS+11*, END+1!, CHK+2, CHK+3
NAOUF GS+6*, GS+7, END+1!
NAOUFN GS+6*, END+1!, CHK+2, CHK+3
NAOUN GS+11*, END+1!, CHK+2, CHK+3
NAOUT END+1!
NAOUTN END+1!
OK PSDNTTPC+3*, PSDNTTPC+4!, END+1!
ORD GS+5*, GS+7, END+1!
PAT GS+12*, END+1!
PSDA GS+3*, GS+9, GS+10, GS+11, GS+12, END+1!
PSDOUT GS+15, END+1!, CHK+1*, CHK+6*
PSDPN GS+4*, END+1!, CHK+1, CHK+6
PSDREC END+1!
PSDRG GS+5*, GS+7, END+1!
PSDRGN GS+5*, END+1!
PSDRN END+1!
PSDS GS+8*, END+1!
>> PSDSITE PSDNTTPC+2
PSDSP GS+7*, END+1!
PSDT END+1!
PSDUZ PSDNTTPC+6*, END+1!
PSDUZN PSDNTTPC+6*, END+1!
QTY GS+9*, END+1!
RECD END+1!
RECDT END+1!
RQTY GS+10*, GS+13, END+1!, CHK+1
STAT GS+4*, GS+14, END+1!
STATN GS+4*, GS+14, END+1!
U PSDNTTPC+5, GS+12
X GS+15~, END+1!
X1 GS+15~
XMDUZ END+2!
XMSUB END+2!
XMTEXT END+2!
XMY END+2!
XQH PSDNTTPC+5~*
Y ASKN+3, GS+3, END+1!, CHK+6
Y(0 GS+4, GS+5, GS+6, GS+8, GS+9
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All