| [613] | 1 | LRABG ;SLC/RWF - PULMONARY LAB DATA DISPLAY ;8/25/87 08:27 ;
|
|---|
| 2 | ;;5.2;LAB SERVICE;**187,213**;Sep 27, 1994
|
|---|
| 3 | ;
|
|---|
| 4 | PR ;PRINT
|
|---|
| 5 | I $D(LRPRETTY) S LRIDT=LRSDT,LRTOP=0,LRTST="1125^48^49^51^52^53^280^54^55^47" D PALL Q
|
|---|
| 6 | K LRIDT,DIC("S") S LRIDT=0,%DT="",DIC="^LAB(61,",DIC("A")="Select SITE/SPECIMEN: ",DIC(0)="AEMOQ" D ^DIC S LRTOP=+Y,LRTST="1125^48^49^51^52^53^280^54^55^47" D ^LRNORMAL
|
|---|
| 7 | R !!,"STARTING DATE TO DISPLAY: TODAY//",X:10 IF X]"" D ^%DT S LRIDT=3009999-Y-.1
|
|---|
| 8 | K %ZIS D ^%ZIS Q:POP U IO
|
|---|
| 9 | PALL S LRDPF=$P(^LR(LRDFN,0),U,2),DFN=$P(^(0),U,3) D PT^LRX
|
|---|
| 10 | D HEAD^LRABG1 S U="^",LRLDT=0,LREND=0
|
|---|
| 11 | S LRPQ="11^15^24^31^37^45^52^59^66^74",LRPJ="1^1^1^1^2^1^1^1^1^"
|
|---|
| 12 | S LRXW="IF $L(LRZZ) W ?$P(LRPQ,U,I),$S(I=1:$J(LRZZ,3,$P(LRPJ,U,I)),LRZZ#1:$J(LRZZ,5,$P(LRPJ,U,I)),1:$J(LRZZ,5))"
|
|---|
| 13 | G ^LRABG1
|
|---|
