XPAR3.m

XPAR3 ;ISF/RWF - Remove all parameters for a user ;4/1/02  08:42 [ 04/02/2003   8:47 AM ]

 ;;7.3;TOOLKIT;**1001**;APR 1, 2003

 ;;7.3;TOOLKIT;**60**;Apr 25, 1995

 ;

DELUSR(ENT) ;Delete all instances of all parameters for a user (entity).

 ; Should only be called when a user is terminated.

        N DA,DIK

        I ENT'?1N.N S ERR=$$ERR^XPARDD(89895007) Q

        S ENT=ENT_";VA(200,"

        S DA="",DIK="^XTV(8989.5,"

        F  S DA=$O(^XTV(8989.5,"B",ENT,DA)) Q:DA=""  D

        . D ^DIK

        Q

XPAR3     ;ISF/RWF - Remove all parameters for a user ;4/1/02  08:42 [ 04/02/2003   8:47 AM ]

 +1       ;;7.3;TOOLKIT;**1001**;APR 1, 2003

 +2       ;;7.3;TOOLKIT;**60**;Apr 25, 1995

 +3       ;

DELUSR(ENT) ;Delete all instances of all parameters for a user (entity).

 +1       ; Should only be called when a user is terminated.

 +2        NEW DA,DIK

 +3        IF ENT'?1N.N

               SET ERR=$$ERR^XPARDD(89895007)

               QUIT 

 +4        SET ENT=ENT_";VA(200,"

 +5        SET DA=""

           SET DIK="^XTV(8989.5,"

 +6        FOR 

               SET DA=$ORDER(^XTV(8989.5,"B",ENT,DA))

               IF DA=""

                   QUIT 

               Begin DoDot:1

 +7                DO ^DIK

               End DoDot:1

 +8        QUIT