| 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
|
|---|
