TI98 ;Conversie intrastat '98 ;TI98;  [ 02/05/98  4:39 PM ]
 ;
1 W !!,$P($T(+1),U,2)
11 S HQ=Q,XQ="" I $L($G(boot)) S XQ=$G(^cLOG(boot,"Q"))
13 I '$L(XQ) S XQ=^cLOG("Q")
 ;
2 F I=1:1 S Q=$P(XQ,D,I) Q:'$L(Q)  I Q'="SYS" D
 . K @("^"_Q_"INTR")@(0) W !,Q
 . K @("^"_Q_"INTR")@("%F",1.1),^(2.1),^(3.1),^(4.1),^(5.1)
 . K @("^"_Q_"INTR")@("%P",0) F J=1:1:299 K ^(J)
 . I '$D(^("P")) Q
 . S PAR=^("P")
 . F J=13,23,24 S $P(PAR,D,J)=1
 . F J=16,26 S $P(PAR,D,J)=2
 . S ^("P")=PAR
 . K @("^"_Q_"BA")@("MENU",130)
 . M @("^"_Q_"BA")=^xBA
 . M @("^"_Q_"INTR")=^xINTR
 . M ^DMS(Q)=^DMS("x")
 . D DMS^cAN000("UQC","USC","DMS"),S1^cAN002(UQC,USC)
 . D DMS^cAN000("UQC","USC","FORM") S UREF=^DMC(UQC,USC,"DATA","REF")
 . S SW=0,UI1=0 F  S UI1=$O(@UREF) Q:UI1=""  D
 .. I $P(^(UI1,0),D,2)="IntraStat" S SW=1,FMT=$P(^(0),D)
 . I 'SW D
 .. S SW2=1,SW3=2,UFU="O",A(1)=D,A(2)=D
 .. S B(1)="\IntraStat\\^I\\^M^J\",B(2)=D
 .. S UI1=$$NR^cAN000,FMT=$P(B(1),D)
 .. D U^cAN000
 . S $P(PAR,D,33)=FMT,@("^"_Q_"INTR")@("%P","P")=PAR
 ;
9 K ^xBA,^xINTR,^DMS("x") S Q=HQ
 ;
YZ Q
 ;
ZZ ; 05.02.98 - 16 u 35