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

Package: Controlled Substances

Routine: PSDRFW


Information

PSDRFW ;BIR/JPW,LTL-Nurse RF Dispensing ; 8 Aug 94

Source Information

Source file <PSDRFW.m>

Call Graph

Call Graph Total: 10

Package Total Call Graph
Kernel 4 ($$FMADD,$$NOW)^XLFDT  EN^XQH  SIG^XUSESIG  $$WITNESS^XUVERIFY  
Controlled Substances 3 ^PSDRFV  EDIT^PSDRFX  ^PSDSET  
VA Fileman 3 ^DIC  $$FMDIFF^DILIBF  ^DIR  

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Controlled Substances 1 PSD NURSE WASTE  

Entry Points

Name Comments DBIA/ICR reference
WASTE
PATIENT
DRUG ;select drug
QTY
MSG ;display error message
WIT
REA
END
NURSE
NAOU ;select NAOU to dispense from
BAL

External References

Name Field # of Occurrence
^DIC NAOU+5, PATIENT+6, DRUG+18
$$FMDIFF^DILIBF DRUG+10, DRUG+13
^DIR DRUG+3, QTY+2, WASTE+3, REA
^PSDRFV BAL+2
EDIT^PSDRFX WIT+5
^PSDSET PSDRFW+6
$$FMADD^XLFDT BAL+5
$$NOW^XLFDT BAL+5
EN^XQH PSDRFW+8
SIG^XUSESIG NURSE
$$WITNESS^XUVERIFY WIT

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: $C(7),!!,?9,"** Please contact your Pharmacy Coordinator for access to order",!,?12,"narcotic supplies.",!
  • Line Location: PSDRFW+7
Function Call: WRITE
  • Prompt: !!,"Please enter the ward from which the drug(s) will be signed out."
  • Line Location: NAOU+2
Function Call: WRITE
  • Prompt: !
  • Line Location: NAOU+5
Function Call: WRITE
  • Prompt: !!,"Contact your Pharmacy Coordinator.",!,"The Pharmacy Dispensing Site is invalid for this NAOU."
  • Line Location: NAOU+12
Function Call: WRITE
  • Prompt: !!,"Wastage can only be recorded within "
  • Line Location: PATIENT+0
Function Call: WRITE
  • Prompt: NAOU(1)," hours after signing out a dose.",!!
  • Line Location: PATIENT+2
Function Call: WRITE
  • Prompt: "(except for PCA syringes and Infusions)"
  • Line Location: PATIENT+3
Function Call: WRITE
  • Prompt: !
  • Line Location: PATIENT+6
Function Call: WRITE
  • Prompt: !
  • Line Location: DRUG+3
Function Call: WRITE
  • Prompt: $C(7),!!,"Please enter more than one character.",!
  • Line Location: DRUG+4
Function Call: WRITE
  • Prompt: $C(7),!!,"This is not a valid Pharmacy Dispensing number for this ward.",!!
  • Line Location: DRUG+15
Function Call: WRITE
  • Prompt: $C(7),!!,"This is not a valid Pharmacy Dispensing number for this ward.",!!
  • Line Location: DRUG+18
Function Call: WRITE
  • Prompt: $C(7),!!,"This is not a valid Pharmacy Dispensing number for this ward.",!!
  • Line Location: DRUG+20
Function Call: WRITE
  • Prompt: !!,"No doses signed out",!!
  • Line Location: BAL+3
Function Call: WRITE
  • Prompt: !!,"The last dose was signed out at ",PSDA(2),", over ",NAOU(1)," hours ago.",!!,"It is too late to record wastage.",!!
  • Line Location: BAL+5
Function Call: WRITE
  • Prompt: !!,"Sorry, only the person that signed out the dose can record delayed wastage.",!!
  • Line Location: BAL+6
Function Call: WRITE
  • Prompt: !
  • Line Location: QTY+2
Function Call: WRITE
  • Prompt: !!,"Wait a minute, you can't witness yourself!",$C(7)
  • Line Location: WIT+1
Function Call: WRITE
  • Prompt: $C(7),!!,?10,"Contact your Pharmacy Coordinator.",!,?10,"This "_$S(MSG=2:"Dispensing Site",MSG=1:"NAOU",1:"Drug")_" is missing "
  • Line Location: MSG+1
Function Call: WRITE
  • Prompt: $S(MSG1=1:"Primary Disp. Site",MSG1=2:"stocked drugs",MSG1=3:"narcotic breakdown unit",MSG1=4:"narcotic package size",1:"data")_".",!
  • Line Location: MSG+2
Routine Call
  • DIC
  • Line Location:
    • NAOU+5
    • PATIENT+6
    • DRUG+18
Routine Call
  • DIR
  • Line Location:
    • DRUG+3
    • QTY+2
    • WASTE+3
    • REA

