| 1 | XUINPCH4 ;ISF/RWF - Post INIT for strong passwords ;03/30/2001 10:41
|
|---|
| 2 | ;;8.0;KERNEL;**180**;Jul 10, 1995
|
|---|
| 3 | ;;
|
|---|
| 4 | Q
|
|---|
| 5 | POST180 ;Patch XU*8*180 post init
|
|---|
| 6 | D KSP,DD,VC
|
|---|
| 7 | Q
|
|---|
| 8 | KSP ;Check site params and reset if needed.
|
|---|
| 9 | D GETS^DIQ(8989.3,"1,","202;203;214","","XUIN")
|
|---|
| 10 | ;# of Attempts
|
|---|
| 11 | S V=5 I $G(XUIN(8989.3,"1,",202))>V S XUIN(8989.3,"1,",202)=V
|
|---|
| 12 | ;Lockout time
|
|---|
| 13 | S V=10*60 I $G(XUIN(8989.3,"1,",203))<V S XUIN(8989.3,"1,",203)=V
|
|---|
| 14 | ;Verify code lifetime
|
|---|
| 15 | S V=90 I $G(XUIN(8989.3,"1,",214))>V S XUIN(8989.3,"1,",214)=V
|
|---|
| 16 | D UPDATE^DIE("E","XUIN")
|
|---|
| 17 | Q
|
|---|
| 18 | DD ;Remove field 20.5 and 9.23 from file 200
|
|---|
| 19 | F DA=9.23,20.5 S DIK="^DD(200,",DA(1)=200 D ^DIK
|
|---|
| 20 | ;Now remove any data for field 20.5
|
|---|
| 21 | S DA=0
|
|---|
| 22 | F S DA=$O(^VA(200,DA)) Q:DA'>0 I $D(^VA(200,DA,20))#2 S $P(^VA(200,DA,20),U,5)=""
|
|---|
| 23 | Q
|
|---|
| 24 | VC ;See the vcne is empty
|
|---|
| 25 | N DA
|
|---|
| 26 | S DA=0
|
|---|
| 27 | F S DA=$O(^VA(200,DA)) Q:DA'>0 S $P(^VA(200,DA,0),"^",8)=""
|
|---|
| 28 | Q
|
|---|
