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 ;28-Mar-2016 12:58;DU

Source Information

Source file <PSODRGN.m>

Call Graph

Call Graph Total: 6

Package Total Call Graph
Outpatient Pharmacy 3 10^PSOBKDED  JUMP^PSODIR1  M1^PSOOREDX  
VA Fileman 2 $$GET1^DIQ  ^DIR  
IHS Changes To Pharmacy 1 $$ERXONLY^APSPFNC6  

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Outpatient Pharmacy 1 PSOBKDED  

Entry Points

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

External References

Name Field # of Occurrence
$$ERXONLY^APSPFNC6 SELECT+31
$$GET1^DIQ SELECT+11
^DIR SELECT+18, SELECT+23, TRADE+2, 6+7
10^PSOBKDED 6+9
JUMP^PSODIR1 SELECT+26
M1^PSOOREDX 6+7

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
    • 6+7

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+34
^PSDRUG("ASP" SELECT+5
^PSRX - [#52] SELECT+10

Label References

Name Line Occurrences
ETX SELECT+19
KV SELECT+23, SELECT+34, TX
SELECT SELECT+28, SELECT+29, SELECT+31
SELECTX SELECT+24, SELECT+25, SELECT+26, SELECT+27
TRADE SELECT+35
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!, 6+7!
DIR("A" SELECT+17*, SELECT+23*, 6+3*, 6+4*, 6+5*, 6+6*
DIR("B" TRADE+2*, 6+2*
DIR(0 SELECT+17*, SELECT+23*, TRADE+2*, 6+2*
DIRUT TRADE+3!, TRADE+4, TRADEX, TRADEX+1!, KV!, 6+7, 6+8
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!
>> I 6+5*
>> 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+34
PSI SELECT+4*, SELECT+5*, SELECT+6, SELECT+7, SELECTX!, TX!
PSOBDR SELECT+19!, 6+9!
PSOBDR("NAME" SELECT+19*, 6+1, 6+4
PSODIR SELECT+26!
PSODIR("FIELD" SELECT+26
PSODIR("FLD" SELECT+26*
>> PSODRG("QFLG" SELECT+26*, SELECT+33*
>> PSODRUG("DAW" SELECT+2!
>> PSODRUG("IEN" SELECT+3, SELECT+21, SELECT+22!
>> PSODRUG("NAME" SELECT+3, SELECT+19, SELECT+22!, 6+1, 6+4
>> PSODRUG("NDC" SELECT+2!
>> PSODRUG("OI" SELECT+5, SELECT+21
>> PSODRUG("TRAD E NAME" , SELECT+2!, TRADE+5*
>> PSOEDIT SELECT+25, SELECT+27, SELECT+33, 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+33, SELECTX!
>> PSORX("DFLG" 6+7*
>> PSORX("EDIT" TRADE+4
>> PSORXED SELECT+1, SELECT+24
>> PSORXED("DFLG" SELECT+24*, TRADEX*
>> PSOTRN TRADE+2
PSOY SELECT+34!*
PSOY(0 SELECT+34*, SELECT+35
>> SIG( 6+5
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+31*, SELECT+33, SELECT+34, SELECTX!, TRADE+1!, TRADE+3*, TRADE+5
, TRADEX+1!, TX!, 6+8
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