source: WorldVistAEHR/trunk/r/KERNEL-XU-A4A7-USC-XG-XLF-XNOA-XPD-XQ-XVIR-ZI-ZOSF-ZOSV-ZT-ZU-%Z-XIP--XQAB--XUC--XUR--ZIN--ZTED/XUINPCH4.m@ 701

Last change on this file since 701 was 613, checked in by George Lilly, 15 years ago

initial load of WorldVistAEHR

File size: 866 bytes
Line 
1XUINPCH4 ;ISF/RWF - Post INIT for strong passwords ;03/30/2001 10:41
2 ;;8.0;KERNEL;**180**;Jul 10, 1995
3 ;;
4 Q
5POST180 ;Patch XU*8*180 post init
6 D KSP,DD,VC
7 Q
8KSP ;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
18DD ;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
24VC ;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
Note: See TracBrowser for help on using the repository browser.