PSODIR4 ;EPIP/RTW - Outpatient Site High Cost Related Calls ; 3/30/18 11:30am
Source file <PSODIR4.m>
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) |
Name | Line Occurrences |
---|---|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
FileNo | Call Tags |
---|---|
^PSRX - [#52] | GET1^DIQ |
52.1 | GET1^DIQ |
52.2 | GET1^DIQ |
^PS(59 - [#59] | GET1^DIQ |