USRL ; SLC/JER - User class library ;11/12/09
;;1.0;AUTHORIZATION/SUBSCRIPTION;**3,7,33**;Jun 20, 1997;Build 7
;======================================================================
UPDATE(ITEM) ; Updates list following edit
N DA,USRREC,USRABB,USRCLNM,USRACT,USRITM
N USRLREC,USREREC
S DA=+$P(ITEM,U,2),USRREC=$G(^USR(8930,+DA,0))
S USRITM=+ITEM
;S USRCLNM=$S(USRREC']"":"<Class DELETED>",$P(USRREC,U,4)]"":$P(USRREC,U,4),1:$$MIXED^USRLS($P(USRREC,U)))
S USRCLNM=$S(USRREC']"":"<Class DELETED>",1:$P(USRREC,U))
I +$D(^USR(8930,DA,1))>9 S USRCLNM="+"_USRCLNM
S USRABB=$P(USRREC,U,2),USRACT=$S(+$P(USRREC,U,3):"Active",1:"Inactive")
S USRLREC=$$SETFLD^VALM1(USRITM,$G(USRLREC),"NUMBER")
S USRLREC=$$SETFLD^VALM1(USRCLNM,$G(USRLREC),"CLASS NAME")
S USRLREC=$$SETFLD^VALM1(USRABB,$G(USRLREC),"ABBREVIATION")
S USRLREC=$$SETFLD^VALM1(USRACT,$G(USRLREC),"ACTIVE")
S USREREC=$$SETFLD^VALM1(USRITM,$G(USREREC),"NUMBER")
S USREREC=$$SETFLD^VALM1(USRCLNM,$G(USREREC),"CLASS NAME")
S USREREC=$$SETFLD^VALM1(USRABB,$G(USREREC),"ABBREVIATION")
S USREREC=$$SETFLD^VALM1(USRACT,$G(USREREC),"ACTIVE")
S ^TMP("USRCLASS",$J,+USRITM,0)=USRLREC
D RESTORE^VALM10(+USRITM),CNTRL^VALM10(+USRITM,1,VALM("RM"),IOINHI,IOINORM)
Q
RESTORE(ITEM) ; Restore video attributes for a single list element
D RESTORE^VALM10(ITEM),FLDCTRL^VALM10(ITEM,"NUMBER",IOINHI,IOINORM)
Q
;
;======================================================================
VCLDN(NAME) ;Screen for valid class display names.
N LEN
S LEN=$L(NAME)
I (LEN<3)!(LEN>55) Q 0
;
;Don't allow "+" or "-", or "|" in the name.
I (NAME["+")!(NAME["-")!(NAME["|") Q 0
;
Q 1
;
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HUSRL 1676 printed Dec 13, 2024@01:38:46 Page 2
USRL ; SLC/JER - User class library ;11/12/09
+1 ;;1.0;AUTHORIZATION/SUBSCRIPTION;**3,7,33**;Jun 20, 1997;Build 7
+2 ;======================================================================
UPDATE(ITEM) ; Updates list following edit
+1 NEW DA,USRREC,USRABB,USRCLNM,USRACT,USRITM
+2 NEW USRLREC,USREREC
+3 SET DA=+$PIECE(ITEM,U,2)
SET USRREC=$GET(^USR(8930,+DA,0))
+4 SET USRITM=+ITEM
+5 ;S USRCLNM=$S(USRREC']"":"<Class DELETED>",$P(USRREC,U,4)]"":$P(USRREC,U,4),1:$$MIXED^USRLS($P(USRREC,U)))
+6 SET USRCLNM=$SELECT(USRREC']"":"<Class DELETED>",1:$PIECE(USRREC,U))
+7 IF +$DATA(^USR(8930,DA,1))>9
SET USRCLNM="+"_USRCLNM
+8 SET USRABB=$PIECE(USRREC,U,2)
SET USRACT=$SELECT(+$PIECE(USRREC,U,3):"Active",1:"Inactive")
+9 SET USRLREC=$$SETFLD^VALM1(USRITM,$GET(USRLREC),"NUMBER")
+10 SET USRLREC=$$SETFLD^VALM1(USRCLNM,$GET(USRLREC),"CLASS NAME")
+11 SET USRLREC=$$SETFLD^VALM1(USRABB,$GET(USRLREC),"ABBREVIATION")
+12 SET USRLREC=$$SETFLD^VALM1(USRACT,$GET(USRLREC),"ACTIVE")
+13 SET USREREC=$$SETFLD^VALM1(USRITM,$GET(USREREC),"NUMBER")
+14 SET USREREC=$$SETFLD^VALM1(USRCLNM,$GET(USREREC),"CLASS NAME")
+15 SET USREREC=$$SETFLD^VALM1(USRABB,$GET(USREREC),"ABBREVIATION")
+16 SET USREREC=$$SETFLD^VALM1(USRACT,$GET(USREREC),"ACTIVE")
+17 SET ^TMP("USRCLASS",$JOB,+USRITM,0)=USRLREC
+18 DO RESTORE^VALM10(+USRITM)
DO CNTRL^VALM10(+USRITM,1,VALM("RM"),IOINHI,IOINORM)
+19 QUIT
RESTORE(ITEM) ; Restore video attributes for a single list element
+1 DO RESTORE^VALM10(ITEM)
DO FLDCTRL^VALM10(ITEM,"NUMBER",IOINHI,IOINORM)
+2 QUIT
+3 ;
+4 ;======================================================================
VCLDN(NAME) ;Screen for valid class display names.
+1 NEW LEN
+2 SET LEN=$LENGTH(NAME)
+3 IF (LEN<3)!(LEN>55)
QUIT 0
+4 ;
+5 ;Don't allow "+" or "-", or "|" in the name.
+6 IF (NAME["+")!(NAME["-")!(NAME["|")
QUIT 0
+7 ;
+8 QUIT 1
+9 ;
