| 1 | LRCAPDL ;DALISC/FHS - FORMATE DATA FROM 64.03 FOR DOWN LOAD TO SPREAD SHEET
|
|---|
| 2 | ;;5.2;LAB SERVICE;;Sep 27, 1994
|
|---|
| 3 | EN ;
|
|---|
| 4 | D ^%ZISC I '$O(^LRO(64.03,0)) W !?5,"Sorry No data to down load",!! G END
|
|---|
| 5 | W !!,?20,"THE CHARACTER '^' IS NOT ALLOWED ",!
|
|---|
| 6 | R !!?10,"WHAT CHARACTER SHOULD BE USED TO SEPARATE THE FIELDS ",LRCH:DTIME
|
|---|
| 7 | G:'$T!(LRCH="^") END
|
|---|
| 8 | I '$L(LRCH) W !!?5,$C(7),"YOU MUST SELECT SOME CHARACTER ",!! G EN
|
|---|
| 9 | W !,"OK",! D ^%ZIS G END:POP U IO(0)
|
|---|
| 10 | PRT W !,"YOU MAY PRESS RETURN/ENTER KEY TO STOP TRANSMISSION OF DATA ",!
|
|---|
| 11 | R !!?5,"PRESS RETURN WHEN READY ",X:500 G:'$T END
|
|---|
| 12 | 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
|
|---|
| 13 | U IO(0) W !,"DOWN LOADED ",CNT," LINES OF DATA ",!!
|
|---|
| 14 | END ;
|
|---|
| 15 | D ^%ZISC
|
|---|
| 16 | W !!?30,"CELL DATA FORMAT ",!
|
|---|
| 17 | W !,"CELL 1=SEQ NUMBER",?25,"CELL 2=PROVIDER ",?52,"CELL 3=PATIENT"
|
|---|
| 18 | W !,"CELL 4=DATE COMPLETED",?25,"CELL 5=REPORTING SITE",?52,"CELL 6=LOCATION TYPE"
|
|---|
| 19 | W !,"CELL 7=ACCESSION AREA",?25,"CELL 8=LAB TEST NAME",?52,"CELL 9=URGENCY"
|
|---|
| 20 | W !,"CELL 10=TREATING SPEC",?25,"CELL 11=WKLD CODE",?52,"CELL 12=INVERSE DATE"
|
|---|
| 21 | W !,"CELL 13=DATE COLLECTED",?25,"CELL 14=DATE ORDERED",?52,"CELL 15=HOSPITAL LOCATION"
|
|---|
| 22 | W !,"CELL 16=ACCESSION FILE INDEX",!
|
|---|
| 23 | Q
|
|---|
