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

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

initial load of WorldVistAEHR

File size: 1.7 KB
Line 
1IVMLDEM1 ;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 ;
6UD ; - (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 ;
24UDQ ; clean-up variables
25 D QACTION
26 Q
27 ;
28 ;
29ND ; - (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 ;
47NDQ ; - clean up variables
48 D QACTION
49 Q
50 ;
51 ;
52QACTION ; - 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
Note: See TracBrowser for help on using the repository browser.