source: WorldVistAEHR/trunk/r/CAPACITY_MANAGEMENT_TOOLS-KMPD-KMPL/KMPDU4.m@ 699

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

initial load of WorldVistAEHR

File size: 1.0 KB
Line 
1KMPDU4 ;OAK/RAK - CM Tools Utilities ;2/17/04 09:54
2 ;;2.0;CAPACITY MANAGEMENT TOOLS;;Mar 22, 2002
3 ;
4ASSCROU(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
Note: See TracBrowser for help on using the repository browser.