|
Last change
on this file since 724 was 613, checked in by George Lilly, 15 years ago |
|
initial load of WorldVistAEHR
|
|
File size:
741 bytes
|
| Rev | Line | |
|---|
| [613] | 1 | LRLABEL3 ;SLC/RWF - PRINTS MEDLAB LABELS ;2/6/91 08:06
|
|---|
| 2 | ;;5.2;LAB SERVICE;**161**;Sep 27, 1994
|
|---|
| 3 | ;For the 7 part MEDLAB label DPS-ML (time products) AT 16.5 CPI
|
|---|
| 4 | 1 U IO S T=45,T1=23,X=136 X ^%ZOSF("RM") ; Set T=28, T1=14 for 10 cpi.
|
|---|
| 5 | S LRDAT=$P(LRDAT," ")
|
|---|
| 6 | S LRTXT=$$LRTXT^LRLABLD(.LRTS,25)
|
|---|
| 7 | S B=$S(LRRB=0:"",1:" B:"_LRRB)
|
|---|
| 8 | D T
|
|---|
| 9 | Q
|
|---|
| 10 | ;
|
|---|
| 11 | T S X=$E(PNM,1,$S($L(LRINFW):18,1:T-1))
|
|---|
| 12 | W !
|
|---|
| 13 | F J=0:1:2 W ?(J*T),X W:$L(LRINFW) " ",LRINFW
|
|---|
| 14 | S J1=N-I'<LRXL
|
|---|
| 15 | W ! S X=T-2-$L(LRACC) F J=0:1:2 W ?(J*T),LRACC,$J("W:"_LRLLOC_B,X)
|
|---|
| 16 | W ! S X=T-2-$L(SSN) F J=0:1:2 W ?(J*T),SSN,$J(LRDAT,X)
|
|---|
| 17 | W ! F J=0:1:2 W:J1 ?(J*T),LRPREF W ?(J*T+6),LRTOP,?(J*T+15)," Order:",LRCE
|
|---|
| 18 | W !,LRTXT
|
|---|
| 19 | W ! F J=0:1:3 W ?(J*T1+T),LRACC
|
|---|
| 20 | W ! F J=0:1:3 W ?(J*T1+T),LRDAT
|
|---|
| 21 | W !!
|
|---|
| 22 | K J,J1,I1
|
|---|
| 23 | Q
|
|---|
| 24 | ;
|
|---|
Note:
See
TracBrowser
for help on using the repository browser.
