|
Last change
on this file since 1474 was 613, checked in by George Lilly, 15 years ago |
|
initial load of WorldVistAEHR
|
|
File size:
825 bytes
|
| Line | |
|---|
| 1 | DITMU1 ;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 | ;
|
|---|
| 13 | START ;
|
|---|
| 14 | NEW I,J
|
|---|
| 15 | I $G(DITMU1)=2 D D0DA
|
|---|
| 16 | E D DAD0
|
|---|
| 17 | K DITMU1
|
|---|
| 18 | Q
|
|---|
| 19 | ;
|
|---|
| 20 | DAD0 ;
|
|---|
| 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 | ;
|
|---|
| 26 | D0DA ;
|
|---|
| 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 | ;
|
|---|
| 32 | KILL ; 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.
