| [613] | 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
|
|---|
