| 1 | LRMIPC ;SLC/CJS/BA - MICROBIOLOGY CUMULATIVE PATIENT REPORT ;2/19/91 10:51
|
|---|
| 2 | ;;5.2;LAB SERVICE;**121,283**;Sep 27, 1994
|
|---|
| 3 | ;from option LRMIPC
|
|---|
| 4 | BEGIN K DIC W !!?21,"MICROBIOLOGY CUMULATIVE PATIENT REPORT" D ^LRPARAM D ^LRDPA I LRDFN'=-1 D EN
|
|---|
| 5 | END K DFN,DIC,DOB,I,J,K,LRAA,LRACC,LRAD,LRAN,LRCMNT,LRDFN,LRDPF,LREDT,LREND,LRIDT,LRLLT,LRONESPC,LRONETST,LRPG,LRSDT,PNM,POP,SSN,X,X1,Y
|
|---|
| 6 | Q
|
|---|
| 7 | ALL ;from pretty print
|
|---|
| 8 | S LRONETST=""
|
|---|
| 9 | EN ;from pretty print
|
|---|
| 10 | I $D(LRPRETTY) S LRIDT=LRSDT D DQ Q
|
|---|
| 11 | I '$D(LRONESPC) S LRONESPC="",DIC="^LAB(61,",DIC("A")="Select SPECIMEN/SOURCE: ANY//",DIC(0)="AEMOQ" D ^DIC Q:X[U S:Y>0 LRONESPC=+Y
|
|---|
| 12 | I '$D(LRONETST) S LRONETST="",DIC="^LAB(60,",DIC("A")="Select MICROBIOLOGY TEST: ALL MICRO//",DIC(0)="AEOQ",DIC("S")="I $P(^(0),U,4)=""MI""" D ^DIC K DIC Q:$D(DTOUT)!$D(DUOUT) I Y>0 S LRONETST=+Y
|
|---|
| 13 | S LREDT="T-14" D ^LRWU3 Q:LREND S LREDT=9999999-LREDT,LRIDT=9999999-LRSDT
|
|---|
| 14 | S ZTRTN="DQ^LRMIPC" D IO^LRWU
|
|---|
| 15 | Q
|
|---|
| 16 | DQ ;dequeued
|
|---|
| 17 | S:$D(ZTQUEUED) ZTREQ="@" U IO
|
|---|
| 18 | S LREND=0,LRPG=0 F S LRIDT=+$O(^LR(LRDFN,"MI",LRIDT)) Q:LRIDT<1!(LRIDT>LREDT) D EN1 Q:LREND
|
|---|
| 19 | Q
|
|---|
| 20 | EN1 ;from LRRP1, LRRP2, LRRP3, LRAC1, LRACO1, LRACSUM1
|
|---|
| 21 | S LRLLT=^LR(LRDFN,"MI",LRIDT,0),LRACC=$P(LRLLT,U,6),LRAD=$E(LRLLT)_$P(LRACC," ",2)_"0000",X=$P(LRACC," "),DIC=68,DIC(0)="M"
|
|---|
| 22 | I $L(X) D ^DIC S LRAA=+Y,LRAN=+$P(LRACC," ",3),LRCMNT=$S($D(^LR(LRDFN,"MI",LRIDT,99)):^(99),1:"") D EN^LRMIPSZ1 Q:LREND
|
|---|
| 23 | Q
|
|---|
