TIUMLIST ; ISL/JER - Review Unmapped Titles ; 03/21/07
;;1.0;TEXT INTEGRATION UTILITIES;**211,225**;Jun 20, 1997;Build 13
EN ; Invoke List Manager
D EN^VALM("TIU REVIEW UNMAPPED TITLES")
S VALMBCK="Q"
Q
;
MAKELIST ; Prompt for search criteria
N MAPSTAT,TIUEDT,TIULDT,USER
S MAPSTAT="U^unmapped",TIUEDT=0,TIULDT=0,USER=DUZ_U_$$PERSNAME^TIULC1(DUZ)
S MAPSTAT=$$SELSTAT("unmapped (ACTIVE)")
I +$G(DIRUT) S VALMQUIT=1 Q
I $S(MAPSTAT="*":0,MAPSTAT="U":0,MAPSTAT="A":0,MAPSTAT="I":0,1:1) D Q:+$G(VALMQUIT)
. S USER=$$SELUSER(DUZ)
. I '$S(+USER:1,USER="A":1,1:0)!+$G(DIRUT) S VALMQUIT=1 Q
. S TIUEDT=+$$EDATE^TIULA("Mapping","T-30")
. I TIUEDT'>0!+$G(DIRUT) S VALMQUIT=1 Q
. S TIULDT=+$$LDATE^TIULA("Mapping")
. I TIULDT'>0!+$G(DIRUT) S VALMQUIT=1 Q
. ; If TIUEDT is NOT earlier than TIULDT, then swap
. I TIUEDT>TIULDT S TIUTMP=TIUEDT,TIUEDT=TIULDT,TIULDT=TIUTMP
W !,"Searching for the events."
D BUILD(MAPSTAT,TIUEDT,TIULDT,USER)
K TIUDI,SELDIV
Q
;
SELSTAT(DFLT) ; Select Mapping Status
N PRMT,READTYPE,X,Y
S PRMT="Select Mapping Status: "
S READTYPE="SMA^M:mapped;U:unmapped (ACTIVE);F:failed mappings;A:active;I:inactive;*:standard title inactivated"
S Y=$P($$READ^TIUU(READTYPE,PRMT,DFLT),U)
Q Y
;
SELUSER(DFLT) ; Select Resolution status
N PRMT,READTYPE,X,Y
I +DFLT>0 S DFLT=$$PERSNAME^TIULC1(DFLT)
S PRMT="Select USER: "
S READTYPE="SMA^A:any;S:selected user"
S Y=$P($$READ^TIUU(READTYPE,PRMT,"ANY"),U)
I Y="S" D
. S READTYPE="PA^200:AEMQ"
. S Y=+$$READ^TIUU(READTYPE,PRMT,DFLT)
Q Y
;
BUILD(MAPSTAT,TIUEDT,TIULDT,USER) ; Build review screen list
N TIUCNT,TIUTTL
S (TIUCNT,VALMCNT)=0
K ^TMP("TIUMLIST",$J),^TMP("TIUMLISTIDX",$J)
; If MAPSTAT="M^mapped"
; Loop through ^TIU(8925.1,"ALOINC")
I $P(MAPSTAT,U)="M"!($P(MAPSTAT,U)="*") D
. N TIUSDA S TIUSDA=0
. F S TIUSDA=$O(^TIU(8925.1,"ALOINC",TIUSDA)) Q:+TIUSDA'>0 D
. . N TIUTDA S TIUTDA=0
. . F S TIUTDA=$O(^TIU(8925.1,"ALOINC",TIUSDA,TIUTDA)) Q:+TIUTDA'>0 D:$$PASS(MAPSTAT,TIUTDA,USER,TIUEDT,TIULDT) SORT(TIUTDA)
. N TIUNM S TIUNM=""
. F S TIUNM=$O(^TMP("TIUMLIST",$J,"ALPHA",TIUNM)) Q:TIUNM']"" D
. . N TIUTDA S TIUTDA=0
. . F S TIUTDA=$O(^TMP("TIUMLIST",$J,"ALPHA",TIUNM,TIUTDA)) Q:+TIUTDA'>0 D
. . . S TIUCNT=+$G(TIUCNT)+1
. . . D SETLSTEL(TIUTDA,TIUCNT)
; If MAPSTAT="U^unmapped" or MAPSTAT="A^all active titles"
; Loop through ^TIU(8925.1,"AT","DOC")
I $S($P(MAPSTAT,U)="U":1,$P(MAPSTAT,U)="A":1,$P(MAPSTAT,U)="I":1,1:0) D
. N TIUTDA S TIUTDA=0
. F S TIUTDA=$O(^TIU(8925.1,"AT","DOC",TIUTDA)) Q:+TIUTDA'>0 D
. . I ($P(MAPSTAT,U)'="I"),(+$P($G(^TIU(8925.1,TIUTDA,0)),U,7)'=11) Q
. . I ($P(MAPSTAT,U)="I"),(+$P($G(^TIU(8925.1,TIUTDA,0)),U,7)'=13) Q
. . I $P(MAPSTAT,U)="U",(+$P($G(^TIU(8925.1,TIUTDA,15)),U)>0) Q
. . D:$S($P(MAPSTAT,U)="U":1,$P(MAPSTAT,U)="A":1,$P(MAPSTAT,U)="I":1,$$PASS(TIUTDA,USER,TIUEDT,TIULDT):1,1:0) SORT(TIUTDA)
. N TIUNM S TIUNM=""
. F S TIUNM=$O(^TMP("TIUMLIST",$J,"ALPHA",TIUNM)) Q:TIUNM']"" D
. . N TIUTDA S TIUTDA=0
. . F S TIUTDA=$O(^TMP("TIUMLIST",$J,"ALPHA",TIUNM,TIUTDA)) Q:+TIUTDA'>0 D
. . . S TIUCNT=+$G(TIUCNT)+1
. . . D SETLSTEL(TIUTDA,TIUCNT)
; If MAPSTAT="F^failed mappings"
; Loop through ^XTMP("TIUMAP","FAIL")
I $P(MAPSTAT,U)="F" D
. S TIUTTL="" F S TIUTTL=$O(^XTMP("TIUMAP","FAIL",TIUTTL)) Q:TIUTTL']"" D
. . N TIUTDA S TIUTDA=0
. . F S TIUTDA=$O(^XTMP("TIUMAP","FAIL",TIUTTL,TIUTDA)) Q:+TIUTDA'>0 D
. . . I '$$PASS(TIUTDA,USER,TIUEDT,TIULDT) Q
. . . S TIUCNT=+$G(TIUCNT)+1
. . . D SETLSTEL(TIUTDA,TIUCNT)
;
S ^TMP("TIUMLIST",$J,0)=+$G(TIUCNT)_U_MAPSTAT,VALMCNT=2*TIUCNT
S TIUPICK=+$O(^ORD(101,"B","TIU ACTION SELECT LIST ELEMENT",0))
S ^TMP("TIUMLIST",$J,"#")=TIUPICK_"^1:"_+$G(TIUCNT)
I $D(VALMHDR)>9 D HDR
I +$G(TIUCNT)'>0 D
. S ^TMP("TIUMLIST",$J,1,0)="",VALMCNT=2
. S ^TMP("TIUMLIST",$J,2,0)="No "_$$STATXFRM(MAPSTAT)_$S(MAPSTAT'="F":" Local Titles",1:"")_" found meeting the search criteria"
. D RESTORE^VALM10(2)
Q
;
PASS(MAPSTAT,TIUTDA,USER,TIUEDT,TIULDT) ; Does record passes criteria?
N Y,TIUTD15,TIUDT,TIUDUZ S Y=0
S TIUTD15=$G(^TIU(8925.1,TIUTDA,15))
I $P(MAPSTAT,U)="*",$$SCREEN^XTID(8926.1,"",+TIUTD15_",") S Y=1 G PASSX
S TIUDT=$P(TIUTD15,U,2),TIUDUZ=$P(TIUTD15,U,3)
I (TIUDT'<TIUEDT),(TIUDT'>TIULDT_".235959"),$S(USER="A":1,USER=TIUDUZ:1,1:0) S Y=1
PASSX Q Y
;
SORT(TIUTDA) ; Alpha sort titles
N TIUNM S TIUNM=$P($G(^TIU(8925.1,TIUTDA,0)),U)
S ^TMP("TIUMLIST",$J,"ALPHA",TIUNM,TIUTDA)=""
Q
;
SETLSTEL(TIUTDA,TIUCNT) ; Set List element for each title
N ATTEMPT,USER,LOCAL,VHATITLE,VHATDA,USERDUZ,TIUD15,TIUTTL,TIUS
S TIUTTL=$P($G(^TIU(8925.1,TIUTDA,0)),U)
S TIUD15=$G(^TIU(8925.1,TIUTDA,15))
S USERDUZ=$P(TIUD15,U,3),USER=$S(+USERDUZ>0:$$GET1^DIQ(200,USERDUZ,.01),1:"UNKNOWN")
S ATTEMPT=$P(TIUD15,U,2)
S:USER'="UNKNOWN" USER=$$NAME^TIULS(USER,"LAST, FIRST")
S ATTEMPT=$S(+ATTEMPT>0:$$DATE^TIULS(ATTEMPT,"MM/DD/YY HR:MIN"),1:"N/A")
S VHATDA=0,VHATDA=$P(TIUD15,U)
S VHATITLE=$S(+VHATDA:$P($G(^TIU(8926.1,+VHATDA,0)),U),1:"")
S TIUREC=$$SETFLD^VALM1(TIUCNT,"","NUMBER")
S TIUREC=$$SETFLD^VALM1(TIUTTL,TIUREC,"LOCAL")
S TIUREC=$$SETFLD^VALM1(ATTEMPT,TIUREC,"ATTEMPTED")
S TIUREC=$$SETFLD^VALM1(USER,TIUREC,"USER")
S TIUS=(2*TIUCNT)-1
S ^TMP("TIUMLIST",$J,TIUS,0)=TIUREC
D RESTORE^TIULM(TIUS)
S ^TMP("TIUMLIST",$J,"IDX",TIUS,TIUCNT)=""
S ^TMP("TIUMLIST",$J,"PICK",TIUCNT,TIUS)=""
S ^TMP("TIUMLISTIDX",$J,TIUCNT)=TIUS_U_TIUTDA_U_TIUTTL
S TIUS=+$G(TIUS)+1 W:TIUS#5'>0 "."
S ^TMP("TIUMLIST",$J,TIUS,0)=$$SETFLD^VALM1(VHATITLE,"","VHATITLE")
D RESTORE^TIULM(TIUS)
S ^TMP("TIUMLIST",$J,"IDX",TIUS,TIUCNT)=""
S ^TMP("TIUMLIST",$J,"PICK",TIUCNT,TIUS)=""
Q
;
STATXFRM(STATUS) ; Transform status
Q $S(STATUS="M":"MAPPED",STATUS="U":"UNMAPPED (ACTIVE)",STATUS="F":"FAILED Mapping Attempts",STATUS="A":"ACTIVE",STATUS="*":"MAPPED to INACTIVE STANDARD",1:"INACTIVE")
;
HDR ; Initialize header for review screen
N TITLE,STATUS,MAPSTAT S STATUS=$P(@VALMAR@(0),U,2)
S MAPSTAT=$$STATXFRM(STATUS)
S TITLE=MAPSTAT_$S(STATUS'="F":" Titles",1:"")
S VALMHDR(1)=$$CENTER^TIULS(TITLE)
S VALMHDR(2)=" LOCAL Title"
Q
;
VIDATTS(LINE) ; Set default video attributes for LINE
D RESTORE^TIULM(LINE),FLDCTRL^VALM10(LINE,"NUMBER",IOINHI,IOINORM)
Q
;
CLEAN ; Clean up your mess!
K ^TMP("TIUMLIST",$J),^TMP("TIUMLISTIDX",$J) D CLEAN^VALM10
K VALMY
Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HTIUMLIST 6442 printed Nov 22, 2024@17:52:33 Page 2
TIUMLIST ; ISL/JER - Review Unmapped Titles ; 03/21/07
+1 ;;1.0;TEXT INTEGRATION UTILITIES;**211,225**;Jun 20, 1997;Build 13
EN ; Invoke List Manager
+1 DO EN^VALM("TIU REVIEW UNMAPPED TITLES")
+2 SET VALMBCK="Q"
+3 QUIT
+4 ;
MAKELIST ; Prompt for search criteria
+1 NEW MAPSTAT,TIUEDT,TIULDT,USER
+2 SET MAPSTAT="U^unmapped"
SET TIUEDT=0
SET TIULDT=0
SET USER=DUZ_U_$$PERSNAME^TIULC1(DUZ)
+3 SET MAPSTAT=$$SELSTAT("unmapped (ACTIVE)")
+4 IF +$GET(DIRUT)
SET VALMQUIT=1
QUIT
+5 IF $SELECT(MAPSTAT="*":0,MAPSTAT="U":0,MAPSTAT="A":0,MAPSTAT="I":0,1:1)
Begin DoDot:1
+6 SET USER=$$SELUSER(DUZ)
+7 IF '$SELECT(+USER:1,USER="A":1,1:0)!+$GET(DIRUT)
SET VALMQUIT=1
QUIT
+8 SET TIUEDT=+$$EDATE^TIULA("Mapping","T-30")
+9 IF TIUEDT'>0!+$GET(DIRUT)
SET VALMQUIT=1
QUIT
+10 SET TIULDT=+$$LDATE^TIULA("Mapping")
+11 IF TIULDT'>0!+$GET(DIRUT)
SET VALMQUIT=1
QUIT
+12 ; If TIUEDT is NOT earlier than TIULDT, then swap
+13 IF TIUEDT>TIULDT
SET TIUTMP=TIUEDT
SET TIUEDT=TIULDT
SET TIULDT=TIUTMP
End DoDot:1
if +$GET(VALMQUIT)
QUIT
+14 WRITE !,"Searching for the events."
+15 DO BUILD(MAPSTAT,TIUEDT,TIULDT,USER)
+16 KILL TIUDI,SELDIV
+17 QUIT
+18 ;
SELSTAT(DFLT) ; Select Mapping Status
+1 NEW PRMT,READTYPE,X,Y
+2 SET PRMT="Select Mapping Status: "
+3 SET READTYPE="SMA^M:mapped;U:unmapped (ACTIVE);F:failed mappings;A:active;I:inactive;*:standard title inactivated"
+4 SET Y=$PIECE($$READ^TIUU(READTYPE,PRMT,DFLT),U)
+5 QUIT Y
+6 ;
SELUSER(DFLT) ; Select Resolution status
+1 NEW PRMT,READTYPE,X,Y
+2 IF +DFLT>0
SET DFLT=$$PERSNAME^TIULC1(DFLT)
+3 SET PRMT="Select USER: "
+4 SET READTYPE="SMA^A:any;S:selected user"
+5 SET Y=$PIECE($$READ^TIUU(READTYPE,PRMT,"ANY"),U)
+6 IF Y="S"
Begin DoDot:1
+7 SET READTYPE="PA^200:AEMQ"
+8 SET Y=+$$READ^TIUU(READTYPE,PRMT,DFLT)
End DoDot:1
+9 QUIT Y
+10 ;
BUILD(MAPSTAT,TIUEDT,TIULDT,USER) ; Build review screen list
+1 NEW TIUCNT,TIUTTL
+2 SET (TIUCNT,VALMCNT)=0
+3 KILL ^TMP("TIUMLIST",$JOB),^TMP("TIUMLISTIDX",$JOB)
+4 ; If MAPSTAT="M^mapped"
+5 ; Loop through ^TIU(8925.1,"ALOINC")
+6 IF $PIECE(MAPSTAT,U)="M"!($PIECE(MAPSTAT,U)="*")
Begin DoDot:1
+7 NEW TIUSDA
SET TIUSDA=0
+8 FOR
SET TIUSDA=$ORDER(^TIU(8925.1,"ALOINC",TIUSDA))
if +TIUSDA'>0
QUIT
Begin DoDot:2
+9 NEW TIUTDA
SET TIUTDA=0
+10 FOR
SET TIUTDA=$ORDER(^TIU(8925.1,"ALOINC",TIUSDA,TIUTDA))
if +TIUTDA'>0
QUIT
if $$PASS(MAPSTAT,TIUTDA,USER,TIUEDT,TIULDT)
DO SORT(TIUTDA)
End DoDot:2
+11 NEW TIUNM
SET TIUNM=""
+12 FOR
SET TIUNM=$ORDER(^TMP("TIUMLIST",$JOB,"ALPHA",TIUNM))
if TIUNM']""
QUIT
Begin DoDot:2
+13 NEW TIUTDA
SET TIUTDA=0
+14 FOR
SET TIUTDA=$ORDER(^TMP("TIUMLIST",$JOB,"ALPHA",TIUNM,TIUTDA))
if +TIUTDA'>0
QUIT
Begin DoDot:3
+15 SET TIUCNT=+$GET(TIUCNT)+1
+16 DO SETLSTEL(TIUTDA,TIUCNT)
End DoDot:3
End DoDot:2
End DoDot:1
+17 ; If MAPSTAT="U^unmapped" or MAPSTAT="A^all active titles"
+18 ; Loop through ^TIU(8925.1,"AT","DOC")
+19 IF $SELECT($PIECE(MAPSTAT,U)="U":1,$PIECE(MAPSTAT,U)="A":1,$PIECE(MAPSTAT,U)="I":1,1:0)
Begin DoDot:1
+20 NEW TIUTDA
SET TIUTDA=0
+21 FOR
SET TIUTDA=$ORDER(^TIU(8925.1,"AT","DOC",TIUTDA))
if +TIUTDA'>0
QUIT
Begin DoDot:2
+22 IF ($PIECE(MAPSTAT,U)'="I")
IF (+$PIECE($GET(^TIU(8925.1,TIUTDA,0)),U,7)'=11)
QUIT
+23 IF ($PIECE(MAPSTAT,U)="I")
IF (+$PIECE($GET(^TIU(8925.1,TIUTDA,0)),U,7)'=13)
QUIT
+24 IF $PIECE(MAPSTAT,U)="U"
IF (+$PIECE($GET(^TIU(8925.1,TIUTDA,15)),U)>0)
QUIT
+25 if $SELECT($PIECE(MAPSTAT,U)="U"
DO SORT(TIUTDA)
End DoDot:2
+26 NEW TIUNM
SET TIUNM=""
+27 FOR
SET TIUNM=$ORDER(^TMP("TIUMLIST",$JOB,"ALPHA",TIUNM))
if TIUNM']""
QUIT
Begin DoDot:2
+28 NEW TIUTDA
SET TIUTDA=0
+29 FOR
SET TIUTDA=$ORDER(^TMP("TIUMLIST",$JOB,"ALPHA",TIUNM,TIUTDA))
if +TIUTDA'>0
QUIT
Begin DoDot:3
+30 SET TIUCNT=+$GET(TIUCNT)+1
+31 DO SETLSTEL(TIUTDA,TIUCNT)
End DoDot:3
End DoDot:2
End DoDot:1
+32 ; If MAPSTAT="F^failed mappings"
+33 ; Loop through ^XTMP("TIUMAP","FAIL")
+34 IF $PIECE(MAPSTAT,U)="F"
Begin DoDot:1
+35 SET TIUTTL=""
FOR
SET TIUTTL=$ORDER(^XTMP("TIUMAP","FAIL",TIUTTL))
if TIUTTL']""
QUIT
Begin DoDot:2
+36 NEW TIUTDA
SET TIUTDA=0
+37 FOR
SET TIUTDA=$ORDER(^XTMP("TIUMAP","FAIL",TIUTTL,TIUTDA))
if +TIUTDA'>0
QUIT
Begin DoDot:3
+38 IF '$$PASS(TIUTDA,USER,TIUEDT,TIULDT)
QUIT
+39 SET TIUCNT=+$GET(TIUCNT)+1
+40 DO SETLSTEL(TIUTDA,TIUCNT)
End DoDot:3
End DoDot:2
End DoDot:1
+41 ;
+42 SET ^TMP("TIUMLIST",$JOB,0)=+$GET(TIUCNT)_U_MAPSTAT
SET VALMCNT=2*TIUCNT
+43 SET TIUPICK=+$ORDER(^ORD(101,"B","TIU ACTION SELECT LIST ELEMENT",0))
+44 SET ^TMP("TIUMLIST",$JOB,"#")=TIUPICK_"^1:"_+$GET(TIUCNT)
+45 IF $DATA(VALMHDR)>9
DO HDR
+46 IF +$GET(TIUCNT)'>0
Begin DoDot:1
+47 SET ^TMP("TIUMLIST",$JOB,1,0)=""
SET VALMCNT=2
+48 SET ^TMP("TIUMLIST",$JOB,2,0)="No "_$$STATXFRM(MAPSTAT)_$SELECT(MAPSTAT'="F":" Local Titles",1:"")_" found meeting the search criteria"
+49 DO RESTORE^VALM10(2)
End DoDot:1
+50 QUIT
+51 ;
PASS(MAPSTAT,TIUTDA,USER,TIUEDT,TIULDT) ; Does record passes criteria?
+1 NEW Y,TIUTD15,TIUDT,TIUDUZ
SET Y=0
+2 SET TIUTD15=$GET(^TIU(8925.1,TIUTDA,15))
+3 IF $PIECE(MAPSTAT,U)="*"
IF $$SCREEN^XTID(8926.1,"",+TIUTD15_",")
SET Y=1
GOTO PASSX
+4 SET TIUDT=$PIECE(TIUTD15,U,2)
SET TIUDUZ=$PIECE(TIUTD15,U,3)
+5 IF (TIUDT'<TIUEDT)
IF (TIUDT'>TIULDT_".235959")
IF $SELECT(USER="A":1,USER=TIUDUZ:1,1:0)
SET Y=1
PASSX QUIT Y
+1 ;
SORT(TIUTDA) ; Alpha sort titles
+1 NEW TIUNM
SET TIUNM=$PIECE($GET(^TIU(8925.1,TIUTDA,0)),U)
+2 SET ^TMP("TIUMLIST",$JOB,"ALPHA",TIUNM,TIUTDA)=""
+3 QUIT
+4 ;
SETLSTEL(TIUTDA,TIUCNT) ; Set List element for each title
+1 NEW ATTEMPT,USER,LOCAL,VHATITLE,VHATDA,USERDUZ,TIUD15,TIUTTL,TIUS
+2 SET TIUTTL=$PIECE($GET(^TIU(8925.1,TIUTDA,0)),U)
+3 SET TIUD15=$GET(^TIU(8925.1,TIUTDA,15))
+4 SET USERDUZ=$PIECE(TIUD15,U,3)
SET USER=$SELECT(+USERDUZ>0:$$GET1^DIQ(200,USERDUZ,.01),1:"UNKNOWN")
+5 SET ATTEMPT=$PIECE(TIUD15,U,2)
+6 if USER'="UNKNOWN"
SET USER=$$NAME^TIULS(USER,"LAST, FIRST")
+7 SET ATTEMPT=$SELECT(+ATTEMPT>0:$$DATE^TIULS(ATTEMPT,"MM/DD/YY HR:MIN"),1:"N/A")
+8 SET VHATDA=0
SET VHATDA=$PIECE(TIUD15,U)
+9 SET VHATITLE=$SELECT(+VHATDA:$PIECE($GET(^TIU(8926.1,+VHATDA,0)),U),1:"")
+10 SET TIUREC=$$SETFLD^VALM1(TIUCNT,"","NUMBER")
+11 SET TIUREC=$$SETFLD^VALM1(TIUTTL,TIUREC,"LOCAL")
+12 SET TIUREC=$$SETFLD^VALM1(ATTEMPT,TIUREC,"ATTEMPTED")
+13 SET TIUREC=$$SETFLD^VALM1(USER,TIUREC,"USER")
+14 SET TIUS=(2*TIUCNT)-1
+15 SET ^TMP("TIUMLIST",$JOB,TIUS,0)=TIUREC
+16 DO RESTORE^TIULM(TIUS)
+17 SET ^TMP("TIUMLIST",$JOB,"IDX",TIUS,TIUCNT)=""
+18 SET ^TMP("TIUMLIST",$JOB,"PICK",TIUCNT,TIUS)=""
+19 SET ^TMP("TIUMLISTIDX",$JOB,TIUCNT)=TIUS_U_TIUTDA_U_TIUTTL
+20 SET TIUS=+$GET(TIUS)+1
if TIUS#5'>0
WRITE "."
+21 SET ^TMP("TIUMLIST",$JOB,TIUS,0)=$$SETFLD^VALM1(VHATITLE,"","VHATITLE")
+22 DO RESTORE^TIULM(TIUS)
+23 SET ^TMP("TIUMLIST",$JOB,"IDX",TIUS,TIUCNT)=""
+24 SET ^TMP("TIUMLIST",$JOB,"PICK",TIUCNT,TIUS)=""
+25 QUIT
+26 ;
STATXFRM(STATUS) ; Transform status
+1 QUIT $SELECT(STATUS="M":"MAPPED",STATUS="U":"UNMAPPED (ACTIVE)",STATUS="F":"FAILED Mapping Attempts",STATUS="A":"ACTIVE",STATUS="*":"MAPPED to INACTIVE STANDARD",1:"INACTIVE")
+2 ;
HDR ; Initialize header for review screen
+1 NEW TITLE,STATUS,MAPSTAT
SET STATUS=$PIECE(@VALMAR@(0),U,2)
+2 SET MAPSTAT=$$STATXFRM(STATUS)
+3 SET TITLE=MAPSTAT_$SELECT(STATUS'="F":" Titles",1:"")
+4 SET VALMHDR(1)=$$CENTER^TIULS(TITLE)
+5 SET VALMHDR(2)=" LOCAL Title"
+6 QUIT
+7 ;
VIDATTS(LINE) ; Set default video attributes for LINE
+1 DO RESTORE^TIULM(LINE)
DO FLDCTRL^VALM10(LINE,"NUMBER",IOINHI,IOINORM)
+2 QUIT
+3 ;
CLEAN ; Clean up your mess!
+1 KILL ^TMP("TIUMLIST",$JOB),^TMP("TIUMLISTIDX",$JOB)
DO CLEAN^VALM10
+2 KILL VALMY
+3 QUIT
