| [613] | 1 | ORCACT02 ;SLC/MKB-Validation dose conversion for POE
|
|---|
| 2 | ;;3.0;ORDER ENTRY/RESULTS REPORTING;**141**;Dec 17, 1997
|
|---|
| 3 | ;
|
|---|
| 4 | DOSES(IFN) ; -- Convert outpt doses, if needed
|
|---|
| 5 | N ORIT,ORPSOI,ORDRUG,ORDOSE,CONJ,DOSE,ORP,ORI,ORX,UD,UNT,IDX,X,Y,DA,DIK,MATCH,DRUG,STR,MED
|
|---|
| 6 | S ORIT=+$$VALUE^ORX8(+IFN,"ORDERABLE"),ORDRUG=+$$VALUE^ORX8(+IFN,"DRUG")
|
|---|
| 7 | S ORPSOI=+$P($G(^ORD(101.43,ORIT,0)),U,2),DOSE=$$PTR^ORCD("OR GTX DOSE")
|
|---|
| 8 | D DOSE^PSSORUTL(.ORDOSE,ORPSOI,"O",+ORVP)
|
|---|
| 9 | S CONJ=$P($G(ORDOSE("MISC")),U,3) S:$L(CONJ) CONJ=" "_CONJ
|
|---|
| 10 | F ORP="INSTR","MISC" S ORI=0 D ;setup ORX(instance,ID)=DA ^ value
|
|---|
| 11 | . F S ORI=$O(^OR(100,+IFN,4.5,"ID",ORP,ORI)) Q:ORI'>0 D
|
|---|
| 12 | .. S X=$G(^OR(100,+IFN,4.5,ORI,0)),ORX($P(X,U,3),ORP)=ORI_U_$G(^(1))
|
|---|
| 13 | ;
|
|---|
| 14 | D1 S ORI=0 F S ORI=$O(ORX(ORI)) Q:ORI'>0 D
|
|---|
| 15 | . S UD=$P($G(ORX(ORI,"INSTR")),U,2),UNT=$P($G(ORX(ORI,"MISC")),U,2)
|
|---|
| 16 | . S:UD="1/2" UD=.5 S:UD="1/3" UD=.33 S:UD="1/4" UD=.25 S:UD="3/4" UD=.75
|
|---|
| 17 | . S:UNT?1.U1"(S)" UNT=$P(UNT,"(")_$S(UD>1:"S",1:"") ;strip trailing (s)
|
|---|
| 18 | . K MATCH S MATCH=0,IDX="ORDOSE(0)"
|
|---|
| 19 | . F S IDX=$Q(@IDX) Q:IDX'?1"ORDOSE("1.N.",".N1")" D
|
|---|
| 20 | .. S Y=@IDX I $P(Y,U,3)?1"0."1.N,UD?1"."1.N S UD="0"_UD ;add leading 0 ;134
|
|---|
| 21 | .. S X=UD_$S('$L(UNT):"",$P(Y,U,3):U_UNT,1:" "_UNT) S X=$$UP^XLFSTR(X)
|
|---|
| 22 | .. I $P(Y,U,3,4)'=X,$P(Y,U,5)'=X Q ;no match
|
|---|
| 23 | .. I ORDRUG,$P(Y,U,6)'=ORDRUG Q ;diff disp drug - no match
|
|---|
| 24 | .. S MATCH=MATCH+1,MATCH(MATCH)=Y
|
|---|
| 25 | . ;save re-formatted instructions
|
|---|
| 26 | . I MATCH=1 D Q
|
|---|
| 27 | .. S Y=MATCH(1),X=$P(Y,U,5),DRUG=$G(ORDOSE("DD",+$P(Y,U,6)))
|
|---|
| 28 | .. S:'Y X=X_CONJ_" "_$S($P(DRUG,U,5):$TR($P(DRUG,U,5,6),"^"),1:$P(DRUG,U))
|
|---|
| 29 | .. S DA=+$G(ORX(ORI,"INSTR")) S:DA ^OR(100,+IFN,4.5,DA,1)=X
|
|---|
| 30 | .. S Y=$P(Y,U,1,6)_U_$P(DRUG,U,5,6),Y=$TR(Y,"^","&")
|
|---|
| 31 | .. S DA=+$G(ORX(ORI,"MISC")) Q:'DA K ^OR(100,+IFN,4.5,"ID","MISC",DA)
|
|---|
| 32 | .. S ^OR(100,+IFN,4.5,DA,0)="15^"_DOSE_U_ORI_"^DOSE",^(1)=Y
|
|---|
| 33 | .. S ^OR(100,+IFN,4.5,"ID","DOSE",DA)=""
|
|---|
| 34 | . S X=UD_$S($L(UNT):" "_UNT,1:""),Y=""
|
|---|
| 35 | . S DA=+$G(ORX(ORI,"INSTR")) S:DA ^OR(100,+IFN,4.5,DA,1)=X
|
|---|
| 36 | . S DA=+$G(ORX(ORI,"MISC")),DIK="^OR(100,"_+IFN_",4.5,",DA(1)=+IFN
|
|---|
| 37 | . D:DA ^DIK ;remove old units prompt
|
|---|
| 38 | D2 ; -- set STR or DRUGNAME, convert DAYS
|
|---|
| 39 | I ORDRUG D
|
|---|
| 40 | . S DRUG=$G(ORDOSE("DD",+ORDRUG)),STR=$P(DRUG,U,5)_$P(DRUG,U,6)
|
|---|
| 41 | . I STR'>0 D:'$G(ORDOSE(1)) ADD("DRUG NAME",18,$P(DRUG,U)) Q
|
|---|
| 42 | . S MED=$P($G(^ORD(101.43,+$G(ORIT),0)),U)
|
|---|
| 43 | . I MED'[STR D ADD("STRENGTH",7,STR)
|
|---|
| 44 | S ORI=+$O(^OR(100,+IFN,4.5,"ID","DAYS",0)),X=$G(^OR(100,+IFN,4.5,ORI,1))
|
|---|
| 45 | S:+X=X ^OR(100,+IFN,4.5,ORI,1)=+X_" DAYS"
|
|---|
| 46 | Q
|
|---|
| 47 | ;
|
|---|
| 48 | ADD(PRMT,DA,VAL) ; -- Add new value to Responses
|
|---|
| 49 | N HDR,TOT,I,ID,PTR
|
|---|
| 50 | S HDR=$G(^OR(100,+IFN,4.5,0)),TOT=+$P(HDR,U,4)+1
|
|---|
| 51 | S I=+$O(^OR(100,+IFN,4.5,"ID"),-1),I=I+1,$P(HDR,U,3,4)=I_U_TOT
|
|---|
| 52 | S PTR=+$$PTR^ORCD("OR GTX "_PRMT),ID=$P($G(^ORD(101.41,PTR,1)),U,3)
|
|---|
| 53 | S ^OR(100,+IFN,4.5,0)=HDR,^(I,0)=DA_U_PTR_"^1^"_ID,^(1)=VAL
|
|---|
| 54 | S:$L(ID) ^OR(100,+IFN,4.5,"ID",ID,I)=""
|
|---|
| 55 | Q
|
|---|
