source: WorldVistAEHR/trunk/r/VA_FILEMAN-ARJT-DI-DD-DM-DT-%DT-%RCR/DITMU1.m@ 789

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

initial load of WorldVistAEHR

File size: 825 bytes
Line 
1DITMU1 ;SFISC/EDE(OHPRD)-SETS DA ARRAY FROM D0,D1 ;
2 ;;22.0;VA FileMan;;Mar 30, 1999
3 ;Per VHA Directive 10-93-142, this routine should not be modified.
4 ;
5 ; This routine sets the DA array from D0,D1 etc. or D0,D1
6 ; etc. from the DA array. If the variable DITMU1=2 it sets
7 ; the DA array, otherwise it sets D0,D1 etc.
8 ;
9 ; The variable DITMU1 will be killed upon exiting this routine.
10 ;
11 ; The entry point KILL kills D0, D1, etc.
12 ;
13START ;
14 NEW I,J
15 I $G(DITMU1)=2 D D0DA
16 E D DAD0
17 K DITMU1
18 Q
19 ;
20DAD0 ;
21 F I=1:1 Q:'$D(DA(I)) S I(99-I)=DA(I)
22 S J=0 F I=0:1 S J=$O(I(J)) Q:J'=+J S @("D"_I)=I(J)
23 S @("D"_I)=DA
24 Q
25 ;
26D0DA ;
27 F I=0:1 Q:'$D(@("D"_I)) S J=I
28 F I=0:1 S DA(J)=@("D"_I) S J=J-1 Q:J<1
29 S DA=@("D"_(I+1))
30 Q
31 ;
32KILL ; EXTERNAL ENTRY POINT - KILL D0, D1, ETC.
33 NEW I
34 F I=0:1 Q:'$D(@("D"_I)) K @("D"_I)
35 Q
Note: See TracBrowser for help on using the repository browser.