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 |  Local Variables |  All
Print Page as PDF
Routine: PSODIR4

Package: Outpatient Pharmacy

Routine: PSODIR4


Information

PSODIR4 ;EPIP/RTW - Outpatient Site High Cost Related Calls ; 3/30/18 11:30am

Source Information

Source file <PSODIR4.m>

Call Graph

Call Graph

Call Graph Total: 3

Package Total Call Graph
VA FileMan 2 $$GET1^DIQ  ^DIR  
Outpatient Pharmacy 1 $$DIR^PSODIR4  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

protocol O screenman SM broker B event driver Ed print P extended action Ea limited protocol LP edit E server Se subscriber Su inquire I run routine RR action A

Caller Graph

Caller Graph Total: 2

Package Total Caller Graph
Outpatient Pharmacy 2 PSOCST10  PSODIR4  

Entry Points

Name Comments DBIA/ICR reference
REFSITE(PSOINPUT,PSOOUTPT,PSOMAX,PSODEF,PSORETRN) ; Prompt for range or list of displayed items
; PSOINPUT - Array of displayed menu items in the format:
; PSOINPUT(PSONUM)=PSOIEN_"^"_PSOVALU
; PSOOUTPT - Array of user selected items in the format:
; PSOOUTPT(PSOIEN)=PSOVALU
; PSOMAX ; User's response
; PSOMAX - Maximum number of items displayed
; PSODEF - Default answer (optional)
; PSORETRN - If 1 the users response will be returned in var. PSOMAX
; (optional)
OPTSITE(PSOTRGET,PSORTN,PSOSCREN) ; Prompt for Outpatient Site when the host site
; has multiple OUTPATIENT SITE file (#59) entries.
GETSITE(PSORTN) ; Prompt for Outpatient Site (or Division)
DIR()
DIVOK(INARRAY,XREF,RX0,RX1) ; Return: 1 if the division of the RX is OK
; 0 if the division does not match a specified input selection

External References

Name Field # of Occurrence
$$GET1^DIQ OPTSITE+40, OPTSITE+43, DIVOK+52, DIVOK+58, DIVOK+66, GETSITE+21, GETSITE+23
^DIR OPTSITE+84, REFSITE+16
$$DIR^PSODIR4 REFSITE+11~

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !
  • Line Location: OPTSITE+57
Function Call: WRITE
  • Prompt: !,"For RXs written at OUTPATIENT SITE(s): (Example 1,3 or 1-5)"
  • Line Location: OPTSITE+58
Function Call: WRITE
  • Prompt: !?3,$J(PSOSCNT,2),") ",PSOSITNM
  • Line Location: OPTSITE+64
Function Call: WRITE
  • Prompt: !
  • Line Location: GETSITE+27
Function Call: WRITE
  • Prompt: !,"For RXs written at OUTPATIENT SITEs: (Example 1,3 or 1-5)"
  • Line Location: GETSITE+28
Function Call: WRITE
  • Prompt: !?3,$J(PSOSCNT,2),") ",PSOSITNM
  • Line Location: GETSITE+30
Function Call: WRITE
  • Prompt: !
  • Line Location: GETSITE+38
Routine Call
  • DIR
  • Line Location:
    • OPTSITE+84
    • REFSITE+16

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^PSRX - [#52] GET1^DIQ
52.1 GET1^DIQ
52.2 GET1^DIQ
^PS(59 - [#59] GET1^DIQ

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DISV( OPTSITE+73, OPTSITE+98*, GETSITE+11, GETSITE+39*
^PS(59 - [#59] OPTSITE+39, GETSITE+19

Label References

Name Line Occurrences
REFSITE GETSITE+38

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
% OPTSITE+69~
DA OPTSITE+69~
>> DEF GETSITE+38
>> DIERR DIVOK+52, DIVOK+58, DIVOK+66, GETSITE+21, GETSITE+23
DIR OPTSITE+69~
DIR("A" OPTSITE+72*, REFSITE+14*
DIR("B" OPTSITE+73*, OPTSITE+76*, REFSITE+15*
DIR(0 OPTSITE+82*, REFSITE+13*
DIRUT OPTSITE+69~, DIVOK+42~
DT OPTSITE+44, GETSITE+22
DTOUT OPTSITE+69~, OPTSITE+86
DUOUT OPTSITE+69~
DUZ OPTSITE+73, OPTSITE+98, GETSITE+11, GETSITE+39
I OPTSITE+69~
IENS DIVOK+42~, DIVOK+51*, DIVOK+52, DIVOK+57*, DIVOK+58, DIVOK+65*, DIVOK+66
INARRAY DIVOK~
INARRAY( DIVOK+60, DIVOK+68
PCE OPTSITE+92~, OPTSITE+93*
PROMPT GETSITE+6~, GETSITE+38
PROMPT( GETSITE+29*
PSODEF OPTSITE+70~, OPTSITE+73*, GETSITE+6~, GETSITE+11*, REFSITE~, REFSITE+15
PSODTINAC OPTSITE+37~, OPTSITE+43*, OPTSITE+44, GETSITE+6~, GETSITE+21*, GETSITE+22
PSOEXIT OPTSITE+37~, OPTSITE+41, OPTSITE+42*, OPTSITE+44*
PSOFLGQ GETSITE+6~, GETSITE+32*, REFSITE+19*
PSOI REFSITE+12~, REFSITE+22*
PSOIEN REFSITE+12~, REFSITE+23*, REFSITE+24
PSOIEN59 OPTSITE+37~, OPTSITE+38*, OPTSITE+39*, OPTSITE+40, OPTSITE+43, OPTSITE+46, OPTSITE+49*, OPTSITE+50, OPTSITE+60~, OPTSITE+63*
, OPTSITE+92~, OPTSITE+94*, OPTSITE+95, GETSITE+6~, GETSITE+18*, GETSITE+19*, GETSITE+20, GETSITE+29
PSOIENS DIVOK+42~, GETSITE+6~, GETSITE+20*, GETSITE+21, GETSITE+23
PSOINPUT OPTSITE+37~, REFSITE~
PSOINPUT( OPTSITE+46*, OPTSITE+49, OPTSITE+62, OPTSITE+63, OPTSITE+94, REFSITE+23
PSOMAX OPTSITE+60~, OPTSITE+61*, OPTSITE+65*, OPTSITE+73, OPTSITE+76, OPTSITE+82, GETSITE+6~, GETSITE+39, REFSITE~, REFSITE+13
, REFSITE+18*
PSONUM REFSITE+12~, REFSITE+21*, REFSITE+22*, REFSITE+23
PSOOUTPT REFSITE~, REFSITE+17*
PSOOUTPT( REFSITE+24*
PSORETRN REFSITE~, REFSITE+18
PSORTN OPTSITE~, OPTSITE+73, OPTSITE+98, GETSITE~, GETSITE+11, GETSITE+39
PSOSCNT OPTSITE+37~, OPTSITE+38*, OPTSITE+45*, OPTSITE+46, OPTSITE+48, OPTSITE+49, OPTSITE+52, OPTSITE+60~, OPTSITE+61*, OPTSITE+62*
, OPTSITE+63, OPTSITE+64, GETSITE+6~, GETSITE+18*, GETSITE+25*, GETSITE+26, GETSITE+29, GETSITE+30, GETSITE+32, GETSITE+38
PSOSCREN OPTSITE~, OPTSITE+32*, OPTSITE+41
PSOSITEI DIVOK+42~, DIVOK+52*, DIVOK+58*, DIVOK+60, DIVOK+66*, DIVOK+68
PSOSITNM OPTSITE+37~, OPTSITE+40*, OPTSITE+46, OPTSITE+49*, OPTSITE+50, OPTSITE+63*, OPTSITE+64, OPTSITE+94*, OPTSITE+95, GETSITE+6~
, GETSITE+23*, GETSITE+24, GETSITE+29, GETSITE+30
PSOSSITE GETSITE+37!, GETSITE+38
PSOTRGET OPTSITE~, OPTSITE+31!, OPTSITE+51*, OPTSITE+52*, OPTSITE+86*, OPTSITE+87*, OPTSITE+98
PSOTRGET( OPTSITE+50*, OPTSITE+95*
PSOTRGET("PSOSCNT" OPTSITE+51*, OPTSITE+96*
PSOVAL DIVOK+42~, DIVOK+44*, DIVOK+60*, DIVOK+68*, DIVOK+70
PSOVALU REFSITE+12~, REFSITE+23*, REFSITE+24
RX0 DIVOK~, DIVOK+51, DIVOK+57, DIVOK+65
RX1 DIVOK~, DIVOK+48, DIVOK+54, DIVOK+57, DIVOK+65
SUB OPTSITE+92~, OPTSITE+93*, OPTSITE+94
U OPTSITE+49, OPTSITE+63, OPTSITE+94, REFSITE+23
X OPTSITE+69~, OPTSITE+87, REFSITE+17, REFSITE+18, REFSITE+19
XREF DIVOK~, DIVOK+46, DIVOK+62
Y OPTSITE+69~, OPTSITE+93, OPTSITE+96, REFSITE+22
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 |  Local Variables |  All