source: WorldVistAEHR/trunk/r/INCOME_VERIFICATION_MATCH-IVM/IVMUPAR1.m@ 1604

Last change on this file since 1604 was 613, checked in by George Lilly, 15 years ago

initial load of WorldVistAEHR

File size: 979 bytes
Line 
1IVMUPAR1 ;ALB/CJM - IVM PARAMETER ENTER/EDIT (continued); 4-SEP-97
2 ;;2.0;INCOME VERIFICATION MATCH;**9,17**;21-OCT-94
3 ;;Per VHA Directive 10-93-142, this routine should not be modified.
4 ;
5 ;
6ON() ;
7 ;Description: Returns 1 if enrollment events should be transmitted, 0 otherwise.
8 ;Input:
9 ; None
10 ;Output:
11 ; Function Value: 1 if enrollment events should be transmitted, 0 otherwise
12 ;
13 Q $S(($P($G(^IVM(301.9,1,0)),"^",8)=1):1,1:0)
14 ;
15SETON ;
16 ;Description: Sets the field TRANSMIT ENROLLMENT EVENTS? to 1 so that
17 ;patient enrollment events will be transmitted in the nightly
18 ;transmission. It is assumed that a record, ien=1, exists in the
19 ;IVM SITE PARAMETER file.
20 ;
21 ;Input: None
22 ;Output: None
23 ;
24 S $P(^IVM(301.9,1,0),"^",8)=1
25 Q
26 ;
27 ;
28DCDON() ;
29 ; Description: Returns 1 if DCD messaging is enabled, 0 otherwise.
30 ;
31 ; Input: None
32 ;
33 ; Output:
34 ; Function Value: 1 if DCD messaging is enabled, 0 otherwise
35 ;
36 Q $S(($P($G(^IVM(301.9,1,20)),"^")=1):1,1:0)
Note: See TracBrowser for help on using the repository browser.