15 lines
522 B
Mathematica
15 lines
522 B
Mathematica
DGPT702 ;ALB/MTC - Process 702 transmission ; 16 NOV 92
|
|
;;5.3;Registration;;Aug 13, 1993
|
|
;
|
|
EN ;
|
|
S DGPTSTR=^TMP("AEDIT",$J,NODE,SEQ)
|
|
S DGPTGD1=$E(DGPTSTR,41,47),DGPTGD2=$E(DGPTSTR,48,54),DGPTGD3=$E(DGPTSTR,55,61),DGPTGD4=$E(DGPTSTR,62,68),DGPTGD5=$E(DGPTSTR,69,75),DGPTGD6=$E(DGPTSTR,76,82),DGPTGD7=$E(DGPTSTR,83,89),DGPTGD8=$E(DGPTSTR,90,96),DGPTGD9=$E(DGPTSTR,97,103)
|
|
DIAG ;
|
|
S DGPTERC=0 D ^DGPT70DI
|
|
I 'DGPTERC W "."
|
|
;
|
|
EXIT ;
|
|
K DGPTGD1,DGPTGD2,DGPTGD3,DGPTGD4,DGPTGD5,DGPTGD6,DGPTGD7,DGPTGD8,DGPTGD9,DGPTSTR
|
|
Q
|
|
;
|