| [613] | 1 | XUSG1 ;SF-ISC/STAFF - SIGNON from GUI screen ;9/28/94 14:54
|
|---|
| 2 | ;;8.0;KERNEL;;Jul 10, 1995
|
|---|
| 3 | Q
|
|---|
| 4 | USERG ;Call from in OK Callback
|
|---|
| 5 | K XUTEXT N WIN,FOCUS
|
|---|
| 6 | I '$L($P(XUSER(1),U,2)) G CHVC
|
|---|
| 7 | I +$P(XOPT,U,15),(XUSER(1)+$P(XOPT,U,15)'>+$H) G CHVC
|
|---|
| 8 | S XUM=$$USER^XUS1A() G:XUM NO^XUSG
|
|---|
| 9 | D GET^XGCLOAD("XU XUS W2","WIN(""XUS2"")") ;Build XUTEXT message into window
|
|---|
| 10 | F J=0:0 S J=$O(XUTEXT(J)) Q:J'>0 D
|
|---|
| 11 | . S N="LAB"_J M WIN("XUS2","G",N)=WIN("XUS2","G","LAB1")
|
|---|
| 12 | . S WIN("XUS2","G",N,"TITLE")=$E(XUTEXT(J),2,255)
|
|---|
| 13 | . S $P(WIN("XUS2","G",N,"POS"),",",2)=(J-1*20+10)
|
|---|
| 14 | . Q
|
|---|
| 15 | D DIVSET
|
|---|
| 16 | D S^XG("XUS","ACTIVE",0),M^XG("XUS2",$NA(WIN("XUS2")))
|
|---|
| 17 | D SD^XG($PD,"FOCUS",FOCUS)
|
|---|
| 18 | D ESTA^XG(),K^XG("XUS2"),DUZ^XUS1A
|
|---|
| 19 | Q
|
|---|
| 20 | DIVSET ;Setup the DIV list box
|
|---|
| 21 | S WIN("XUS2","G","DIV","VISIBLE")=0,FOCUS="XUS2,OK" K WIN("XUS2","G","DIV","CHOICE")
|
|---|
| 22 | S Y=$O(^VA(200,DUZ,2,0)),X=$O(^(Y)) I X>0,$D(^DIC(4,0)) D
|
|---|
| 23 | . S WIN("XUS2","G","DIV","VISIBLE")=1,FOCUS="XUS2,DIV"
|
|---|
| 24 | . S J=0 F S J=$O(^VA(200,DUZ,2,J)) Q:J'>0 D
|
|---|
| 25 | . . S WIN("XUS2","G","DIV","CHOICE","A"_J)=$P($G(^DIC(4,J,0)),U)
|
|---|
| 26 | . . Q
|
|---|
| 27 | . S DUZ(2)=Y,WIN("XUS2","G","DIV","VALUE","A"_Y)=""
|
|---|
| 28 | . Q
|
|---|
| 29 | Q
|
|---|
| 30 | OK2 ;OK button from welcome
|
|---|
| 31 | D ESTO^XG
|
|---|
| 32 | Q
|
|---|
| 33 | DIV ;Select a div
|
|---|
| 34 | N WNM,G S WNM="XUS2",G="G"
|
|---|
| 35 | Q:'@XGWIN@(WNM,G,"DIV","CHANGED")
|
|---|
| 36 | S X=$O(@XGWIN@(WNM,G,"DIV","VALUE","")),DUZ(2)=+$E(X,2,9)
|
|---|
| 37 | Q
|
|---|
| 38 | CHVC ;The Verify code needs changing
|
|---|
| 39 | N XUJ
|
|---|
| 40 | S XUJ(1)="SORRY you can not use this device right now.",XUJ(2)="Your VERIFY CODE needs to be changed.",XUJ(3)="Please sign on from a regular terminal to do this."
|
|---|
| 41 | S XUM=$$OK^XGLMSG("I",.XUJ,60),XUM=4,DUZ=0 G NO^XUSG
|
|---|
| 42 | ;D CVC^XUS2 G:$D(DUOUT) H^XUS S XUSER(1)=^VA(200,DUZ,.1)
|
|---|
| 43 | Q
|
|---|
| 44 | NEXT ;
|
|---|
| 45 | G NEXT^XUS1
|
|---|
| 46 | ;
|
|---|
| 47 | ;
|
|---|
| 48 | DD(Y) Q $S($E(Y,4,5):$P("Jan^Feb^Mar^Apr^May^Jun^Jul^Aug^Sep^Oct^Nov^Dec","^",+$E(Y,4,5))_" ",1:"")_$S($E(Y,6,7):+$E(Y,6,7)_",",1:"")_($E(Y,1,3)+1700)
|
|---|
| 49 | Q
|
|---|