FileMan Files Accessed Via FileMan Db Call

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

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DD("DD" PSDRFW+9
^PSD(58.8 - [#58.8] NAOU+1, NAOU+6, NAOU+7, NAOU+8, NAOU+9, NAOU+10, NAOU+11, PATIENT+1, DRUG+9, DRUG+15
, BAL
^PSD(58.81 - [#58.81] DRUG+5, DRUG+7, BAL+4, END*
^PSDRUG - [#50] DRUG+9, DRUG+12, DRUG+15, DRUG+21
^VA(200 - [#200] PSDRFW+8, WIT+3

Label References

Name Line Occurrences
DRUG DRUG+4
END PSDRFW+8, NURSE, NAOU+5, NAOU+6, NAOU+7, NAOU+8, NAOU+9, NAOU+10, NAOU+11, PATIENT+6
, DRUG+3, DRUG+15, DRUG+16, DRUG+20, BAL+2, BAL+3, BAL+5, BAL+6, QTY+2, WASTE
MSG NAOU+6, NAOU+7, NAOU+8, NAOU+9, NAOU+10, NAOU+11
PATIENT NAOU+1, DRUG+16
REA WASTE+1
WIT WIT+1

Naked Globals

Name Field # of Occurrence
^( WIT+3
^(6 PATIENT+1

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
% END+1!
%DT END+1!
%H END+1!
%I END+1!
CNT END+1!
CNT1 END+1!
DA NAOU+3!, END+1!
DA(1 DRUG+17*
DIC NAOU+3!*, NAOU+5!, PATIENT+4~*, PATIENT+6!, DRUG+17*, DRUG+18!, END+1!
DIC("A" NAOU+3*, PATIENT+5*
DIC("S" NAOU+4*
DIC(0 NAOU+3*, PATIENT+4*, DRUG+17*
DIE END+1!
DINUM END+1!
DIR DRUG+1~, DRUG+3!, QTY+2!, WASTE+3!, REA!, END+1!
DIR("A" DRUG+2*, QTY+1*, WASTE+2*
DIR("B" WASTE+3*
DIR(0 DRUG+2*, QTY*, WASTE+2*, REA*
DIROUT END+1!
DIRUT DRUG+3, QTY+2, WASTE+3, REA, END+1!
DIWF END+1!
DIWL END+1!
DIWR END+1!
DR END+1!
DT PSDRFW+9, DRUG+10, DRUG+13
DTOUT PATIENT+4~, DRUG+16, DRUG+18, END+1!
DUOUT PATIENT+4~, DRUG+16, DRUG+18, END+1!
DUZ PSDRFW+8, PSDRFW+9, BAL+6, WIT+1
LN END+1!
MSG PSDRFW+9*, NAOU+6*, NAOU+7*, NAOU+8*, NAOU+9*, NAOU+10*, NAOU+11*, END+1!, MSG+1
MSG1 PSDRFW+9*, NAOU+7*, NAOU+9*, NAOU+11*, END+1!, MSG+2
NAOU NAOU+1, NAOU+5*, NAOU+6, NAOU+7, NAOU+8, NAOU+9, PATIENT+1, DRUG+7, DRUG+9, DRUG+15
, DRUG+17, BAL, END+2!
NAOU(1 PATIENT+1*, PATIENT+2, BAL+5
NAOUN NAOU+5*, END+2!
NBKU END+2!
NPKG END+2!
NUR1 END+2!
NUR2 WIT*, WIT+1, WIT+2, WIT+3, END+1!
OK END+2!
OKTYP END+2!
OQTY BAL*, BAL+4*, QTY, QTY+2, WASTE, WASTE+1, WASTE+2, WASTE+3, WASTE+4, WASTE+5
, END+2!
ORD END+2!
PAT PATIENT+6*, END+2!
PSD DRUG+1~, DRUG+6*, DRUG+7*
PSD(1 DRUG+7*, DRUG+10, DRUG+12, DRUG+13
PSDA DRUG+1~, END+2!
PSDA(1 BAL+3, BAL+4, END
PSDA(2 BAL+5, QTY+1
PSDA(3 BAL+5
PSDA(4 BAL+6
PSDDAVE BAL+2!
PSDDT DRUG+1~, DRUG+10*, DRUG+11, DRUG+13*, DRUG+14
PSDEM END+2!
PSDOUT PATIENT+4~, BAL+2*, QTY+2*, WASTE, WASTE+1, WASTE+3*, REA*, WIT+2*, END, END+1
, END+2!
PSDPN DRUG+7*, END+2!
PSDQ DRUG+1~, QTY+3*, WASTE, WASTE+1, WASTE+2, WASTE+3, WASTE+5, END, END+2!
PSDQ(1 WASTE+5, END
PSDQ(2 WASTE+4*
PSDQTY END+2!
PSDR DRUG+1~, DRUG+7*, DRUG+8, DRUG+11*, DRUG+14!, DRUG+15, DRUG+16, DRUG+19*, DRUG+20, DRUG+21
, BAL, END+2!
PSDR(1 BAL*
PSDRD END+2!
PSDRE REA+1*, END+2!
PSDRN END+2!
PSDS NAOU+1*, NAOU+9*, NAOU+10, NAOU+11, END+2!
>> PSDSITE PSDRFW+6
PSDT END+2!
PSDTYP DRUG+7*, DRUG+19*, END+1!
PSDUZ PSDRFW+9*, END+2!
PSDUZN END+2!
REQD PSDRFW+9*, END+2!
TEXT END+2!
TYPE END+2!
U PSDRFW+8, NAOU+1, NAOU+8, PATIENT+1, DRUG+7, DRUG+10, DRUG+13, DRUG+21, BAL, BAL+4
, WIT+3, END
WORD END+2!
WQTY WASTE+4*, WASTE+5*, WASTE+6, END+2!
X NURSE~, PATIENT+4~, END+2!
X1 NURSE~
XQH PSDRFW+8~*
Y PSDRFW+9*, NAOU+5, PATIENT+4~, PATIENT+6, DRUG+4, DRUG+5, DRUG+7, DRUG+8, DRUG+9, DRUG+11
, DRUG+12, DRUG+15, DRUG+16, DRUG+18, DRUG+19, QTY+2, QTY+3, WASTE+4, REA+1, END+2!
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