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 |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All
Print Page as PDF
Routine: PSDNTF

Package: Controlled Substances

Routine: PSDNTF


Information

PSDNTF ;BIR/JPW-Transfer Green Sheet - From this NAOU ; 8/29/07 1:25pm

Source Information

Source file <PSDNTF.m>

Call Graph

Call Graph

Call Graph Total: 7

Package Total Call Graph
VA FileMan 4 NOW^%DTC  (,IX)^DIC  ^DIE  ^DIR  
Controlled Substances 2 ^PSDGSRV2  ^PSDSET  
Kernel 1 $$FMTE^XLFDT  

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 NURSE TRANSFER GS  

Entry Points

Name Comments DBIA/ICR reference
ASKN ;ask transfer from naou
GS ;select green sheet #
ASKT ;ask transfer to naou
QTY ;
OK ;if perpetual NAOU and not ordered for patient
COM ;complete at order level in 58.8
PRINT ;print 2321
END

External References

Name Field # of Occurrence
NOW^%DTC OK+13
^DIC ASKN+3, ASKT+3, OK+7
IX^DIC GS+3
^DIE COM+5, COM+8
^DIR OK+3, OK+12
^PSDGSRV2 PRINT+6
^PSDSET PSDNTF+3
$$FMTE^XLFDT PRINT+5

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: $C(7),!!,?9,"** Please contact your Coordinator for access to",!,?12,"transfer narcotic orders.",!!,"PSJ RNURSE, PSD NURSE, or PSJ RPHARM security key required.",!
  • Line Location: PSDNTF+5
Function Call: WRITE
  • Prompt: !!,"Transfer a Green Sheet from this NAOU"
  • Line Location: PSDNTF+6
Function Call: WRITE
  • Prompt: !
  • Line Location: ASKN+1
Function Call: WRITE
  • Prompt: !
  • Line Location: GS+1
Function Call: WRITE
  • Prompt: !!,"The Green Sheet # ",PSDPN," does not reside on ",AOUN,".",!,"Please select another Green Sheet.",!
  • Line Location: GS+9
Function Call: WRITE
  • Prompt: $C(7),!!,"There's no data on ",NAOUN," for Green Sheet # ",PSDPN,".",!,"Contact your Pharmacy Coordinator for assistance.",!
  • Line Location: GS+10
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+11
Function Call: WRITE
  • Prompt: !!,"Previous transfer quantity was 0.",!,"Use option 'Transfer GS for PCA/Infusion Signed Out to Patient'",!
  • Line Location: GS+12
Function Call: WRITE
  • Prompt: !
  • Line Location: ASKT+1
Function Call: WRITE
  • Prompt: !!,"You may not transfer a Green Sheet to your NAOU!",!,"Please select another NAOU.",!!
  • Line Location: ASKT+4
Function Call: WRITE
  • Prompt: !!,"Green Sheet "_PSDPN_" has dose(s) signed out to patient.",!
  • Line Location: ASKT+10
Function Call: WRITE
  • Prompt: !,"Quantity to Transfer (",NBKU,"/1)",!
  • Line Location: ASKT+11
Function Call: READ
  • Variable: X
  • Timeout: DTIME
  • Line Location: QTY+1
Function Call: WRITE
  • Prompt: !!,"**** No action taken. ****",!!
  • Line Location: QTY+1
Function Call: WRITE
  • Prompt: !!,"Enter a whole number between 1 and ",QTY,!
  • Line Location: QTY+2
Function Call: WRITE
  • Prompt: !!,"Enter a number between .01 and ",QTY,!
  • Line Location: QTY+4
Function Call: WRITE
  • Prompt: $C(7),!!,"The quantity returned must not exceed "_QTY_"!",!
  • Line Location: QTY+5
Function Call: WRITE
  • Prompt: !!,"No action taken.",!!
  • Line Location: OK+7
Function Call: WRITE
  • Prompt: !
  • Line Location: OK+10
Function Call: WRITE
  • Prompt: !!,"Accessing ",PSDRN," information...",!!
  • Line Location: COM+1
Function Call: WRITE
  • Prompt: !!,"Updating your records now..."
  • Line Location: COM+3
Function Call: WRITE
  • Prompt: $C(7),!!,"** THIS GREEN SHEET HAS NOT BEEN TRANSFERRED **",!!,"The status remains "_STATN,!
  • Line Location: COM+6
Function Call: WRITE
  • Prompt: ?2,!,"*** The status of your Green Sheet #"_PSDPN_" is now",!,$S($P($G(^PSD(58.82,STAT,0)),"^")]"":$P(^(0),"^"),1:"UNKNOWN")_" ***",!
  • Line Location: COM+16
Function Call: READ
  • Variable: NUM
  • Timeout: DTIME
  • Line Location: PRINT+1
Function Call: WRITE
  • Prompt: !!,"No copies printed!!",!!
  • Line Location: PRINT+1
Function Call: WRITE
  • Prompt: !!,"Enter a whole number between 1 and 9",!
  • Line Location: PRINT+2
Routine Call
  • DIC
  • Line Location:
    • ASKN+3
    • ASKT+3
    • OK+7
Routine Call
  • DIC
  • Line Location:
    • GS+3
Routine Call
  • DIE
  • Line Location:
    • COM+5
    • COM+8
