source: WorldVistAEHR/trunk/r/INCOME_VERIFICATION_MATCH-IVM/IVMPLOG2.m

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

initial load of WorldVistAEHR

File size: 1.9 KB
Line 
1IVMPLOG2 ;ALB/CJM - API for IVM PATIENT file; 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 ;
6CLOSE(IEN,REASON,SOURCE) ;
7 ;Description: Sets the value of the STOP FLAG field to 1 for a
8 ;particular record in the IVM PATIENT file, as well as setting related
9 ;fields. This has the effect of stopping updates to a particular
10 ;IVM PATIENT record for some types of events, but not for enrollment
11 ;events.
12 ;
13 ;Input:
14 ; IEN - internal entry number of a record in the IVM PATIENT file.
15 ; REASON - ien of record in the IVM CASE CLOSURE REASON file (#301.93)
16 ; SOURCE - set of codes, 1= IVM CENTER (HEC), 2 = DHCP (local site)
17 ;
18 ;Output:
19 ; Function Value - 1 on success, 0 on failure.
20 ;
21 N DATA,ERROR
22 I $G(REASON)'="",'$$TESTVAL^DGENDBS(301.5,1.01,REASON) Q 0
23 I $G(SOURCE)'="",'$$TESTVAL^DGENDBS(301.5,1.02,SOURCE) Q 0
24 Q:'$$LOCK^IVMPLOG($G(IEN)) 0
25 S DATA(.04)=1
26 S DATA(1.01)=$G(REASON)
27 S DATA(1.02)=$G(SOURCE)
28 S DATA(1.03)=$$NOW^XLFDT
29 S ERROR=$$UPD^DGENDBS(301.5,IEN,.DATA)
30 D UNLOCK^IVMPLOG(IEN)
31 Q ERROR
32 ;
33DELETE(IEN) ;
34 ;Description: Used to delete a record in the IVM PATIENT file.
35 ;
36 ;Input:
37 ; IEN - the internal entry number for a record in the IVM PATIENT file
38 ;Output:
39 ; Function Value - 1 on success, 0 on failure
40 ;
41 Q:'$G(IEN) 1
42 ;
43 Q:'$$LOCK^IVMPLOG(IEN) 0
44 ;
45 N DIK,DA
46 S DIK="^IVM(301.5,"
47 S DA=IEN
48 D ^DIK
49 D UNLOCK^IVMPLOG(IEN)
50 Q 1
51 ;
52ADDFUTR(MTIEN) ;
53 ;Adds a future test to the IVM Patient file. MTIEN is the ien
54 ;of the future test in the Annual Means Test file
55 ;
56 Q:'$G(MTIEN)
57 ;
58 N NODE,DFN,DATE,IVMPAT,DATA,YEAR,TYPE
59 S NODE=$G(^DGMT(408.31,MTIEN,0))
60 S DATE=+NODE
61 Q:'DATE
62 S YEAR=($E(DATE,1,3)-1)
63 S DFN=$P(NODE,"^",2)
64 Q:('DFN)
65 S TYPE=$P(NODE,"^",19)
66 I TYPE'=1,TYPE'=2 Q
67 S IVMPAT=$$LOG^IVMPLOG(DFN,YEAR)
68 Q:'IVMPAT
69 S:(TYPE=1) DATA(.06)=MTIEN
70 S:(TYPE=2) DATA(.07)=MTIEN
71 I $$UPD^DGENDBS(301.5,IVMPAT,.DATA)
72 Q
Note: See TracBrowser for help on using the repository browser.