| DISP(DFN,date,lns,act) |
Output: - The lines are written to the current
device.
Example: - The following are example of how to use this call. D
DISP^IBARXEU(DFN) ; write current exemption status D
DISP^IBARXEU(DFN,date,2,1) ; write 2 lines of exemption status on specific
date, if unknown, no display
|
| VARIABLES |
TYPE |
VARIABLES DESCRIPTION |
DFN |
Input |
(required) the internal number of the patient in the
patient file^
|
date |
Input |
(optional) the date the programmer is requesting
exemption information for. The default is today.
|
lns |
Input |
Number of lines - (optional) The number of lines to
print. A whole number value from 1-3. The lines are 1. the current exemption
status, 2. the exemption reason, and 3 the date of the last test.
|
act |
Input |
Unknown Action (optional) - If the exemption status
has never been determined the programmer can suppress any printing of
information. This may be useful when displaying information of new patients.
|
|
RXST(DFN,date) |
Output: 1. Piece 1 - the exemption status, 1 = exem
|t, 0 = non-exempt 2. Piece 2 - the standard text used when displayingthe
exemption status. (i.e. EXEMPT or NON-EXEMPT) 3. Piece 3 - the exemption
reason code 4. Piece 4 - the exemption reason text 5. Piece 5 - the date
of the last income test.
Example - This can be used in determining a patients exemption status and in
writing messages.
S X=$$RXST^IBARXEU(DFN,DT)
W !,"Patient is ",$P(X,"^",2)," - ",$P(X,"^",4)
D:+X NOCOPAY D:'+X COPAY
Q
|
| VARIABLES |
TYPE |
VARIABLES DESCRIPTION |
DFN |
Input |
DFN - (required) the internal number of the patient
in the patient file
|
date |
Input |
Date - (optional) the date the programmer is
requesting exemption information for. The default is today.
|
|