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

Package: Controlled Substances

Routine: PSDRF2


Information

PSDRF2 ;BIR/JPW,LTL-Nurse RF Dispensing count correction; 8 Aug 94

Source Information

Source file <PSDRF2.m>

Call Graph

Call Graph

Call Graph Total: 5

Package Total Call Graph
Controlled Substances 3 ^PSDORSU  BAL^PSDRF  UPDAT^PSDRF1  
Kernel 1 $$WITNESS^XUVERIFY  
VA FileMan 1 ^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: 3

Package Total Caller Graph
Controlled Substances 3 PSDRF  PSDRF4  PSDRFS  

Entry Points

Name Comments DBIA/ICR reference
QTY
WIT
END

External References

Name Field # of Occurrence
^DIR QTY+1, QTY+6
^PSDORSU QTY+5
BAL^PSDRF QTY+5
UPDAT^PSDRF1 WIT+4
$$WITNESS^XUVERIFY WIT

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !
  • Line Location: QTY+1
Function Call: WRITE
  • Prompt: !!,"That's no change."
  • Line Location: QTY+4
Function Call: WRITE
  • Prompt: !
  • Line Location: QTY+6
Function Call: WRITE
  • Prompt: !
  • Line Location: WIT+0
Function Call: WRITE
  • Prompt: !!,"Hold it, you can't witness yourself!",$C(7)
  • Line Location: WIT+1
Function Call: WRITE
  • Prompt: !!,"Thank you, ",$S($P($G(^VA(200,NUR2,.1)),U,4)]"":$P($G(^(.1)),U,4),1:$P($G(^VA(200,NUR2,0)),U))
  • Line Location: WIT+3
Routine Call
  • DIR
  • Line Location:
    • QTY+1
    • QTY+6

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^VA(200 - [#200] WIT+3

Label References

Name Line Occurrences
END QTY+2, QTY+5, QTY+7
WIT WIT+1

Naked Globals

Name Field # of Occurrence
^( WIT+3

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
% END!
%DT END!
%H END!
%I END!
CNT END!
CNT1 END!
DA END!
DIC END!
DIE END!
DINUM END!
DIR QTY+1!, QTY+6!, END!
DIR("A" QTY*
DIR(0 QTY*, QTY+6*
DIROUT END!
DIRUT QTY+2, QTY+7, END!
DIWF END!
DIWL END!
DIWR END!
DR END!
DTOUT END!
DUOUT END!
DUZ WIT+1
LN END!
MSG END!
MSG1 END!
>> NAOU(1 QTY+5*
NAOUN END+1!
NBKU END+1!
NPKG END+1!
>> NUR2 WIT*, WIT+1, WIT+2, WIT+3
OK END+1!
OKTYP END+1!
>> OQTY QTY+3, QTY+4, QTY+5
ORD END+1!
PSDA END+1!
PSDEM END+1!
>> PSDOUT QTY+2*, QTY+5, QTY+7*, WIT+2*
>> PSDQ QTY+3*
>> PSDQ(1 QTY+3*, QTY+4
PSDQTY END+1!
PSDRD END+1!
PSDRE QTY+8*, END+1!
PSDRN END+1!
PSDT END+1!
>> PSDTYP QTY+3*
PSDUZ END+1!
PSDUZN END+1!
REQD END+1!
TEXT END+1!
TYPE END+1!
U WIT+3
WORD END+1!
X END+1!
>> Y QTY+2, QTY+3, QTY+5, QTY+8
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All