| 1 | SROAL21 ;BIR/ADM - LOAD POSTOPERATIVE LAB DATA (CONTINUED) ;06/27/06
|
|---|
| 2 | ;;3.0; Surgery ;**38,47,65,88,125,153**;24 Jun 93;Build 11
|
|---|
| 3 | STUFF ; Transfer data from arrays to file 130.
|
|---|
| 4 | W !!,"..Moving postoperative lab data to Surgery Risk Assessment file...."
|
|---|
| 5 | SRAT2 I $D(SRAT("H",2)) S X=SRAT("H",2) S SRL=1,SRH=5 D INPUT S $P(^SRF(SRTN,203),"^",13)=X,$P(^(204),"^",13)=$S(X'="":SRAD("H",2),1:"")
|
|---|
| 6 | SRAT3 I $D(SRAT("H",3)) S X=SRAT("H",3) S SRL=1,SRH=5 D INPUT S $P(^SRF(SRTN,203),"^",14)=X,$P(^(204),"^",14)=$S(X'="":SRAD("H",3),1:"")
|
|---|
| 7 | SRAT4 I $D(SRAT("H",4)) S X=SRAT("H",4) S SRL=1,SRH=5 D INPUT S $P(^SRF(SRTN,203),"^")=X,$P(^(204),"^")=$S(X'="":SRAD("H",4),1:"")
|
|---|
| 8 | SRAT5 I $D(SRAT("H",5)) S X=SRAT("H",5) S SRL=1,SRH=3 D INPUT S $P(^SRF(SRTN,203),"^",3)=X,$P(^(204),"^",3)=$S(X'="":SRAD("H",5),1:"")
|
|---|
| 9 | SRAT7 I $D(SRAT("H",7)) S X=SRAT("H",7) S SRL=1,SRH=4 D INPUT S $P(^SRF(SRTN,203),"^",6)=X,$P(^(204),"^",6)=$S(X'="":SRAD("H",7),1:"")
|
|---|
| 10 | SRAT9 I $D(SRAT("H",9)) S X=SRAT("H",9) S SRL=1,SRH=6 D INPUT S $P(^SRF(SRTN,203),"^",7)=X,$P(^(204),"^",7)=$S(X'="":SRAD("H",9),1:"")
|
|---|
| 11 | SRAT10 I $D(SRAT("H",10)) S X=SRAT("H",10) S SRL=1,SRH=4 D INPUT S $P(^SRF(SRTN,203),"^",8)=X,$P(^(204),"^",8)=$S(X'="":SRAD("H",10),1:"")
|
|---|
| 12 | SRAT14 I $D(SRAT("H",14)) S X=SRAT("H",14) S SRL=1,SRH=5 D INPUT S $P(^SRF(SRTN,203),"^",9)=X,$P(^(204),"^",9)=$S(X'="":SRAD("H",14),1:"")
|
|---|
| 13 | SRAT16 I $D(SRAT("H",16)) S X=SRAT("H",16) S SRL=1,SRH=4 D INPUT S $P(^SRF(SRTN,203),"^",10)=X,$P(^(204),"^",10)=$S(X'="":SRAD("H",16),1:"")
|
|---|
| 14 | SRAT17 I $D(SRAT("L",17)) S X=SRAT("L",17) S SRL=1,SRH=4 D INPUT S $P(^SRF(SRTN,203),"^",12)=X,$P(^(204),"^",12)=$S(X'="":SRAD("L",17),1:"")
|
|---|
| 15 | SRAT26 I $D(SRAT("H",26)) S X=SRAT("H",26) S SRL=1,SRH=5 D INPUT S $P(^SRF(SRTN,203),"^",16)=X,$P(^(204),"^",16)=$S(X'="":SRAD("H",26),1:"")
|
|---|
| 16 | SRAT4L I $D(SRAT("L",4)) S X=SRAT("L",4) S SRL=1,SRH=5 D INPUT S $P(^SRF(SRTN,203),"^",2)=X,$P(^(204),"^",2)=$S(X'="":SRAD("L",4),1:"")
|
|---|
| 17 | SRAT5L I $D(SRAT("L",5)) S X=SRAT("L",5) S SRL=1,SRH=3 D INPUT S $P(^SRF(SRTN,203),"^",4)=X,$P(^(204),"^",4)=$S(X'="":SRAD("L",5),1:"")
|
|---|
| 18 | Q
|
|---|
| 19 | NUM ; input transform logic for lab tests
|
|---|
| 20 | N SRX I X="NS"!(X="ns") S X="NS" D:$D(SRCICSP) CARDNS Q
|
|---|
| 21 | S SRX=X S:"<>"[$E(X) SRX=$E(X,2,99)
|
|---|
| 22 | I +SRX'=SRX K X Q
|
|---|
| 23 | Q
|
|---|
| 24 | INPUT ; capture input check
|
|---|
| 25 | N SRX,SRY I X="NS"!(X="") Q
|
|---|
| 26 | I $L(X)<SRL S X="" Q
|
|---|
| 27 | S SRX=X,SRY="" S:" <>"[$E(X) SRY=$E(X),SRX=$E(X,2,99)
|
|---|
| 28 | I +SRX'=SRX S X=""
|
|---|
| 29 | I $L(X)>SRH D
|
|---|
| 30 | .I SRX["." S SRX=SRX+.05\.1*.1,X=SRY_SRX I $L(X)>SRH S SRX=SRX+.5\1,X=SRY_SRX
|
|---|
| 31 | .I $L(X)>SRH S X=""
|
|---|
| 32 | Q
|
|---|
| 33 | CARDNS ; if cardiac, NS not allowed
|
|---|
| 34 | N SRTYPE,SRXX
|
|---|
| 35 | S SRXX=$S($D(SRTN):SRTN,$D(DA):DA,1:"") Q:'SRXX
|
|---|
| 36 | S SRTYPE=$P($G(^SRF(SRXX,"RA")),"^",2)
|
|---|
| 37 | I SRTYPE="C" K X
|
|---|
| 38 | K SRCICSP
|
|---|
| 39 | Q
|
|---|
