source: FOIAVistA/trunk/r/TOOLKIT-AWCM-XD-XIN-XPAR-XQAB-XT-XUC-XUR-ZIN-ZTED/XPAR3.m@ 1757

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

initial load of FOIAVistA 6/30/08 version

File size: 442 bytes
Line 
1XPAR3 ;ISF/RWF - Remove all parameters for a user ;4/1/02 08:42
2 ;;7.3;TOOLKIT;**60**;Apr 25, 1995
3 ;
4DELUSR(ENT) ;Delete all instances of all parameters for a user (entity).
5 ; Should only be called when a user is terminated.
6 N DA,DIK
7 I ENT'?1N.N S ERR=$$ERR^XPARDD(89895007) Q
8 S ENT=ENT_";VA(200,"
9 S DA="",DIK="^XTV(8989.5,"
10 F S DA=$O(^XTV(8989.5,"B",ENT,DA)) Q:DA="" D
11 . D ^DIK
12 Q
Note: See TracBrowser for help on using the repository browser.