| 1 | USRCLASS ; SLC/JER - User Class Management actions ;08/17/1999
|
|---|
| 2 | ;;1.0;AUTHORIZATION/SUBSCRIPTION;**7,11**;Jun 20, 1997
|
|---|
| 3 | EDIT ; Edit user classes
|
|---|
| 4 | N USRDA,USRDATA,USREXPND,USRI,USRSTAT,DIROUT,USRCHNG,USRLST
|
|---|
| 5 | D:'$D(VALMY) EN^VALM2(XQORNOD(0)) S USRI=0
|
|---|
| 6 | F S USRI=$O(VALMY(USRI)) Q:+USRI'>0 D Q:$D(DIROUT)
|
|---|
| 7 | . S USRDATA=$S(VALMAR="^TMP(""USRCLASS"",$J)":$G(^TMP("USRCLASSIDX",$J,USRI)),1:$G(^TMP("USREXPIDX",$J,USRI)))
|
|---|
| 8 | . W !!,"Editing #",+USRDATA,!
|
|---|
| 9 | . S USRDA=+$P(USRDATA,U,2) D EDIT1
|
|---|
| 10 | . I +$G(USRCHNG) S USRLST=$S($L($G(USRLST)):$G(USRLST)_", ",1:"")_USRI
|
|---|
| 11 | . I $D(USRDATA) D UPDATE^USRL(USRDATA)
|
|---|
| 12 | W !,"Refreshing the list."
|
|---|
| 13 | S VALMSG="** "_$S($L($G(USRLST)):"Item"_$S($L($G(USRLST),",")>1:"s ",1:" ")_$G(USRLST),1:"Nothing")_" Edited **"
|
|---|
| 14 | K VALMY S VALMBCK="R"
|
|---|
| 15 | Q
|
|---|
| 16 | EDIT1 ; Single record edit
|
|---|
| 17 | ; Receives USRDA
|
|---|
| 18 | N DA,DIE,DR
|
|---|
| 19 | I '+$G(USRDA) W !,"No Classes selected." H 2 Q
|
|---|
| 20 | S DIE="^USR(8930,",DA=USRDA,DR="[USR CLASS STRUCTURE EDIT]"
|
|---|
| 21 | D FULL^VALM1,^DIE
|
|---|
| 22 | S USRCHNG=1
|
|---|
| 23 | Q
|
|---|
| 24 | EXPAND ; Expand/Collapse user class hierarchy display
|
|---|
| 25 | N USRDNM,USRLNM,USRSTAT
|
|---|
| 26 | D:'$D(VALMY) EN^VALM2(XQORNOD(0))
|
|---|
| 27 | I $D(VALMY) D EC^USRECCL(.VALMY)
|
|---|
| 28 | W !,"Refreshing the list."
|
|---|
| 29 | ;S VALMSG="** "_$S($L($G(USRLST)):"Item"_$S($L($G(USRLST),",")>1:"s ",1:" ")_$G(USRLST),1:"Nothing")_" Edited **"
|
|---|
| 30 | K VALMY S VALMBCK="R"
|
|---|
| 31 | ;
|
|---|
| 32 | S USRSTAT=+$P($G(^TMP("USRCLASS",$J,0)),U,2)
|
|---|
| 33 | S USRDNM=$P($G(^TMP("USRCLASS",$J,0)),U,3)
|
|---|
| 34 | S USRLNM=$P($G(^TMP("USRCLASS",$J,0)),U,4)
|
|---|
| 35 | ;
|
|---|
| 36 | S VALMCNT=+$G(@VALMAR@(0))
|
|---|
| 37 | S VALMBCK="R"
|
|---|
| 38 | Q
|
|---|
| 39 | CREATE ; Class constructor
|
|---|
| 40 | N USRCREAT
|
|---|
| 41 | N DIC,DLAYGO,X,Y,USRSTAT,USRDNM,USRLNM D FULL^VALM1
|
|---|
| 42 | S (DIC,DLAYGO)=8930,DIC(0)="AELMQ",DIC("A")="Select CLASS: "
|
|---|
| 43 | D ^DIC Q:+Y'>0
|
|---|
| 44 | S USRCREAT=+$P(Y,U,3)
|
|---|
| 45 | S DA=+Y,DIE=DIC,DIE("NO^")="BACK",DR="[USR CLASS STRUCTURE EDIT]"
|
|---|
| 46 | D ^DIE
|
|---|
| 47 | S USRSTAT=+$P($G(^TMP("USRCLASS",$J,0)),U,2)
|
|---|
| 48 | S USRDNM=$P($G(^TMP("USRCLASS",$J,0)),U,3)
|
|---|
| 49 | S USRLNM=$P($G(^TMP("USRCLASS",$J,0)),U,4)
|
|---|
| 50 | I 'USRCREAT Q ; Don't rebuild without cause
|
|---|
| 51 | W !,"Rebuilding main class list."
|
|---|
| 52 | D BUILD^USRCLST(USRSTAT,USRDNM,USRLNM)
|
|---|
| 53 | S VALMCNT=+$G(@VALMAR@(0))
|
|---|
| 54 | S VALMBCK="R"
|
|---|
| 55 | Q
|
|---|
| 56 | MEMBERS ; List Members of classes and their subclasses
|
|---|
| 57 | N USRDA,USRDATA,USREXPND,USRI,USRSTAT,VALMCNT,DIROUT
|
|---|
| 58 | D:'$D(VALMY) EN^VALM2(XQORNOD(0)) S USRI=0
|
|---|
| 59 | F S USRI=$O(VALMY(USRI)) Q:+USRI'>0 D Q:$D(DIROUT)
|
|---|
| 60 | . S USRDATA=$S(VALMAR="^TMP(""USRCLASS"",$J)":$G(^TMP("USRCLASSIDX",$J,USRI)),1:$G(^TMP("USREXPIDX",$J,USRI)))
|
|---|
| 61 | . W !!,"Listing Members of #",+USRDATA,!
|
|---|
| 62 | . S USRDA=+$P(USRDATA,U,2) D EN^VALM("USR LIST MEMBERSHIP BY CLASS")
|
|---|
| 63 | . I $D(USRDATA) D UPDATE^USRL(USRDATA)
|
|---|
| 64 | W !,"Refreshing the list."
|
|---|
| 65 | S VALMSG="Members listed"
|
|---|
| 66 | K VALMY S VALMBCK="R"
|
|---|
| 67 | Q
|
|---|