Routine Call
  • DIR
  • Line Location:
    • OK+3
    • OK+12

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^DPT - [#2] Classic Fileman Calls

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DD("DD" OK+13, PRINT+3
^PSD(58.8 - [#58.8] GS+5, GS+7, GS+10, OK+2, COM+2, COM+10, COM+12*, COM+13, COM+14
^PSD(58.81 - [#58.81] GS+8, ASKT+7, ASKT+8, OK+1, COM+15
^PSD(58.82 - [#58.82] GS+4, COM+16
^PSDRUG - [#50] GS+5
^VA(200 - [#200] PSDNTF+6
^XUSEC("PSD NURSE" PSDNTF+4
^XUSEC("PSJ RNURSE" PSDNTF+4
^XUSEC("PSJ RPHARM" PSDNTF+4

Label References

Name Line Occurrences
ASKN GS+9
ASKT ASKT+4
END ASKN+3, GS+3, GS+10, GS+11, GS+12, ASKT+3, QTY+1, OK+1, OK+12, COM+6
GS OK+12
OK ASKT+11
PRINT PRINT+2
QTY QTY+3, QTY+5

Naked Globals

Name Field # of Occurrence
^(0 COM+2, COM+16
^(4 GS+8

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
% OK+13, END!
%DT END!
%H END!
%I END!
AOU ASKN+3*, GS+9, ASKT+4, END!
AOUN ASKN+3*, GS+9, END!
BQTY COM+2*, COM+8, END!
COMP PRINT+4*, END!
D GS+1*, END!
DA ASKN+1!, GS+1!, ASKT+1!, OK+10!, COM+5!*, COM+8!*, END!
DA(1 COM+8*
DA(2 COM+8*
DIC ASKN+1!*, ASKN+3!, GS+1!*, GS+3!, ASKT+1!*, ASKT+3!, OK+6*, OK+7!, END!
DIC("A" ASKN+1*, GS+1*, ASKT+1*, OK+6*
DIC("S" ASKN+2*, GS+2*, ASKT+2*
DIC("W" GS+2*
DIC(0 ASKN+1*, GS+1*, ASKT+1*, OK+6*
DIE COM+5!*, COM+8!*, END!
>> DILOCKTM COM+10
DIR OK+3!, OK+10!, OK+12!, END!
DIR("?" OK+3*, OK+11*
DIR("A" OK+3*, OK+10*
DIR("B" OK+3*, OK+10*
DIR(0 OK+3*, OK+10*
DIROUT END!
DIRUT OK+3, OK+10!, OK+12, END!
DR COM+5!*, COM+8!*, END!
DTIME QTY+1, PRINT+1
DTOUT COM+6, END!
DUOUT END!
DUZ PSDNTF+4, PSDNTF+6
EXP GS+6*, PRINT+5*, END!
EXP1 PRINT+5*, END!
EXPD PRINT+5*, END!
LOT GS+6*, END!
MFG GS+6*, END!
NAOU GS+5*, GS+9, GS+10, OK+2, COM+2, COM+8, COM+10, COM+12, COM+13, COM+14
, END+1!
NAOUN GS+5*, GS+10, END+1!
NAOUT ASKT+3*, ASKT+4, COM+5, END+1!
NAOUTN ASKT+3*, END+1!
NBKU GS+7*, ASKT+11, QTY+1, OK+2, COM+13, END+1!
NUM PRINT+1*, PRINT+2, END+1!
OK PSDNTF+4*, PSDNTF+5!, END+1!
ORD GS+5*, GS+10, COM+2, COM+8, END+1!
>> PAT OK+8*, COM+5
PG PRINT+4*, END+1!
PSDA GS+3*, GS+8, OK+1, COM+5, COM+15, END+1!
PSDGS ASKT+6~, ASKT+7*, ASKT+8
PSDGSP0 ASKT+6~, ASKT+8*, ASKT+9
PSDGSP9 ASKT+6~, ASKT+8*, ASKT+9
PSDGSPTQ ASKT+6~, ASKT+9*, ASKT+10
PSDOUT QTY+1*, OK+1, OK+3*, OK+7*, PRINT+4*, END+1!
PSDPN GS+4*, GS+9, GS+10, ASKT+7, ASKT+10, COM+16, END+1!
PSDR GS+5*, GS+7, GS+10, OK+2, COM+2, COM+8, COM+10, COM+12, COM+13, COM+14
, END+1!
PSDRN GS+5*, OK+2, COM+1, COM+13, END+1!
PSDS GS+6*, GS+7, END+1!
>> PSDSITE PSDNTF+3
PSDUZ PSDNTF+6*, COM+5, END+1!
PSDUZN PSDNTF+6*, END+1!
PSDYR PRINT+3*, PRINT+4, END+1!
QTY GS+6*, GS+8*, GS+12, ASKT+11, QTY+1, QTY+4, QTY+5, OK+1, COM+2, END+1!
REAS PRINT+4*, END+1!
RECD OK+13*, COM+5, PRINT+3, PRINT+4, END+1!
RECDT OK+13*, PRINT+4*, END+1!
RQTY ASKT+11*, QTY+6*, COM+2, COM+5, COM+12, END+1!
RQTY(1 OK+5*, COM+12
STAT GS+4*, GS+11, COM+15*, COM+16, END+1!
STATN GS+4*, GS+11, COM+6, END+1!
U OK+1, OK+2, COM+13
X QTY+1*, QTY+3, QTY+5, QTY+6, END+1!
Y ASKN+3, GS+3, ASKT+3, OK+4, OK+7, OK+8, OK+12, OK+13*, COM+6, PRINT+3*
, END+1!
Y(0 GS+4, GS+5, GS+6
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All