1 | TIUMAPR ; SLC/JER - Title Mapping Review Screen Actions ;7/6/06 12:20
|
---|
2 | ;;1.0;TEXT INTEGRATION UTILITIES;**211**;Jun 20, 1997;Build 26
|
---|
3 | MAP ; Map one or more Local TIU Titles to VHA Enterprise Standard Titles
|
---|
4 | N TIUDA,TIUDATA,TIUI,DIROUT,TIUDI,TIUOUT
|
---|
5 | I '$D(VALMY) D EN^VALM2(XQORNOD(0))
|
---|
6 | S TIUI=0
|
---|
7 | F S TIUI=$O(VALMY(TIUI)) Q:+TIUI'>0 D Q:$D(DIROUT)
|
---|
8 | . N VALMY,LINE,DIRUT
|
---|
9 | . S TIUDATA=$G(^TMP("TIUMLISTIDX",$J,TIUI))
|
---|
10 | . W !!,"Mapping Title #",TIUI
|
---|
11 | . S TIUDA=+$P(TIUDATA,U,2)
|
---|
12 | . D FULL^VALM1,MAP^TIUMAP(TIUDA,$P(TIUDATA,U,3))
|
---|
13 | . D SETLSTEL^TIUMLIST(TIUDA,TIUI)
|
---|
14 | . S LINE=+$O(@VALMAR@("PICK",TIUI,0))
|
---|
15 | . D RESTORE^TIULM(LINE),CNTRL^VALM10(LINE,6,VALM("RM"),IOINHI,IOINORM)
|
---|
16 | . D CNTRL^VALM10(LINE+1,6,VALM("RM"),IOINHI,IOINORM)
|
---|
17 | W !,"Refreshing the list."
|
---|
18 | ; Need to poke in update
|
---|
19 | K VALMY S:'$D(VALMBCK) VALMBCK="R"
|
---|
20 | Q
|
---|
21 | DIRECT ; Direct mapping without assistance
|
---|
22 | N TIUDA,TIUDATA,TIUI,DIROUT,TIUDI,TIUOUT
|
---|
23 | I '$D(VALMY) D EN^VALM2(XQORNOD(0))
|
---|
24 | S TIUI=0
|
---|
25 | F S TIUI=$O(VALMY(TIUI)) Q:+TIUI'>0 D Q:$D(DIROUT)
|
---|
26 | . N VALMY,LINE,DIRUT
|
---|
27 | . S TIUDATA=$G(^TMP("TIUMLISTIDX",$J,TIUI))
|
---|
28 | . W !!,"Mapping Title #",TIUI
|
---|
29 | . S TIUDA=+$P(TIUDATA,U,2)
|
---|
30 | . D FULL^VALM1,DIRECT^TIUMAP2(TIUDA)
|
---|
31 | . D SETLSTEL^TIUMLIST(TIUDA,TIUI)
|
---|
32 | . S LINE=+$O(@VALMAR@("PICK",TIUI,0))
|
---|
33 | . D RESTORE^TIULM(LINE),CNTRL^VALM10(LINE,6,VALM("RM"),IOINHI,IOINORM)
|
---|
34 | . D CNTRL^VALM10(LINE+1,6,VALM("RM"),IOINHI,IOINORM)
|
---|
35 | W !,"Refreshing the list."
|
---|
36 | ; Need to poke in update
|
---|
37 | K VALMY S:'$D(VALMBCK) VALMBCK="R"
|
---|
38 | Q
|
---|