1 | IVMLDEM1 ;ALB/KCL - IVM DEMOGRAPHIC UPLOAD ACTIONS ; 11-APR-94
|
---|
2 | ;;Version 2.0 ; INCOME VERIFICATION MATCH ;; 21-OCT-94
|
---|
3 | ;;Per VHA Directive 10-93-142, this routine should not be modified.
|
---|
4 | ;
|
---|
5 | ;
|
---|
6 | UD ; - (action) select patient for (demographic upload)
|
---|
7 | ;
|
---|
8 | ; Input - ^TMP("IVMLST",$J,"IDX",ctr,ctr)=dfn^pat name^ivm ien^ivm sub ien
|
---|
9 | ; VALMY(n)=array of selections
|
---|
10 | ;
|
---|
11 | ; - generic seletor used within list manager action call
|
---|
12 | D EN^VALM2($G(XQORNOD(0)),"S")
|
---|
13 | Q:'$D(VALMY)
|
---|
14 | S IVMENT1=0 F S IVMENT1=$O(VALMY(IVMENT1)) Q:'IVMENT1 D
|
---|
15 | .;
|
---|
16 | .; - get index record used for processing
|
---|
17 | .S IVMIDX=$G(^TMP("IVMLST",$J,"IDX",IVMENT1,IVMENT1)) I IVMIDX']"" Q
|
---|
18 | .;
|
---|
19 | .; - call list manager application to display demo fields
|
---|
20 | .S DFN=+IVMIDX,IVMDA2=$P(IVMIDX,"^",3),IVMDA1=$P(IVMIDX,"^",4)
|
---|
21 | .S IVMNAME=$P(IVMIDX,"^",2)
|
---|
22 | .D ^IVMLDEM2
|
---|
23 | ;
|
---|
24 | UDQ ; clean-up variables
|
---|
25 | D QACTION
|
---|
26 | Q
|
---|
27 | ;
|
---|
28 | ;
|
---|
29 | ND ; - (action) select patient for (non-uploadable demographic)
|
---|
30 | ;
|
---|
31 | ; Input - ^TMP("IVMLST",$J,"IDX",ctr,ctr)=dfn^pat name^ivm ien^ivm sub ien
|
---|
32 | ; VALMY(n)=array of selections
|
---|
33 | ;
|
---|
34 | ; - generic seletor used within list manager action
|
---|
35 | D EN^VALM2($G(XQORNOD(0)),"S")
|
---|
36 | Q:'$D(VALMY)
|
---|
37 | S IVMENT1=0 F S IVMENT1=$O(VALMY(IVMENT1)) Q:'IVMENT1 D
|
---|
38 | .;
|
---|
39 | .; - get index record used for processing
|
---|
40 | .S IVMIDX=$G(^TMP("IVMLST",$J,"IDX",IVMENT1,IVMENT1)) I IVMIDX']"" Q
|
---|
41 | .;
|
---|
42 | .; - call list manager application to display non-uploadable fields
|
---|
43 | .S DFN=+IVMIDX,IVMDA2=$P(IVMIDX,"^",3),IVMDA1=$P(IVMIDX,"^",4)
|
---|
44 | .S IVMNAME=$P(IVMIDX,"^",2)
|
---|
45 | .D ^IVMLDEM3
|
---|
46 | ;
|
---|
47 | NDQ ; - clean up variables
|
---|
48 | D QACTION
|
---|
49 | Q
|
---|
50 | ;
|
---|
51 | ;
|
---|
52 | QACTION ; - kill variables used from all protocols
|
---|
53 | D INIT^IVMLDEM ; reset array for list manager display
|
---|
54 | S VALMBCK="R"
|
---|
55 | K DFN,IVMDA1,IVMDA2,IVMDND,IVMENT1,IVMIDX,IVMNAME,IVMSSN,IVMWHERE
|
---|
56 | Q
|
---|