- SDPPDIS2 ;ALB/CAW - Patient Profile - Disposition (con't) ; 5/12/92
- ;;5.3;Scheduling;**6,386**;Aug 13, 1993
- ;
- ;
- NEED ; Need Related to Occupation and Need Related to Accident
- ;D ^sdppdis2 Q
- S X="",X=$$SETSTR^VALM1("Need Rel. to Occ.:",X,1,18)
- S SDYN=$S($P(SDDIS(2),U)="N":"NO",$P(SDDIS(2),U)="Y":"YES",1:"UNKNOWN")
- S X=$$SETSTR^VALM1(SDYN,X,SDFST,SDLEN)
- S X=$$SETSTR^VALM1("Need Rel. to Acc.:",X,41,18)
- S SDYN=$S($P(SDDIS(2),U,4)="N":"NO",$P(SDDIS(2),U,4)="Y":"YES",1:"UNKNOWN")
- S X=$$SETSTR^VALM1(SDYN,X,SDSEC,SDLEN)
- D SET^SDPPDIS1(X)
- ;
- STATUS ; Status of disposition
- S SDSTATUS=$P($G(^SCE(+$P(SDDIS(0),U,18),0)),U,12)
- S SDSTATUS=$P($G(^SD(409.63,+SDSTATUS,0)),U)
- I SDSTATUS]"" D
- .S X="",X=$$SETSTR^VALM1("Status:",X,12,18)
- .S X=$$SETSTR^VALM1(SDSTATUS,X,SDFST,SDLEN)
- .D SET^SDPPDIS1(X)
- ;
- WORK ; Workmans Comp. Claim and Injury Caused By
- S X=""
- I $P(SDDIS(2),U)="Y",$P(SDDIS(2),U,2)'="" D
- .S X=$$SETSTR^VALM1("Work. Comp. Claim:",X,1,18)
- .S SDYN=$S($P(SDDIS(2),U,2)="N":"NO",$P(SDDIS(2),U,2)="Y":"YES",1:"UNKNOWN")
- .S X=$$SETSTR^VALM1(SDYN,X,SDFST,SDLEN)
- I $P(SDDIS(2),U,4)="Y",$P(SDDIS(2),U,5)'="" D
- .S X=$$SETSTR^VALM1("Injury Caused By:",X,42,17)
- .S X=$$SETSTR^VALM1($P(SDDIS(2),U,5),X,SDSEC,SDLEN)
- D:X'="" SET^SDPPDIS1(X)
- WORKN ; Workmans Comp. Number and Injury Parties Insurance
- S X=""
- I $P(SDDIS(2),U)="Y",$P(SDDIS(2),U,3)'="" D
- .S X=$$SETSTR^VALM1("Work. Comp. Num.:",X,2,17)
- .S X=$$SETSTR^VALM1($P(SDDIS(2),U,3),X,SDFST,SDLEN)
- I $P(SDDIS(2),U,4)="Y",$P(SDDIS(2),U,6)'="" D
- .S X=$$SETSTR^VALM1("Inj. Parties Ins.:",X,41,18)
- .S X=$$SETSTR^VALM1("UNSUPPORTED",X,SDSEC,SDLEN)
- D:X'="" SET^SDPPDIS1(X)
- ATTN ; Attorney Info and Filed Against Party
- S X=""
- I $P(SDDIS(2),U,4)="Y",$P(SDDIS(3),U)'="" D
- .S X=$$SETSTR^VALM1("Attorney Info:",X,5,14)
- I $P(SDDIS(2),U,4)="Y",$P(SDDIS(2),U,7)'="" D
- .S X=$$SETSTR^VALM1("Filed Against Pty:",X,41,18)
- .S SDYN=$S($P(SDDIS(2),U,2)="N":"NO",$P(SDDIS(2),U,2)="Y":"YES",1:"UNKNOWN")
- .S X=$$SETSTR^VALM1(SDYN,X,SDSEC,SDLEN)
- D:X'="" SET^SDPPDIS1(X)
- AADD ; Attorney Address
- S X=""
- I $P(SDDIS(2),U,4)="Y",$P(SDDIS(3),U)'="" D
- .S X="",X=$$SETSTR^VALM1($P(SDDIS(3),U),X,5,30) D SET^SDPPDIS1(X)
- I $P(SDDIS(2),U,4)="Y",$P(SDDIS(3),U,2)'="" D
- .S X="",X=$$SETSTR^VALM1($P(SDDIS(3),U,2),X,5,30) D SET^SDPPDIS1(X)
- I $P(SDDIS(2),U,4)="Y",$P(SDDIS(3),U,3)'="" D
- .S X="",X=$$SETSTR^VALM1($P(SDDIS(3),U,3),X,5,30) D SET^SDPPDIS1(X)
- I $P(SDDIS(2),U,4)="Y",$P(SDDIS(3),U,4)'="" D
- .S X="",X=$$SETSTR^VALM1($P(SDDIS(3),U,4),X,5,30) D SET^SDPPDIS1(X)
- I $P(SDDIS(2),U,4)="Y",$P(SDDIS(3),U,5)'="" D
- .S SDADD=$P(SDDIS(3),U,5)
- I $P(SDDIS(2),U,4)="Y",$P(SDDIS(3),U,6)'="" D
- .S SDADD=$G(SDADD)_$S($G(SDADD):", ",1:"")_$P($G(^DIC(5,+$P(SDDIS(3),U,6),0)),U)
- I $P(SDDIS(2),U,4)="Y",$P(SDDIS(3),U,7)'="" D
- .S SDADD=$G(SDADD)_" "_$P(SDDIS(3),U,7)
- I $P(SDDIS(2),U,4)="Y",$D(SDADD) S X="",X=$$SETSTR^VALM1(SDADD,X,5,70) D SET^SDPPDIS1(X)
- I $P(SDDIS(2),U,4)="Y",$P(SDDIS(3),U,8)'="" D
- .S X="",X=$$SETSTR^VALM1($P(SDDIS(3),U,8),X,5,20) D SET^SDPPDIS1(X)
- D SET^SDPPDIS1("")
- Q
- --- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HSDPPDIS2 3111 printed Mar 13, 2025@22:04:50 Page 2
- SDPPDIS2 ;ALB/CAW - Patient Profile - Disposition (con't) ; 5/12/92
- +1 ;;5.3;Scheduling;**6,386**;Aug 13, 1993
- +2 ;
- +3 ;
- NEED ; Need Related to Occupation and Need Related to Accident
- +1 ;D ^sdppdis2 Q
- +2 SET X=""
- SET X=$$SETSTR^VALM1("Need Rel. to Occ.:",X,1,18)
- +3 SET SDYN=$SELECT($PIECE(SDDIS(2),U)="N":"NO",$PIECE(SDDIS(2),U)="Y":"YES",1:"UNKNOWN")
- +4 SET X=$$SETSTR^VALM1(SDYN,X,SDFST,SDLEN)
- +5 SET X=$$SETSTR^VALM1("Need Rel. to Acc.:",X,41,18)
- +6 SET SDYN=$SELECT($PIECE(SDDIS(2),U,4)="N":"NO",$PIECE(SDDIS(2),U,4)="Y":"YES",1:"UNKNOWN")
- +7 SET X=$$SETSTR^VALM1(SDYN,X,SDSEC,SDLEN)
- +8 DO SET^SDPPDIS1(X)
- +9 ;
- STATUS ; Status of disposition
- +1 SET SDSTATUS=$PIECE($GET(^SCE(+$PIECE(SDDIS(0),U,18),0)),U,12)
- +2 SET SDSTATUS=$PIECE($GET(^SD(409.63,+SDSTATUS,0)),U)
- +3 IF SDSTATUS]""
- Begin DoDot:1
- +4 SET X=""
- SET X=$$SETSTR^VALM1("Status:",X,12,18)
- +5 SET X=$$SETSTR^VALM1(SDSTATUS,X,SDFST,SDLEN)
- +6 DO SET^SDPPDIS1(X)
- End DoDot:1
- +7 ;
- WORK ; Workmans Comp. Claim and Injury Caused By
- +1 SET X=""
- +2 IF $PIECE(SDDIS(2),U)="Y"
- IF $PIECE(SDDIS(2),U,2)'=""
- Begin DoDot:1
- +3 SET X=$$SETSTR^VALM1("Work. Comp. Claim:",X,1,18)
- +4 SET SDYN=$SELECT($PIECE(SDDIS(2),U,2)="N":"NO",$PIECE(SDDIS(2),U,2)="Y":"YES",1:"UNKNOWN")
- +5 SET X=$$SETSTR^VALM1(SDYN,X,SDFST,SDLEN)
- End DoDot:1
- +6 IF $PIECE(SDDIS(2),U,4)="Y"
- IF $PIECE(SDDIS(2),U,5)'=""
- Begin DoDot:1
- +7 SET X=$$SETSTR^VALM1("Injury Caused By:",X,42,17)
- +8 SET X=$$SETSTR^VALM1($PIECE(SDDIS(2),U,5),X,SDSEC,SDLEN)
- End DoDot:1
- +9 if X'=""
- DO SET^SDPPDIS1(X)
- WORKN ; Workmans Comp. Number and Injury Parties Insurance
- +1 SET X=""
- +2 IF $PIECE(SDDIS(2),U)="Y"
- IF $PIECE(SDDIS(2),U,3)'=""
- Begin DoDot:1
- +3 SET X=$$SETSTR^VALM1("Work. Comp. Num.:",X,2,17)
- +4 SET X=$$SETSTR^VALM1($PIECE(SDDIS(2),U,3),X,SDFST,SDLEN)
- End DoDot:1
- +5 IF $PIECE(SDDIS(2),U,4)="Y"
- IF $PIECE(SDDIS(2),U,6)'=""
- Begin DoDot:1
- +6 SET X=$$SETSTR^VALM1("Inj. Parties Ins.:",X,41,18)
- +7 SET X=$$SETSTR^VALM1("UNSUPPORTED",X,SDSEC,SDLEN)
- End DoDot:1
- +8 if X'=""
- DO SET^SDPPDIS1(X)
- ATTN ; Attorney Info and Filed Against Party
- +1 SET X=""
- +2 IF $PIECE(SDDIS(2),U,4)="Y"
- IF $PIECE(SDDIS(3),U)'=""
- Begin DoDot:1
- +3 SET X=$$SETSTR^VALM1("Attorney Info:",X,5,14)
- End DoDot:1
- +4 IF $PIECE(SDDIS(2),U,4)="Y"
- IF $PIECE(SDDIS(2),U,7)'=""
- Begin DoDot:1
- +5 SET X=$$SETSTR^VALM1("Filed Against Pty:",X,41,18)
- +6 SET SDYN=$SELECT($PIECE(SDDIS(2),U,2)="N":"NO",$PIECE(SDDIS(2),U,2)="Y":"YES",1:"UNKNOWN")
- +7 SET X=$$SETSTR^VALM1(SDYN,X,SDSEC,SDLEN)
- End DoDot:1
- +8 if X'=""
- DO SET^SDPPDIS1(X)
- AADD ; Attorney Address
- +1 SET X=""
- +2 IF $PIECE(SDDIS(2),U,4)="Y"
- IF $PIECE(SDDIS(3),U)'=""
- Begin DoDot:1
- +3 SET X=""
- SET X=$$SETSTR^VALM1($PIECE(SDDIS(3),U),X,5,30)
- DO SET^SDPPDIS1(X)
- End DoDot:1
- +4 IF $PIECE(SDDIS(2),U,4)="Y"
- IF $PIECE(SDDIS(3),U,2)'=""
- Begin DoDot:1
- +5 SET X=""
- SET X=$$SETSTR^VALM1($PIECE(SDDIS(3),U,2),X,5,30)
- DO SET^SDPPDIS1(X)
- End DoDot:1
- +6 IF $PIECE(SDDIS(2),U,4)="Y"
- IF $PIECE(SDDIS(3),U,3)'=""
- Begin DoDot:1
- +7 SET X=""
- SET X=$$SETSTR^VALM1($PIECE(SDDIS(3),U,3),X,5,30)
- DO SET^SDPPDIS1(X)
- End DoDot:1
- +8 IF $PIECE(SDDIS(2),U,4)="Y"
- IF $PIECE(SDDIS(3),U,4)'=""
- Begin DoDot:1
- +9 SET X=""
- SET X=$$SETSTR^VALM1($PIECE(SDDIS(3),U,4),X,5,30)
- DO SET^SDPPDIS1(X)
- End DoDot:1
- +10 IF $PIECE(SDDIS(2),U,4)="Y"
- IF $PIECE(SDDIS(3),U,5)'=""
- Begin DoDot:1
- +11 SET SDADD=$PIECE(SDDIS(3),U,5)
- End DoDot:1
- +12 IF $PIECE(SDDIS(2),U,4)="Y"
- IF $PIECE(SDDIS(3),U,6)'=""
- Begin DoDot:1
- +13 SET SDADD=$GET(SDADD)_$SELECT($GET(SDADD):", ",1:"")_$PIECE($GET(^DIC(5,+$PIECE(SDDIS(3),U,6),0)),U)
- End DoDot:1
- +14 IF $PIECE(SDDIS(2),U,4)="Y"
- IF $PIECE(SDDIS(3),U,7)'=""
- Begin DoDot:1
- +15 SET SDADD=$GET(SDADD)_" "_$PIECE(SDDIS(3),U,7)
- End DoDot:1
- +16 IF $PIECE(SDDIS(2),U,4)="Y"
- IF $DATA(SDADD)
- SET X=""
- SET X=$$SETSTR^VALM1(SDADD,X,5,70)
- DO SET^SDPPDIS1(X)
- +17 IF $PIECE(SDDIS(2),U,4)="Y"
- IF $PIECE(SDDIS(3),U,8)'=""
- Begin DoDot:1
- +18 SET X=""
- SET X=$$SETSTR^VALM1($PIECE(SDDIS(3),U,8),X,5,20)
- DO SET^SDPPDIS1(X)
- End DoDot:1
- +19 DO SET^SDPPDIS1("")
- +20 QUIT
