| Code |
Q:'+DFN
N ORGMPL,I,DETAIL,ORIDT,IMPLDT
S IMPLDT=$$IMPDATE^LEXU("10D")
S ORIDT=$S($P(DFN,U,2)]"":$P(DFN,U,2),1:DT)
S:ORIDT'>0 ORIDT=DT
S DFN=+DFN
I $L($T(LIST^GMPLUTL2))>0 D
.D LIST^GMPLUTL2(.ORGMPL,DFN,STATUS)
.Q:'$D(ORGMPL(0))
.S DETAIL=$$DETAIL^ORWCV1(10)
.F I=1:1:ORGMPL(0) D
..N LEX,X
..S X=ORGMPL(I)
..S ORPY(I)=$P(X,U)_U_$P(X,U,3)_U_$P(X,U,2)_U_$P(X,U,4)_U_$P(X,U,5)_U_$P(X,U,6)_U_$P(X,U,7)_U_$P(X,U,8)_U_$P(X,U,10)_U_$P(X,U,9)_U_U_DETAIL_U_U_$P(X,U,11)_U_$P(X,U,12)_U_$P(X,U,13)
..S ORPY(I)=ORPY(I)_U_$S($P(ORPY(I),U,2)?.U1" "1"-"1" ".E:1,1:"")
..I (ORIDT ...S $P(ORPY(I),U,13)="#",$P(ORPY(I),U,9)="#"
..E I $L($P(ORPY(I),U,14)),(+$$STATCHK^LEXSRC2($P(ORPY(I),U,14),ORIDT,.LEX)'=1) S $P(ORPY(I),U,13)="$",$P(ORPY(I),U,9)="#"
.S:+$G(ORPY(1))<1 ORPY(1)="^No problems found."
I $L($T(LIST^GMPLUTL2))<1 S ORPY(1)="^Problem list not available.^"
K X
|