Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call
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>

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

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

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^DPT - [#2] Classic Fileman Calls
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call