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

Package: Outpatient Pharmacy

Routine: PSODRGN


Information

PSODRGN ;BIR/SJA-ORDER ENTRY DRUG SELECTION ;02/15/07

Source Information

Source file <PSODRGN.m>

Call Graph

Call Graph

Call Graph Total: 6

Package Total Call Graph
Outpatient Pharmacy 3 10^PSOBKDED  JUMP^PSODIR1  POST^PSODRG  
VA FileMan 3 EN^DDIOL  $$GET1^DIQ  ^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
Outpatient Pharmacy 1 PSOBKDED  

Entry Points

Name Comments DBIA/ICR reference
SELECT ;
SELECTX
TRADE ;
TRADEX
ETX
TX
KV
6 ;Called from PSOBKDED due to it's routine size.

External References

Name Field # of Occurrence
EN^DDIOL 6+2
$$GET1^DIQ SELECT+11
^DIR SELECT+18, SELECT+23, TRADE+2
10^PSOBKDED 6+4
JUMP^PSODIR1 SELECT+26
POST^PSODRG 6+3

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!!,"The following Drug(s) are available for selection:"
  • Line Location: SELECT+4
Function Call: WRITE
  • Prompt: !,PSDC_". "_$P(^PSDRUG(PSI,0),"^")_$S($P(^(0),"^",9):" (N/F)",1:"")
  • Line Location: SELECT+6
Function Call: WRITE
  • Prompt: !!," This Dispense Drug is now Inactive. You may select a"
  • Line Location: SELECT+13
Function Call: WRITE
  • Prompt: !," new Orderable Item, or you can enter a new Order with"
  • Line Location: SELECT+14
Function Call: WRITE
  • Prompt: !," an Active Drug.",!
  • Line Location: SELECT+15
Function Call: WRITE
  • Prompt: !!,"No drugs available!",!
  • Line Location: SELECT+16
Function Call: WRITE
  • Prompt: !
  • Line Location: SELECT+23
Routine Call
  • DIR
  • Line Location:
    • SELECT+18
    • SELECT+23
    • TRADE+2

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^PSDRUG - [#50] GET1^DIQ

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^PSDRUG - [#50] SELECT+2, SELECT+5, SELECT+6, SELECT+21, SELECT+31
^PSDRUG("ASP" SELECT+5
^PSRX - [#52] SELECT+10

Label References

Name Line Occurrences
ETX SELECT+19
KV SELECT+23, SELECT+31, TX
SELECT SELECT+28, SELECT+29
SELECTX SELECT+24, SELECT+25, SELECT+26, SELECT+27
TRADE SELECT+32
TRADEX TRADE+4

Naked Globals

Name Field # of Occurrence
^("I" SELECT+5
^(0 SELECT+6

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
CLOZPAT SELECT+1!
DA SELECT+10, TRADE+1!, TRADEX+1!
DIC SELECT+2!, TRADE+1!, TRADE+2!
DIE TRADEX+1!
DIR SELECT+17!, SELECT+18!, TRADE+1!, TRADE+2!, KV!
DIR("A" SELECT+17*, SELECT+23*
DIR("B" TRADE+2*
DIR(0 SELECT+17*, SELECT+23*, TRADE+2*
DIRUT TRADE+3!, TRADE+4, TRADEX, TRADEX+1!, KV!
DR TRADEX+1!
DRG SELECT+9~, SELECT+10*, SELECT+11
DT SELECT+5, SELECT+12
DTOUT SELECT+25, SELECT+27, SELECTX!, TRADE+4, TRADEX+1!, KV!
DUOUT SELECT+28!, SELECTX!, TRADE+4, TRADEX+1!, KV!
>> OR0 SELECT+2
>> POERR SELECT+2, SELECT+26
PSDC SELECT+4*, SELECT+6*, SELECT+7, SELECT+8, SELECT+19, SELECT+20, SELECT+23, SELECTX!, ETX, TX!
PSDC( SELECT+7*, SELECT+31
PSI SELECT+4*, SELECT+5*, SELECT+6, SELECT+7, SELECTX!, TX!
>> PSOAC 6+2*
PSOBDR SELECT+19!, 6+4!
PSOBDR("NAME" SELECT+19*, 6+1, 6+2
PSODIR SELECT+26!
PSODIR("FIELD" SELECT+26
PSODIR("FLD" SELECT+26*
>> PSODRG("QFLG" SELECT+26*, SELECT+30*
>> PSODRUG("DAW" SELECT+2!
>> PSODRUG("IEN" SELECT+3, SELECT+21, SELECT+22!
>> PSODRUG("NAME" SELECT+3, SELECT+19, SELECT+22!, 6+1, 6+2
>> PSODRUG("NDC" SELECT+2!
>> PSODRUG("OI" SELECT+5, SELECT+21
>> PSODRUG("TRAD E NAME" , SELECT+2!, TRADE+5*
>> PSOEDIT SELECT+25, SELECT+27, SELECT+30, 6+1
>> PSONEW("DFLG" SELECT+25*, SELECT+27*, TRADE+4*
>> PSONEW("FIELD" SELECT+26*
>> PSONEW("FLD" SELECT+26
>> PSONEW("OLD V AL" , SELECT+3*, SELECT+30, SELECTX!
>> PSORX("DFLG" 6+4
>> PSORX("EDIT" TRADE+4
>> PSORXED SELECT+1, SELECT+24
>> PSORXED("DFLG" SELECT+24*, TRADEX*
>> PSOTRN TRADE+2
>> PSOXXX 6+2
>> PSOXXX(1 6+2*
>> PSOXXX(2 6+2*
PSOY SELECT+31!*
PSOY(0 SELECT+31*, SELECT+32
U SELECT+26
>> VALMBCK ETX*
>> VALMSG ETX*
X SELECT+2!, SELECT+9~, SELECT+11*, SELECT+12, SELECT+24, SELECT+25, SELECT+26, SELECTX!, TRADE+1!, TRADE+3
, TRADEX+1!, TX!
Y SELECT+2!*, SELECT+3*, SELECT+29, SELECT+30, SELECT+31, SELECTX!, TRADE+1!, TRADE+3*, TRADE+5, TRADEX+1!
, TX!
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