source:
WorldVistAEHR/trunk/r/TOOLKIT-AWCM-XD-XIN-XPAR-XQAB-XT-XUC-XUR-ZIN-ZTED/XPAR3.m
Last change on this file was 613, checked in by , 15 years ago | |
---|---|
File size: 442 bytes |
Line | |
---|---|
1 | XPAR3 ;ISF/RWF - Remove all parameters for a user ;4/1/02 08:42 |
2 | ;;7.3;TOOLKIT;**60**;Apr 25, 1995 |
3 | ; |
4 | DELUSR(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.