source: FOIAVistA/trunk/r/TEXT_INTEGRATION_UTILITIES-GMRP-TIU/TIUMAPR.m@ 1671

Last change on this file since 1671 was 628, checked in by George Lilly, 15 years ago

initial load of FOIAVistA 6/30/08 version

File size: 1.4 KB
Line 
1TIUMAPR ; SLC/JER - Title Mapping Review Screen Actions ;7/6/06 12:20
2 ;;1.0;TEXT INTEGRATION UTILITIES;**211**;Jun 20, 1997;Build 26
3MAP ; 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
21DIRECT ; 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
Note: See TracBrowser for help on using the repository browser.