| [613] | 1 | IVMPMTE ;ALB/KCL/CJM/JAN - MEANS TEST EVENT DRIVER INTERFACE ; 07-MAR-01
|
|---|
| 2 | ;;2.0;INCOME VERIFICATION MATCH;**1,9,17,39,49,89**;21-OCT-94
|
|---|
| 3 | ;;Per VHA Directive 10-93-142, this routine should not be modified.
|
|---|
| 4 | ;
|
|---|
| 5 | ; Input - DFN the patient's internal entry number.
|
|---|
| 6 | ; DGMTI the Means Test internal entry number.
|
|---|
| 7 | ; DGMTINF the Means Test Interactive/Non-interactive flag.
|
|---|
| 8 | ; DGMTACT the Means Test event type
|
|---|
| 9 | ; DGMTP annual Means Test 0th node prior to Add, Edit
|
|---|
| 10 | ; or Delete.
|
|---|
| 11 | ; DGMTA annual Means Test 0th node after Add, Edit or Delete.
|
|---|
| 12 | ;
|
|---|
| 13 | ; Output - None.
|
|---|
| 14 | ;
|
|---|
| 15 | ;
|
|---|
| 16 | EN ; Entry point
|
|---|
| 17 | N EVENTS,IVMDA
|
|---|
| 18 | S EVENTS("IVM")=1
|
|---|
| 19 | ;
|
|---|
| 20 | ; Quit if supported Means Test variables are not defined
|
|---|
| 21 | Q:'$D(DFN)!('$D(DGMTA))!('$D(DGMTP))!('$D(DGMTINF))!('$D(DGMTACT))
|
|---|
| 22 | ;
|
|---|
| 23 | ; - no processing required when uploading or deleting
|
|---|
| 24 | ; - an IVM-verified Means Test
|
|---|
| 25 | Q:DGMTACT="UPL"!(DGMTACT="DUP")
|
|---|
| 26 | I DGMTP]"",DGMTA]"",DGMTACT="DEL" Q
|
|---|
| 27 | ;
|
|---|
| 28 | ; Prevent DCD/other income tests uploaded from HEC to trigger a
|
|---|
| 29 | ; transmission back to HEC (quit if source of test isn't VAMC)
|
|---|
| 30 | N DGST S DGST=$S(+DGMTA:+$P(DGMTA,U,23),1:+$P(DGMTP,U,23))
|
|---|
| 31 | Q:$P($G(^DG(408.34,DGST,0)),"^")'="VAMC"&(DGMTACT'="CAT")
|
|---|
| 32 | ;
|
|---|
| 33 | W:'DGMTINF !,"Checking Income Verification Match (IVM) for changes..."
|
|---|
| 34 | S IVMMTDT=$S(DGMTA:+DGMTA,1:+DGMTP) Q:'IVMMTDT S IVMDT=$$LYR^DGMTSCU1(IVMMTDT)
|
|---|
| 35 | S IVMNEW=0 S IVMDA=$O(^IVM(301.5,"APT",DFN,IVMDT,0)) I 'IVMDA S IVMNEW=1 ; Check for entry/previous year in IVM PATIENT file
|
|---|
| 36 | I 'IVMNEW D CHK ; If entry in IVM PATIENT file check for Means Test changes
|
|---|
| 37 | I IVMNEW,$$IVM^IVMUFNC(DFN,IVMMTDT),($E(IVMDT,1,3)=($E(DT,1,3)-1)) I $$LOG^IVMPLOG(DFN,IVMDT,.EVENTS) ; new & meets crtieria & current year
|
|---|
| 38 | ;
|
|---|
| 39 | ;log patient for transmission if patient meets DCD criteria
|
|---|
| 40 | D LOGDCD^IVMCUC(DFN,IVMMTDT)
|
|---|
| 41 | ;
|
|---|
| 42 | ; Quit when uploading Future Means Tests
|
|---|
| 43 | Q:$G(IVM1)>DT
|
|---|
| 44 | ;
|
|---|
| 45 | ; Update cross references when editing Future Dated Tests
|
|---|
| 46 | I $D(DGMTI),+$G(DGMT0)>DT,$D(IVMDA) D
|
|---|
| 47 | .I DGMTYPT=1,$P(^IVM(301.5,IVMDA,0),U,6)'="",+DGMTA'>DT S DATA(.06)="" I $$UPD^DGENDBS(301.5,IVMDA,.DATA) K DATA,^IVM(301.5,"AC",+DGMT0,IVMDA,DGMTI)
|
|---|
| 48 | .I DGMTYPT=2,$P(^IVM(301.5,IVMDA,0),U,7)'="",+DGMTA'>DT S DATA(.07)="" I $$UPD^DGENDBS(301.5,IVMDA,.DATA) K DATA,^IVM(301.5,"AD",+DGMT0,IVMDA,DGMTI)
|
|---|
| 49 | ;
|
|---|
| 50 | ENQ ; Cleanup
|
|---|
| 51 | W:'DGMTINF "completed."
|
|---|
| 52 | K DA,DIC,DIE,DLAYGO,DR,IVMDA,IVMDT,IVMFLG,IVMMTDT,IVMNEW,X,Y
|
|---|
| 53 | Q
|
|---|
| 54 | CHK ; Check if Means Test has been ADDED, DELETED, or EDITED
|
|---|
| 55 | S IVMFLG=0
|
|---|
| 56 | F X=1,2,3,4,5,7,10,12,15,18 Q:IVMFLG=1 D
|
|---|
| 57 | .I $P(DGMTA,"^",X)'=$P(DGMTP,"^",X) S IVMFLG=1 I $$SETSTAT^IVMPLOG(IVMDA,.EVENTS) ; If MT changes then edit IVM PATIENT file
|
|---|
| 58 | Q
|
|---|
