Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call
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>

Entry Points

Name Comments DBIA/ICR reference
OPTSITE(PSOTRGET,PSORTN,PSOSCREN) ; Prompt for Outpatient Site when the host site
; has multiple OUTPATIENT SITE file (#59) entries.
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
DIR()
GETSITE(PSORTN) ; Prompt for Outpatient Site (or Division)
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)

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

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
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call