| Code |
N CR,ORTY,ORY,TDT
S TDT=0
K ^TMP("TIULIST",$J)
D SUMMARY^TIUSRVLV(.ORY,ORVIEN)
I '+$O(^TMP("TIULIST",$J,0)) D Q
. S ORVY(1)="No Discharge Summary found for this stay."
F S TDT=$O(^TMP("TIULIST",$J,TDT)) Q:+TDT'>0 D
. N SEQ,TIEN S SEQ=0
. F S SEQ=$O(^TMP("TIULIST",$J,TDT,SEQ)) Q:+SEQ'>0 D
. . N TSEQ,ORVI K ^TMP("TIUVIEW",$J)
. . S TIEN=$P(^TMP("TIULIST",$J,TDT,SEQ),U)
. . D TGET^TIUSRVR1(.ORTY,TIEN)
. . S TSEQ=0,ORVI=1
. . F S TSEQ=$O(@ORTY@(TSEQ)) Q:TSEQ="" D
. . . S ORVY(ORVI)=@ORTY@(TSEQ),ORVI=ORVI+1
. . S ORVY(ORVI)=" ",ORVI=ORVI+1
. . S ORVY(ORVI)=" ",ORVI=ORVI+1
K ^TMP("TIULIST",$J)
|