LRCAPDL.m

LRCAPDL ; IHS/DIR/FJE - FORMATE DATA FROM 64.03 FOR DOWN LOAD TO SPREAD SHEET ;

 ;;5.2;LR;;NOV 01, 1997

 ;

 ;;5.2;LAB SERVICE;;Sep 27, 1994

EN ;

 D ^%ZISC I '$O(^LRO(64.03,0)) W !?5,"Sorry   No data to down load",!! G END

 W !!,?20,"THE CHARACTER '^' IS NOT ALLOWED ",!

 R !!?10,"WHAT CHARACTER SHOULD BE USED TO SEPARATE THE FIELDS ",LRCH:DTIME

 G:'$T!(LRCH="^") END

 I '$L(LRCH) W !!?5,$C(7),"YOU MUST SELECT SOME CHARACTER ",!! G EN

 W !,"OK",! D ^%ZIS G END:POP U IO(0)

PRT W !,"YOU MAY PRESS RETURN/ENTER KEY TO STOP TRANSMISSION OF DATA ",!

 R !!?5,"PRESS RETURN WHEN READY ",X:500 G:'$T END

 W ! S (CNT,I)=0 F  S I=$O(^LRO(64.03,I)) Q:I=""  I $D(^(I,0)) S X=$TR(^(0),"^",LRCH) U IO W X,! S CNT=CNT+1 U IO(0) R LRSTOP:.001 Q:$T

 U IO(0) W !,"DOWN LOADED ",CNT," LINES OF DATA ",!!

END ;

 D ^%ZISC

 W !!?30,"CELL DATA FORMAT ",!

 W !,"CELL 1=SEQ NUMBER",?25,"CELL 2=PROVIDER ",?52,"CELL 3=PATIENT"

 W !,"CELL 4=DATE COMPLETED",?25,"CELL 5=REPORTING SITE",?52,"CELL 6=LOCATION TYPE"

 W !,"CELL 7=ACCESSION AREA",?25,"CELL 8=LAB TEST NAME",?52,"CELL 9=URGENCY"

 W !,"CELL 10=TREATING SPEC",?25,"CELL 11=WKLD CODE",?52,"CELL 12=INVERSE DATE"

 W !,"CELL 13=DATE COLLECTED",?25,"CELL 14=DATE ORDERED",?52,"CELL 15=HOSPITAL LOCATION"

 W !,"CELL 16=ACCESSION FILE INDEX",!

 Q

LRCAPDL   ; IHS/DIR/FJE - FORMATE DATA FROM 64.03 FOR DOWN LOAD TO SPREAD SHEET ;

 +1       ;;5.2;LR;;NOV 01, 1997

 +2       ;

 +3       ;;5.2;LAB SERVICE;;Sep 27, 1994

EN        ;

 +1        DO ^%ZISC

           IF '$ORDER(^LRO(64.03,0))

               WRITE !?5,"Sorry   No data to down load",!!

               GOTO END

 +2        WRITE !!,?20,"THE CHARACTER '^' IS NOT ALLOWED ",!

 +3        READ !!?10,"WHAT CHARACTER SHOULD BE USED TO SEPARATE THE FIELDS ",LRCH:DTIME

 +4        IF '$TEST!(LRCH="^")

               GOTO END

 +5        IF '$LENGTH(LRCH)

               WRITE !!?5,$CHAR(7),"YOU MUST SELECT SOME CHARACTER ",!!

               GOTO EN

 +6        WRITE !,"OK",!

           DO ^%ZIS

           IF POP

               GOTO END

           USE IO(0)

PRT        WRITE !,"YOU MAY PRESS RETURN/ENTER KEY TO STOP TRANSMISSION OF DATA ",!

 +1        READ !!?5,"PRESS RETURN WHEN READY ",X:500

           IF '$TEST

               GOTO END

 +2        WRITE !

           SET (CNT,I)=0

           FOR 

               SET I=$ORDER(^LRO(64.03,I))

               IF I=""

                   QUIT 

               IF $DATA(^(I,0))

                   SET X=$TRANSLATE(^(0),"^",LRCH)

                   USE IO

                   WRITE X,!

                   SET CNT=CNT+1

                   USE IO(0)

                   READ LRSTOP:.001

                   IF $TEST

                       QUIT 

 +3        USE IO(0)

           WRITE !,"DOWN LOADED ",CNT," LINES OF DATA ",!!

END       ;

 +1        DO ^%ZISC

 +2        WRITE !!?30,"CELL DATA FORMAT ",!

 +3        WRITE !,"CELL 1=SEQ NUMBER",?25,"CELL 2=PROVIDER ",?52,"CELL 3=PATIENT"

 +4        WRITE !,"CELL 4=DATE COMPLETED",?25,"CELL 5=REPORTING SITE",?52,"CELL 6=LOCATION TYPE"

 +5        WRITE !,"CELL 7=ACCESSION AREA",?25,"CELL 8=LAB TEST NAME",?52,"CELL 9=URGENCY"

 +6        WRITE !,"CELL 10=TREATING SPEC",?25,"CELL 11=WKLD CODE",?52,"CELL 12=INVERSE DATE"

 +7        WRITE !,"CELL 13=DATE COLLECTED",?25,"CELL 14=DATE ORDERED",?52,"CELL 15=HOSPITAL LOCATION"

 +8        WRITE !,"CELL 16=ACCESSION FILE INDEX",!

 +9        QUIT