XUINPCH4 ;ISF/RWF - Post INIT for strong passwords ;03/30/2001 10:41
;;8.0;KERNEL;**180**;Jul 10, 1995
;;
Q
POST180 ;Patch XU*8*180 post init
D KSP,DD,VC
Q
KSP ;Check site params and reset if needed.
D GETS^DIQ(8989.3,"1,","202;203;214","","XUIN")
;# of Attempts
S V=5 I $G(XUIN(8989.3,"1,",202))>V S XUIN(8989.3,"1,",202)=V
;Lockout time
S V=10*60 I $G(XUIN(8989.3,"1,",203))<V S XUIN(8989.3,"1,",203)=V
;Verify code lifetime
S V=90 I $G(XUIN(8989.3,"1,",214))>V S XUIN(8989.3,"1,",214)=V
D UPDATE^DIE("E","XUIN")
Q
DD ;Remove field 20.5 and 9.23 from file 200
F DA=9.23,20.5 S DIK="^DD(200,",DA(1)=200 D ^DIK
;Now remove any data for field 20.5
S DA=0
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)=""
Q
VC ;See the vcne is empty
N DA
S DA=0
F S DA=$O(^VA(200,DA)) Q:DA'>0 S $P(^VA(200,DA,0),"^",8)=""
Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HXUINPCH4 894 printed Dec 13, 2024@02:09:50 Page 2
XUINPCH4 ;ISF/RWF - Post INIT for strong passwords ;03/30/2001 10:41
+1 ;;8.0;KERNEL;**180**;Jul 10, 1995
+2 ;;
+3 QUIT
POST180 ;Patch XU*8*180 post init
+1 DO KSP
DO DD
DO VC
+2 QUIT
KSP ;Check site params and reset if needed.
+1 DO GETS^DIQ(8989.3,"1,","202;203;214","","XUIN")
+2 ;# of Attempts
+3 SET V=5
IF $GET(XUIN(8989.3,"1,",202))>V
SET XUIN(8989.3,"1,",202)=V
+4 ;Lockout time
+5 SET V=10*60
IF $GET(XUIN(8989.3,"1,",203))<V
SET XUIN(8989.3,"1,",203)=V
+6 ;Verify code lifetime
+7 SET V=90
IF $GET(XUIN(8989.3,"1,",214))>V
SET XUIN(8989.3,"1,",214)=V
+8 DO UPDATE^DIE("E","XUIN")
+9 QUIT
DD ;Remove field 20.5 and 9.23 from file 200
+1 FOR DA=9.23,20.5
SET DIK="^DD(200,"
SET DA(1)=200
DO ^DIK
+2 ;Now remove any data for field 20.5
+3 SET DA=0
+4 FOR
SET DA=$ORDER(^VA(200,DA))
if DA'>0
QUIT
IF $DATA(^VA(200,DA,20))#2
SET $PIECE(^VA(200,DA,20),U,5)=""
+5 QUIT
VC ;See the vcne is empty
+1 NEW DA
+2 SET DA=0
+3 FOR
SET DA=$ORDER(^VA(200,DA))
if DA'>0
QUIT
SET $PIECE(^VA(200,DA,0),"^",8)=""
+4 QUIT
