37 lines
979 B
Mathematica
37 lines
979 B
Mathematica
IVMUPAR1 ;ALB/CJM - IVM PARAMETER ENTER/EDIT (continued); 4-SEP-97
|
|
;;2.0;INCOME VERIFICATION MATCH;**9,17**;21-OCT-94
|
|
;;Per VHA Directive 10-93-142, this routine should not be modified.
|
|
;
|
|
;
|
|
ON() ;
|
|
;Description: Returns 1 if enrollment events should be transmitted, 0 otherwise.
|
|
;Input:
|
|
; None
|
|
;Output:
|
|
; Function Value: 1 if enrollment events should be transmitted, 0 otherwise
|
|
;
|
|
Q $S(($P($G(^IVM(301.9,1,0)),"^",8)=1):1,1:0)
|
|
;
|
|
SETON ;
|
|
;Description: Sets the field TRANSMIT ENROLLMENT EVENTS? to 1 so that
|
|
;patient enrollment events will be transmitted in the nightly
|
|
;transmission. It is assumed that a record, ien=1, exists in the
|
|
;IVM SITE PARAMETER file.
|
|
;
|
|
;Input: None
|
|
;Output: None
|
|
;
|
|
S $P(^IVM(301.9,1,0),"^",8)=1
|
|
Q
|
|
;
|
|
;
|
|
DCDON() ;
|
|
; Description: Returns 1 if DCD messaging is enabled, 0 otherwise.
|
|
;
|
|
; Input: None
|
|
;
|
|
; Output:
|
|
; Function Value: 1 if DCD messaging is enabled, 0 otherwise
|
|
;
|
|
Q $S(($P($G(^IVM(301.9,1,20)),"^")=1):1,1:0)
|