cA401 ;^ERROR -> LOKALE VARIABELEN ;%A401; [ 07/16/01 4:03 PM ] ; T0 ;^ERROR -> lokale variabelen ; T1 ; Nr. Datum Uur Omschrijving Q; T2 ; --- ----- --- ------------ -; T3 ;[] = vervolg xxx-[] = lijn verwijderen xxx[] = lijn opladen : .; T4 ;Er zijn geen fouten !;Lijn ; verwijderd.; opgeladen.; T5 ;IINT;%A501;%A508;cA501;cA508; T6 ;[] = alle .[] = zonder : .; ; T0F ;^ERROR -> variables locales ; T1F ; No. Date Heure Description Q; T2F ; --- ----- --- ------------ -; T3F ;[] = suite xxx-[] = radier ligne xxx[] = transférer ligne : .; T4F ;Il n'y a pas d'erreurs !;Ligne ; est radiée.; est transférée.; T5F ;IINT;%A501;%A508;cA501;cA508; T6F ;[] = tous .[] = sans : .; ; T0E ;^ERROR -> lokale variabelen ; T1E ; Nr. Datum Uur Omschrijving Q; T2E ; --- ----- --- ------------ -; T3E ;[] = vervolg xxx-[] = lijn verwijderen xxx[] = lijn opladen : .; T4E ;Er zijn geen fouten !;Lijn ; verwijderd.; opgeladen.; T5E ;IINT;%A501;%A508;cA501;cA508; T6E ;[] = alle .[] = zonder : .; ; ; init 1 S QT=$G(QT),%(1)="",%(2)=$O(^ERROR(%(1)),-1) I '%(2) W !!,$P($T(@("T4"_QT)),";",2),$C(7),! G YZ 10 W !,$P($T(@("T6"_QT)),";",2),$C(8) R %(10) I "-^"[%(10) G YZ:%(10)="-"!(%(10)="^") ; in omgekeerde volgorde 11 W !,$P($T(@("T1"_QT)),";",2),!,$P($T(@("T2"_QT)),";",2) S $Y=0 F Q:$Y>15 S %(1)=$O(^ERROR(%(1)),-1) Q:'%(1) D . Q:'$D(^(%(1),0)) S %(2)=^(0) I %(10)=".",%(2)["" Q . D S(1) ; ; vraagstelling 2 W !,$P($T(@("T3"_QT)),";",2),$C(8) R %(2) I "-^"[%(2) G YZ:%(2)="-"!(%(2)="^") I %(2)="" W ! G 1:'%(1)!'$O(^ERROR(%(1)),-1),11 I '$D(^ERROR(+%(2),0)) G 27 I %(2)?1.N1"-" K ^ERROR(+%(2)) W !,$P($T(@("T4"_QT)),";",3),+%(2),$P($T(@("T4"_QT)),";",4) S:$O(^(0))="" ^(0)=1 G 1:$O(^(0))="",2 I %(2)?1.N G 3 27 W " ???",$C(7) G 2 ; ; opladen 3 K (%) S %=^ERROR(+%(2),0),%(1)=0 W !,"." F S %(1)=$O(^(%(1)+.9999)) Q:%(1)="" D . ;I '(%(1)#1),$D(%(1)) S %(8)=^(%(1)),@%(8)="",%(9)=%(1) F S %(9)=$O(^(%(9))) Q:%(9)\1'=%(1) S @%(8)=@%(8)_^(%(9)) . I '(%(1)#1),$D(%(1)) S %(8)=^(%(1)),%(9)=%(1) F %(10)=1:1:99 I $D(^(%(10)/100+%(9))) S @%(8)=$G(@%(8))_^(%(10)/100+%(9)) . I '$D(@%(8)) S @%(8)="" ;W !,%(8)," has not been set in ^ERROR. Call your system manager!",! . I '(%(1)#10) W "." ; 4 S QT=$G(QT) W $P($T(@("T4"_QT)),";",3),+%(2),$P($T(@("T4"_QT)),";",5),! ZW:$D(QW) QW W !,%,! ; YZ K %(1),%(2),%(3),%(4),%(5),%(6),%(7),%(8),%(9),%(10),%(11),%(99) Q ; S(X) ; Show lines, if %(99)=1 then show detail S %(99)=$G(X,1) W !,$J(%(1),4),?6,$P(%(2),"\"),?16,$P(%(2),"\",2),?25,$E($P(%(2),"\",3),1,23) W ?50,$E($P(%(2),"\",4),1,74-$X),?75,$P(%(2),"\",5) W !?6,$G(^ERROR(%(1),.997)) I $D(^(.998)) S %(3)=^(.998) I $L(%(3)) S %(4)=$G(@%(3)) S:$L(QT)&$L($P(%(4),"\",11)) $P(%(4),"\")=$P(%(4),"\",11) W !?25,%(3),"=",$P(%(4),"\") I $G(%(99)),$D(^ERROR(%(1),.999)) S %(3)=^(.999),%(7)="" F %(4)=0:1:%(3) D . S %(5)=$G(^ERROR(%(1),%(4)+1/1000)),%(6)="" . I $L(%(5)) D .. I $ZV["MSM" S %(6)=$P($P($P(%(5),"^",2),":"),$c(0)) .. I $ZV'["MSM" S %(6)=$P($P(%(5)," "),"^",2) .. I $T(@("T5"_QT))[(";"_%(6)_";") S (%(5),%(6))="" . S:%(6)=%(7) %(6)="" S:%(5)["*XECUTE*" (%(6),%(7))="" . ;I $ZV["MSM",$L(%(6)) S %(11)="TST" S:$E(%(6))="%" %(11)="MGR" I $D(^|%(11)| (%(6))) S %(7)=%(6) S %(12)=$ZU(5) D IN^cQSW(%(11)),FL,IN^cQSW(%(12)) . I $ZV'["MSM",$L(%(6)) I $D(^$ROUTINE(%(6))) S %(7)=%(6) D FL . I $L(%(5)) W ! W:$L(%(6)) ?6,$E(%(6),1,17) W ?25,%(4),"> ",$E(%(5),1,50) W ! SZ Q ; FL X "ZL @%(6) S %(6)=$P($T(@(""T0""_QT)),"";"",2) S:$L(%(6))<7 %(6)=$P($T(+1),"";"",2) S:$L(%(6))<7 %(6)=$P($T(+1),"";"",3)" Q ; ZZ ; 06.08.01 - 17 u 28 * V7.87