TIUPRPN8 ;SLC/MAM - Print SF 509-Progress Notes, Cont ;11/10/04 [1/4/05 12:17pm]
;;1.0;TEXT INTEGRATION UTILITIES;**100,176,157,182,224**;Jun 20, 1997;Build 7
;
SIGBLK(TIUFOOT,TIUMISC,TIUCONT1,TIUCONT,TIUSIG,TIUROOT) ; Print signature block info
; Requires array TIUFOOT, requires TIUMISC
; Requires TIUCONT1
; Receives TIUCONT by ref (req'd)
; Receives array TIUSIG by ref, required.
; Requires TIUROOT
N TIUDA,TIUFLAG
S TIUCONT=1,TIUDA=$P(TIUMISC,U,3),TIUFLAG=$P(TIUMISC,U)
;S TIUGROOT=$NA(^TMP("TIULQ",$J,TIUDA))
; -- P182 Don't marked admin signed notes as draft:
I '+TIUSIG("SIGNDATE"),'+TIUSIG("ADMINCDT") D Q:'TIUCONT
. W "**DRAFT COPY - DRAFT COPY -- ABOVE NOTE IS UNSIGNED--"
. W " DRAFT COPY - DRAFT COPY**",!
. S TIUCONT=$$SETCONT^TIUPRPN1(.TIUFOOT,TIUMISC,TIUCONT1,0,$G(TIUROOT))
;I TIUSIG("SIGNEDBY")]"",(+TIUSIG("SIGNEDBY")'=+TIUSIG("AUTHOR")) D
;. W ?21,"Author: ",$P(TIUSIG("AUTHOR"),";",2),!
I +TIUSIG("SIGNDATE") D Q:'TIUCONT
. S TIUCONT=$$SETCONT^TIUPRPN1(.TIUFOOT,TIUMISC,TIUCONT1,0,$G(TIUROOT)) Q:'TIUCONT
. W ?18,"Signed by:",$S($P(TIUSIG("SIGNMODE"),";")="C":" /s/ ",1:" /es/ "),?34,$S(TIUSIG("SIGNNAME")]"":TIUSIG("SIGNNAME"),1:$P(TIUSIG("SIGNEDBY"),";",2))
. I $L(TIUSIG("SIGTITL"))>45 D
. . N TIUFT
. . D WRAP^TIUFLD(TIUSIG("SIGTITL"),45)
. . W !?34,$G(TIUFT(1))
. . W !?39,$G(TIUFT(2))
. I $L(TIUSIG("SIGTITL"))<46,TIUSIG("SIGTITL")]"" W !?34,TIUSIG("SIGTITL")
. W !?34,$$DATE^TIULS(+TIUSIG("SIGNDATE"),"MM/DD/CCYY HR:MIN")
. I '+$G(TIUFLAG)!($E(IOST)="C-") D
. . I $P($$BEEP^TIULC1(+TIUSIG("SIGNEDBY")),U) W !?34,"Analog Pager: ",$P($$BEEP^TIULC1(+TIUSIG("SIGNEDBY")),U)
. . I $P($$BEEP^TIULC1(+TIUSIG("SIGNEDBY")),U,2) W !?34,"Digital Pager: ",$P($$BEEP^TIULC1(+TIUSIG("SIGNEDBY")),U,2)
I $P(TIUSIG("SIGNMODE"),";")="C" D Q:'TIUCONT
. S TIUCONT=$$SETCONT^TIUPRPN1(.TIUFOOT,TIUMISC,TIUCONT1,0,$G(TIUROOT)) Q:'TIUCONT
. N TIUONCH
. S TIUONCH=$P(TIUSIG("SIGCHRT"),";",2)
. I TIUONCH']"" S TIUONCH=$P(TIUSIG("COSCHRT"),";",2)
. W !?2,"Marked signed on chart by:",?34,$G(TIUONCH)
; -- If signer is not author, write "for the author":
; P182 SIGNEDBY may =";" and follow null even when no signer:
;I TIUSIG("SIGNEDBY")]"",(+TIUSIG("SIGNEDBY")'=+TIUSIG("AUTHOR")) D
I TIUSIG("SIGNEDBY")]"",(TIUSIG("SIGNEDBY")'=";"),(+TIUSIG("SIGNEDBY")'=+TIUSIG("AUTHOR")) D
. N TIUSIGTL
. W !?34,"for ",$P(TIUSIG("AUTHOR"),";",2)
. S TIUSIGTL=$$GET1^DIQ(200,$P(TIUSIG("AUTHOR"),";",1),20.3)
. I $D(TIUSIGTL) D
. . N TIUFT
. . D WRAP^TIUFLD(TIUSIGTL,45)
. . W !?34,$G(TIUFT(1))
. . W !?39,$G(TIUFT(2))
I $G(@TIUROOT@(.05,"E"))="UNCOSIGNED" D
. W !?34,"**REQUIRES COSIGNATURE**",!
;I +$G(TIUADD) S TIUGROOT=$NA(^TMP("TIULQ",$J,TIUDA,"ZADD",TIUADD))
I +$D(@TIUROOT@("EXTRASGNR")) D Q:'TIUCONT ;**100** added the quit
. N TIUI S TIUI=0
. S TIUCONT=$$SETCONT^TIUPRPN1(.TIUFOOT,TIUMISC,TIUCONT1,0,$G(TIUROOT)) Q:'TIUCONT
. F S TIUI=$O(@TIUROOT@("EXTRASGNR",TIUI)) Q:'TIUI D
. . W !!?4,"Receipt Acknowledged By:"
. . ;VMP/ELR P224 ADDED code to print awaiting signature and expected additional signer name
. . I +$G(@TIUROOT@("EXTRASGNR",TIUI,"DATE"))'>0 D Q
. . . W !,?4,"* AWAITING SIGNATURE *",?30,$G(@TIUROOT@("EXTRASGNR",TIUI,"EXPNAME"))
. . I TIUI>1 S TIUCONT=$$SETCONT^TIUPRPN1(.TIUFOOT,TIUMISC,TIUCONT1,0,$G(TIUROOT)) Q:'TIUCONT
. . W !?29,"/es/ ",$G(@TIUROOT@("EXTRASGNR",TIUI,"NAME"))
. . I $L($G(@TIUROOT@("EXTRASGNR",TIUI,"TITLE")))>45 D
. . . N TIUFT
. . . D WRAP^TIUFLD($G(@TIUROOT@("EXTRASGNR",TIUI,"TITLE")),45)
. . . W !?34,$G(TIUFT(1))
. . . W !?39,$G(TIUFT(2))
. . I $L($G(@TIUROOT@("EXTRASGNR",TIUI,"TITLE")))<46 W !?34,$G(@TIUROOT@("EXTRASGNR",TIUI,"TITLE"))
. . I $G(@TIUROOT@("EXTRASGNR",TIUI,"EXTRA")),$G(@TIUROOT@("EXTRASGNR",TIUI,"EXPIEN"))'=$G(@TIUROOT@("EXTRASGNR",TIUI,"EXTRA")) D
. . . W !?30,"for ",$P($G(@TIUROOT@("EXTRASGNR",TIUI,"EXPNAME")),",",2)
. . . W " ",$P($G(@TIUROOT@("EXTRASGNR",TIUI,"EXPNAME")),",")
. . W !?34,$$DATE^TIULS($G(@TIUROOT@("EXTRASGNR",TIUI,"DATE")),"MM/DD/CCYY HR:MIN")
. . I '+$G(TIUFLAG)!($E(IOST)="C-") D
. . . N BEEP
. . . S BEEP=$$BEEP^TIULC1(+$G(@TIUROOT@("EXTRASGNR",TIUI,"EXTRA")))
. . . I +BEEP W !?34,"Analog Pager: ",$P(BEEP,U)
. . . I +$P(BEEP,U,2) W !?34,"Digital Pager: ",$P(BEEP,U,2)
. ;K @TIUROOT@("EXTRASGNR") ;**100** commented out
;I +TIUSIG("COSGDATE"),(+TIUSIG("COSGEDBY")'=+TIUSIG("SIGNEDBY")) D Q:'TIUCONT
I +TIUSIG("COSGDATE") D Q:'TIUCONT
. S TIUCONT=$$SETCONT^TIUPRPN1(.TIUFOOT,TIUMISC,TIUCONT1,0,$G(TIUROOT)) Q:'TIUCONT
. W !!?16,"Cosigned by:",$S($P(TIUSIG("COSGMODE"),";")="C":" /s/ ",1:" /es/ "),?34,$S(TIUSIG("COSGNAME")]"":TIUSIG("COSGNAME"),1:$P(TIUSIG("COSGEDBY"),";",2))
. I $L(TIUSIG("COSGTITL"))>45 D
. . N TIUFT
. . D WRAP^TIUFLD(TIUSIG("COSGTITL"),45)
. . W !?34,$G(TIUFT(1))
. . W !?39,$G(TIUFT(2))
. I $L(TIUSIG("COSGTITL"))<46 W !?34,TIUSIG("COSGTITL")
. W !?34,$$DATE^TIULS(+TIUSIG("COSGDATE"),"MM/DD/CCYY HR:MIN")
. I '+$G(TIUFLAG)!($E(IOST)="C-") D
. . I $P($$BEEP^TIULC1(+TIUSIG("COSGEDBY")),U) W !?34,"Analog Pager: ",$P($$BEEP^TIULC1(+TIUSIG("COSGEDBY")),U)
. . I $P($$BEEP^TIULC1(+TIUSIG("COSGEDBY")),U,2) W !?34,"Digital Pager: ",$P($$BEEP^TIULC1(+TIUSIG("COSGEDBY")),U,2)
;I +TIUSIG("COSCHRT"),$P(TIUSIG("COSGMODE"),";")="C" D Q:'TIUCONT
I $P(TIUSIG("COSGMODE"),";")="C" D Q:'TIUCONT
. S TIUCONT=$$SETCONT^TIUPRPN1(.TIUFOOT,TIUMISC,TIUCONT1,0,$G(TIUROOT)) Q:'TIUCONT
. W !,"Marked cosigned on chart by:",?34,$P(TIUSIG("COSCHRT"),";",2)
W !
;K TIUCONT1 ; kills the cont on next page msgs since no longer in middle
;of a note. **100** moved down to amend code
AMEND ; signature blocks of amender
;N TIUY S TIUY=4 ;I don't think we need TIUY anymore **100**
I '$G(@TIUROOT@(1601,"I")) K TIUCONT1 Q
S TIUCONT=$$SETCONT^TIUPRPN1(.TIUFOOT,TIUMISC,TIUCONT1,0,$G(TIUROOT))
K TIUCONT1 Q:'TIUCONT
I +$G(@TIUROOT@(1601,"I")) D
. W !!?12,"Amendment Filed:",?34,$$DATE^TIULS(@TIUROOT@(1601,"I"),"MM/DD/CCYY HR:MIN")
. I $G(@TIUROOT@(1603,"E"))']"" D
. . W !!?29 F TIUI=1:1:40 W "_"
. . W !?29,$$SIGNAME^TIULS(@TIUROOT@(1602,"I"))
. . W !?29,$$SIGTITL^TIULS(@TIUROOT@(1602,"I"))
. I $G(@TIUROOT@(1604,"E"))]"" D
. . W !?29,"/es/",?34,@TIUROOT@(1604,"E")
. . W !?34,@TIUROOT@(1605,"E")
Q
;
TIUPRPN8 ;SLC/MAM - Print SF 509-Progress Notes, Cont ;11/10/04 [1/4/05 12:17pm]
+1 ;;1.0;TEXT INTEGRATION UTILITIES;**100,176,157,182,224**;Jun 20, 1997;Build 7
+2 ;
SIGBLK(TIUFOOT,TIUMISC,TIUCONT1,TIUCONT,TIUSIG,TIUROOT) ; Print signature block info
+1 ; Requires array TIUFOOT, requires TIUMISC
+2 ; Requires TIUCONT1
+3 ; Receives TIUCONT by ref (req'd)
+4 ; Receives array TIUSIG by ref, required.
+5 ; Requires TIUROOT
+6 NEW TIUDA,TIUFLAG
+7 SET TIUCONT=1
SET TIUDA=$PIECE(TIUMISC,U,3)
SET TIUFLAG=$PIECE(TIUMISC,U)
+8 ;S TIUGROOT=$NA(^TMP("TIULQ",$J,TIUDA))
+9 ; -- P182 Don't marked admin signed notes as draft:
+10 IF '+TIUSIG("SIGNDATE")
IF '+TIUSIG("ADMINCDT")
Begin DoDot:1
+11 WRITE "**DRAFT COPY - DRAFT COPY -- ABOVE NOTE IS UNSIGNED--"
+12 WRITE " DRAFT COPY - DRAFT COPY**",!
+13 SET TIUCONT=$$SETCONT^TIUPRPN1(.TIUFOOT,TIUMISC,TIUCONT1,0,$GET(TIUROOT))
End DoDot:1
IF 'TIUCONT
QUIT
+14 ;I TIUSIG("SIGNEDBY")]"",(+TIUSIG("SIGNEDBY")'=+TIUSIG("AUTHOR")) D
+15 ;. W ?21,"Author: ",$P(TIUSIG("AUTHOR"),";",2),!
+16 IF +TIUSIG("SIGNDATE")
Begin DoDot:1
+17 SET TIUCONT=$$SETCONT^TIUPRPN1(.TIUFOOT,TIUMISC,TIUCONT1,0,$GET(TIUROOT))
IF 'TIUCONT
QUIT
+18 WRITE ?18,"Signed by:",$SELECT($PIECE(TIUSIG("SIGNMODE"),";")="C":" /s/ ",1:" /es/ "),?34,$SELECT(TIUSIG("SIGNNAME")]"":TIUSIG("SIGNNAME"),1:$PIECE(TIUSIG("SIGNEDBY"),";",2))
+19 IF $LENGTH(TIUSIG("SIGTITL"))>45
Begin DoDot:2
+20 NEW TIUFT
+21 DO WRAP^TIUFLD(TIUSIG("SIGTITL"),45)
+22 WRITE !?34,$GET(TIUFT(1))
+23 WRITE !?39,$GET(TIUFT(2))
End DoDot:2
+24 IF $LENGTH(TIUSIG("SIGTITL"))<46
IF TIUSIG("SIGTITL")]""
WRITE !?34,TIUSIG("SIGTITL")
+25 WRITE !?34,$$DATE^TIULS(+TIUSIG("SIGNDATE"),"MM/DD/CCYY HR:MIN")
+26 IF '+$GET(TIUFLAG)!($EXTRACT(IOST)="C-")
Begin DoDot:2
+27 IF $PIECE($$BEEP^TIULC1(+TIUSIG("SIGNEDBY")),U)
WRITE !?34,"Analog Pager: ",$PIECE($$BEEP^TIULC1(+TIUSIG("SIGNEDBY")),U)
+28 IF $PIECE($$BEEP^TIULC1(+TIUSIG("SIGNEDBY")),U,2)
WRITE !?34,"Digital Pager: ",$PIECE($$BEEP^TIULC1(+TIUSIG("SIGNEDBY")),U,2)
End DoDot:2
End DoDot:1
IF 'TIUCONT
QUIT
+29 IF $PIECE(TIUSIG("SIGNMODE"),";")="C"
Begin DoDot:1
+30 SET TIUCONT=$$SETCONT^TIUPRPN1(.TIUFOOT,TIUMISC,TIUCONT1,0,$GET(TIUROOT))
IF 'TIUCONT
QUIT
+31 NEW TIUONCH
+32 SET TIUONCH=$PIECE(TIUSIG("SIGCHRT"),";",2)
+33 IF TIUONCH']""
SET TIUONCH=$PIECE(TIUSIG("COSCHRT"),";",2)
+34 WRITE !?2,"Marked signed on chart by:",?34,$GET(TIUONCH)
End DoDot:1
IF 'TIUCONT
QUIT
+35 ; -- If signer is not author, write "for the author":
+36 ; P182 SIGNEDBY may =";" and follow null even when no signer:
+37 ;I TIUSIG("SIGNEDBY")]"",(+TIUSIG("SIGNEDBY")'=+TIUSIG("AUTHOR")) D
+38 IF TIUSIG("SIGNEDBY")]""
IF (TIUSIG("SIGNEDBY")'=";")
IF (+TIUSIG("SIGNEDBY")'=+TIUSIG("AUTHOR"))
Begin DoDot:1
+39 NEW TIUSIGTL
+40 WRITE !?34,"for ",$PIECE(TIUSIG("AUTHOR"),";",2)
+41 SET TIUSIGTL=$$GET1^DIQ(200,$PIECE(TIUSIG("AUTHOR"),";",1),20.3)
+42 IF $DATA(TIUSIGTL)
Begin DoDot:2
+43 NEW TIUFT
+44 DO WRAP^TIUFLD(TIUSIGTL,45)
+45 WRITE !?34,$GET(TIUFT(1))
+46 WRITE !?39,$GET(TIUFT(2))
End DoDot:2
End DoDot:1
+47 IF $GET(@TIUROOT@(.05,"E"))="UNCOSIGNED"
Begin DoDot:1
+48 WRITE !?34,"**REQUIRES COSIGNATURE**",!
End DoDot:1
+49 ;I +$G(TIUADD) S TIUGROOT=$NA(^TMP("TIULQ",$J,TIUDA,"ZADD",TIUADD))
+50 ;**100** added the quit
IF +$DATA(@TIUROOT@("EXTRASGNR"))
Begin DoDot:1
+51 NEW TIUI
SET TIUI=0
+52 SET TIUCONT=$$SETCONT^TIUPRPN1(.TIUFOOT,TIUMISC,TIUCONT1,0,$GET(TIUROOT))
IF 'TIUCONT
QUIT
+53 FOR
SET TIUI=$ORDER(@TIUROOT@("EXTRASGNR",TIUI))
IF 'TIUI
QUIT
Begin DoDot:2
+54 WRITE !!?4,"Receipt Acknowledged By:"
+55 ;VMP/ELR P224 ADDED code to print awaiting signature and expected additional signer name
+56 IF +$GET(@TIUROOT@("EXTRASGNR",TIUI,"DATE"))'>0
Begin DoDot:3
+57 WRITE !,?4,"* AWAITING SIGNATURE *",?30,$GET(@TIUROOT@("EXTRASGNR",TIUI,"EXPNAME"))
End DoDot:3
QUIT
+58 IF TIUI>1
SET TIUCONT=$$SETCONT^TIUPRPN1(.TIUFOOT,TIUMISC,TIUCONT1,0,$GET(TIUROOT))
IF 'TIUCONT
QUIT
+59 WRITE !?29,"/es/ ",$GET(@TIUROOT@("EXTRASGNR",TIUI,"NAME"))
+60 IF $LENGTH($GET(@TIUROOT@("EXTRASGNR",TIUI,"TITLE")))>45
Begin DoDot:3
+61 NEW TIUFT
+62 DO WRAP^TIUFLD($GET(@TIUROOT@("EXTRASGNR",TIUI,"TITLE")),45)
+63 WRITE !?34,$GET(TIUFT(1))
+64 WRITE !?39,$GET(TIUFT(2))
End DoDot:3
+65 IF $LENGTH($GET(@TIUROOT@("EXTRASGNR",TIUI,"TITLE")))<46
WRITE !?34,$GET(@TIUROOT@("EXTRASGNR",TIUI,"TITLE"))
+66 IF $GET(@TIUROOT@("EXTRASGNR",TIUI,"EXTRA"))
IF $GET(@TIUROOT@("EXTRASGNR",TIUI,"EXPIEN"))'=$GET(@TIUROOT@("EXTRASGNR",TIUI,"EXTRA"))
Begin DoDot:3
+67 WRITE !?30,"for ",$PIECE($GET(@TIUROOT@("EXTRASGNR",TIUI,"EXPNAME")),",",2)
+68 WRITE " ",$PIECE($GET(@TIUROOT@("EXTRASGNR",TIUI,"EXPNAME")),",")
End DoDot:3
+69 WRITE !?34,$$DATE^TIULS($GET(@TIUROOT@("EXTRASGNR",TIUI,"DATE")),"MM/DD/CCYY HR:MIN")
+70 IF '+$GET(TIUFLAG)!($EXTRACT(IOST)="C-")
Begin DoDot:3
+71 NEW BEEP
+72 SET BEEP=$$BEEP^TIULC1(+$GET(@TIUROOT@("EXTRASGNR",TIUI,"EXTRA")))
+73 IF +BEEP
WRITE !?34,"Analog Pager: ",$PIECE(BEEP,U)
+74 IF +$PIECE(BEEP,U,2)
WRITE !?34,"Digital Pager: ",$PIECE(BEEP,U,2)
End DoDot:3
End DoDot:2
+75 ;K @TIUROOT@("EXTRASGNR") ;**100** commented out
End DoDot:1
IF 'TIUCONT
QUIT
+76 ;I +TIUSIG("COSGDATE"),(+TIUSIG("COSGEDBY")'=+TIUSIG("SIGNEDBY")) D Q:'TIUCONT
+77 IF +TIUSIG("COSGDATE")
Begin DoDot:1
+78 SET TIUCONT=$$SETCONT^TIUPRPN1(.TIUFOOT,TIUMISC,TIUCONT1,0,$GET(TIUROOT))
IF 'TIUCONT
QUIT
+79 WRITE !!?16,"Cosigned by:",$SELECT($PIECE(TIUSIG("COSGMODE"),";")="C":" /s/ ",1:" /es/ "),?34,$SELECT(TIUSIG("COSGNAME")]"":TIUSIG("COSGNAME"),1:$PIECE(TIUSIG("COSGEDBY"),";",2))
+80 IF $LENGTH(TIUSIG("COSGTITL"))>45
Begin DoDot:2
+81 NEW TIUFT
+82 DO WRAP^TIUFLD(TIUSIG("COSGTITL"),45)
+83 WRITE !?34,$GET(TIUFT(1))
+84 WRITE !?39,$GET(TIUFT(2))
End DoDot:2
+85 IF $LENGTH(TIUSIG("COSGTITL"))<46
WRITE !?34,TIUSIG("COSGTITL")
+86 WRITE !?34,$$DATE^TIULS(+TIUSIG("COSGDATE"),"MM/DD/CCYY HR:MIN")
+87 IF '+$GET(TIUFLAG)!($EXTRACT(IOST)="C-")
Begin DoDot:2
+88 IF $PIECE($$BEEP^TIULC1(+TIUSIG("COSGEDBY")),U)
WRITE !?34,"Analog Pager: ",$PIECE($$BEEP^TIULC1(+TIUSIG("COSGEDBY")),U)
+89 IF $PIECE($$BEEP^TIULC1(+TIUSIG("COSGEDBY")),U,2)
WRITE !?34,"Digital Pager: ",$PIECE($$BEEP^TIULC1(+TIUSIG("COSGEDBY")),U,2)
End DoDot:2
End DoDot:1
IF 'TIUCONT
QUIT
+90 ;I +TIUSIG("COSCHRT"),$P(TIUSIG("COSGMODE"),";")="C" D Q:'TIUCONT
+91 IF $PIECE(TIUSIG("COSGMODE"),";")="C"
Begin DoDot:1
+92 SET TIUCONT=$$SETCONT^TIUPRPN1(.TIUFOOT,TIUMISC,TIUCONT1,0,$GET(TIUROOT))
IF 'TIUCONT
QUIT
+93 WRITE !,"Marked cosigned on chart by:",?34,$PIECE(TIUSIG("COSCHRT"),";",2)
End DoDot:1
IF 'TIUCONT
QUIT
+94 WRITE !
+95 ;K TIUCONT1 ; kills the cont on next page msgs since no longer in middle
+96 ;of a note. **100** moved down to amend code
AMEND ; signature blocks of amender
+1 ;N TIUY S TIUY=4 ;I don't think we need TIUY anymore **100**
+2 IF '$GET(@TIUROOT@(1601,"I"))
KILL TIUCONT1
QUIT
+3 SET TIUCONT=$$SETCONT^TIUPRPN1(.TIUFOOT,TIUMISC,TIUCONT1,0,$GET(TIUROOT))
+4 KILL TIUCONT1
IF 'TIUCONT
QUIT
+5 IF +$GET(@TIUROOT@(1601,"I"))
Begin DoDot:1
+6 WRITE !!?12,"Amendment Filed:",?34,$$DATE^TIULS(@TIUROOT@(1601,"I"),"MM/DD/CCYY HR:MIN")
+7 IF $GET(@TIUROOT@(1603,"E"))']""
Begin DoDot:2
+8 WRITE !!?29
FOR TIUI=1:1:40
WRITE "_"
+9 WRITE !?29,$$SIGNAME^TIULS(@TIUROOT@(1602,"I"))
+10 WRITE !?29,$$SIGTITL^TIULS(@TIUROOT@(1602,"I"))
End DoDot:2
+11 IF $GET(@TIUROOT@(1604,"E"))]""
Begin DoDot:2
+12 WRITE !?29,"/es/",?34,@TIUROOT@(1604,"E")
+13 WRITE !?34,@TIUROOT@(1605,"E")
End DoDot:2
End DoDot:1
+14 QUIT
+15 ;
