| Code |
K ^TMP("PS",$J)
D OEL^PSOORRL(ORPT,ORMED)
N I,J,CR,X,Z,ZZ,MDR,SCH,SIG,COM,ADD,SOL,ORDATE,TYPE
S I=0,J=1,CR=$CHAR(13),ORDATE=""
S TYPE=$P(ORMED,";",2)
S X=$G(^TMP("PS",$J,0))
I '$L($G(X)) S ORY(J)="No detailed information found." Q
S ORY(J)=" "_$P(X,U)
I +$G(^TMP("PS",$J,"MDR",0))>0 D
.S ZZ=^TMP("PS",$J,"MDR",0) F Z=1:1:ZZ D
..I Z=1 S MDR=^TMP("PS",$J,"MDR",Z,0)
..E S MDR=MDR_", "_^TMP("PS",$J,"MDR",Z,0)
I $L($G(MDR)) S ORY(J)=ORY(J)_" "_MDR
S ORY(J)=ORY(J)_" "_$P(X,U,2)
I +$G(^TMP("PS",$J,"SCH",0))>0 D
.S ZZ=^TMP("PS",$J,"SCH",0) F Z=1:1:ZZ D
..I Z=1 S SCH=$P(^TMP("PS",$J,"SCH",Z,0),U)
..E S SCH=SCH_", "_$P(^TMP("PS",$J,"SCH",Z,0),U)
I $L($G(SCH)) S ORY(J)=ORY(J)_" "_SCH
S ORY(J)=ORY(J),J=J+1
I +$G(^TMP("PS",$J,"SIG",0))>0 D
.S ZZ=^TMP("PS",$J,"SIG",0) F Z=1:1:ZZ D
..I Z=1 S SIG=^TMP("PS",$J,"SIG",Z,0)
..E S SIG=SIG_", "_^TMP("PS",$J,"SIG",Z,0)
I $L($G(SIG)) S ORY(J)=" "_SIG,J=J+1
S ORY(J)=" ",J=J+1
I +$G(^TMP("PS",$J,"B",0))>0 D
.S ZZ=^TMP("PS",$J,"B",0) F Z=1:1:ZZ D
..S SOL=^TMP("PS",$J,"B",Z,0),ORY(J)=" "_$P(SOL,U)_" "_$P(SOL,U,2),J=J+1
I +$G(^TMP("PS",$J,"A",0))>0 D
.S ZZ=^TMP("PS",$J,"A",0) F Z=1:1:ZZ D
..S ADD=^TMP("PS",$J,"A",Z,0)
..S ORY(J)=" "_$P(ADD,U)
..S IVX=$P(ADD,U,2)
..S ORY(J)=ORY(J)_$S($D(IVX):" "_IVX,1:"")_" "_$P(ADD,U,3),J=J+1
I $L($G(SOL))!($L($G(ADD))) S ORY(J)=" ",J=J+1
S ORY(J)=" Status: "_$P(X,U,6),J=J+1
S ORDATE=$P(X,U,5) I $L($G(ORDATE)) D
.D DT^DILF("ET",ORDATE,.ORDATE,"","")
S ORY(J)=" Start date: "_$G(ORDATE(0)),J=J+1
S ORDATE=$P(X,U,3) I $L($G(ORDATE)) D
.D DT^DILF("ET",ORDATE,.ORDATE,"","")
S ORY(J)=" Stop date: "_$G(ORDATE(0)),J=J+1
I TYPE="O" D ; if outpatient med
.S ORY(J)="Refills remaining: "_$P(X,U,4),J=J+1
.S ORY(J)=" Days supply: "_$P(X,U,7),J=J+1
.S ORY(J)=" Quantity: "_$P(X,U,8),J=J+1
.S ORY(J)=" ",J=J+1
S ORY(J)="Comments:",J=J+1
S I=0 F S I=$O(^TMP("PS",$J,"PC",I)) Q:'I D
.S ORY(J)=^TMP("PS",$J,"PC",I,0),J=J+1
K ^TMP("PS",$J)
|