| 1 | KMPDU4 ;OAK/RAK - CM Tools Utilities ;2/17/04 09:54
|
|---|
| 2 | ;;2.0;CAPACITY MANAGEMENT TOOLS;;Mar 22, 2002
|
|---|
| 3 | ;
|
|---|
| 4 | ASSCROU(KMPDRES,KMPDIEN,KMPDROU) ;-- add/remove Associate Routines to file 8972.1
|
|---|
| 5 | ;-----------------------------------------------------------------------
|
|---|
| 6 | ; KMPDIEN... Ien for file #8972.1 (CM CODE EVALUATOR).
|
|---|
| 7 | ; KMPDROU(). Array containing list of routines for this Ien.
|
|---|
| 8 | ;-----------------------------------------------------------------------
|
|---|
| 9 | ;
|
|---|
| 10 | K KMPDRES
|
|---|
| 11 | I '$G(KMPDIEN) S KMPDRES(0)="[IEN not defined]" Q
|
|---|
| 12 | I '$D(^KMPD(8972.1,+KMPDIEN,0)) D Q
|
|---|
| 13 | .S KMPDRES(0)="[IEN #"_KMPDIEN_" not defined for this file]"
|
|---|
| 14 | ;
|
|---|
| 15 | N DA,DIK,FDA,I,MESSAGE,ZIEN
|
|---|
| 16 | ;
|
|---|
| 17 | ; delete all entries in ASSOCIATED ROUTINE multiple (#11)
|
|---|
| 18 | S DA=0,DA(1)=+KMPDIEN,DIK="^KMPD(8972.1,"_+KMPDIEN_",11,"
|
|---|
| 19 | F S DA=$O(^KMPD(8972.1,+KMPDIEN,11,DA)) Q:'DA D ^DIK
|
|---|
| 20 | ;
|
|---|
| 21 | ; add routines to list
|
|---|
| 22 | S I=""
|
|---|
| 23 | F S I=$O(KMPDROU(I)) Q:I="" I KMPDROU(I)]"" D
|
|---|
| 24 | .K FDA
|
|---|
| 25 | .S FDA($J,8972.111,"+2,"_KMPDIEN_",",.01)=KMPDROU(I)
|
|---|
| 26 | .D UPDATE^DIE("","FDA($J)",.ZIEN,"MESSAGE")
|
|---|
| 27 | ;
|
|---|
| 28 | S KMPDRES(0)="<Update Complete>"
|
|---|
| 29 | ;
|
|---|
| 30 | Q
|
|---|
