ABMDE32.m

ABMDE32 ;IHS/SD/SDR - Third Party Liability/Worker's Comp - PAGE 3B ;   

 ;;2.6;IHS 3P BILLING SYSTEM;**6,13**;NOV 12, 2009;Build 213

 ; IHS/SD/SDR - abm*2.6*6 - 5010 - New routine for page 3B

 ;IHS/SD/SDR - 2.6*13 - added property/casualty date of 1st contact here and removed from page 3

 ;

OPT ;EP

 G XIT:$D(ABMP("WORKSHEET"))

 K ABM,ABME,ABMZ,DUOUT,ABMP("QU")

 S ABMP("OPT")="ENVJBQ"

 D DISP

 G XIT:$D(DTOUT)!$D(DIROUT)

 D ^ABMDE32X

 I +$O(ABME(0)) D

 . S ABME("CONT")=""

 . D ^ABMDERR

 . K ABME("CONT")

 G XIT:$D(DTOUT)!$D(DIROUT)

 W !

 D SEL^ABMDEOPT

 G XIT:$D(DTOUT)!$D(DUOUT)!$D(DIROUT)!("EV"'[$E(Y))

 S ABM("DO")=$S($E(Y)="E":"E1",1:"V1")

 W !

 D @ABM("DO")

 G XIT:$D(DTOUT)!$D(DIROUT)

 G OPT

V1 ;View data

 S ABMZ("TITL")="THIRD PARTY LIABILITY/WORKER'S COMP QUESTIONS - VIEW OPTION"

 D SUM^ABMDE1

 D ^ABMDERR

 Q

E1 ;Edit data

 ;S ABMP("FLDS")=3  ;abm*2.6*13 exp mode 35

 S ABMP("FLDS")=4  ;abm*2.6*13 exp mode 35

 D FLDS^ABMDEOPT

 W !

 G XIT:$D(DTOUT)!$D(DUOUT)!$D(DIROUT)

 S DR=""

 Q:$D(DTOUT)!$D(DIROUT)!$D(DUOUT)

 S DA=ABMP("CDFN")

 S DIE="^ABMDCLM(DUZ(2),"

 ;S DR=$S(X=1:".713//;.725//;.726//",X=2:".717",X=3:".718",1:"")  ;abm*2.6*13 exp mode 35

 S DR=$S(X=1:".713//;.725//;.726//",X=2:".717",X=3:".718",X=4:".722//",1:"")  ;abm*2.6*13 exp mode 35

 D ^DIE

 K DRR

 Q

DISP ;

 S ABMZ("TITL")="THIRD PARTY LIABILITY/WORKER'S COMP QUESTIONS"

 S ABMZ("PG")="3B"

 I $D(ABMP("DDL")),$Y>(IOSL-6) D PAUSE^ABMDE1 Q:$D(DUOUT)!$D(DTOUT)!$D(DIROUT)  I 1

 E  D SUM^ABMDE1

 ;

 W !

 W "[1] Property and Casualty Claim Number: ",$P($G(^ABMDCLM(DUZ(2),ABMP("CDFN"),7)),U,13)

 W !,?8,"Patient Identifier/Number: "_$P($G(^ABMDCLM(DUZ(2),ABMP("CDFN"),7)),U,25)_"/"_$P($G(^ABMDCLM(DUZ(2),ABMP("CDFN"),7)),U,26)

 W !,"[2] Date Last Worked: ",$$SDT^ABMDUTL($P($G(^ABMDCLM(DUZ(2),ABMP("CDFN"),7)),U,17))

 W !,"[3] Date Authorized to Return to Work: ",$$SDT^ABMDUTL($P($G(^ABMDCLM(DUZ(2),ABMP("CDFN"),7)),U,18))

 W !,"[4] Property/Casualty Date of 1st Contact: ",$$SDT^ABMDUTL($P($G(^ABMDCLM(DUZ(2),ABMP("CDFN"),7)),U,22))  ;abm*2.6*13 exp mode 35

 Q

XIT ;

 S ABMP("C0")=^ABMDCLM(DUZ(2),ABMP("CDFN"),0)

 K ABM,ABMV,ABME

 Q

ABMDE32   ;IHS/SD/SDR - Third Party Liability/Worker's Comp - PAGE 3B ;   

 +1       ;;2.6;IHS 3P BILLING SYSTEM;**6,13**;NOV 12, 2009;Build 213

 +2       ; IHS/SD/SDR - abm*2.6*6 - 5010 - New routine for page 3B

 +3       ;IHS/SD/SDR - 2.6*13 - added property/casualty date of 1st contact here and removed from page 3

 +4       ;

OPT       ;EP

 +1        IF $DATA(ABMP("WORKSHEET"))

               GOTO XIT

 +2        KILL ABM,ABME,ABMZ,DUOUT,ABMP("QU")

 +3        SET ABMP("OPT")="ENVJBQ"

 +4        DO DISP

 +5        IF $DATA(DTOUT)!$DATA(DIROUT)

               GOTO XIT

 +6        DO ^ABMDE32X

 +7        IF +$ORDER(ABME(0))

               Begin DoDot:1

 +8                SET ABME("CONT")=""

 +9                DO ^ABMDERR

 +10               KILL ABME("CONT")

               End DoDot:1

 +11       IF $DATA(DTOUT)!$DATA(DIROUT)

               GOTO XIT

 +12       WRITE !

 +13       DO SEL^ABMDEOPT

 +14       IF $DATA(DTOUT)!$DATA(DUOUT)!$DATA(DIROUT)!("EV"'[$EXTRACT(Y))

               GOTO XIT

 +15       SET ABM("DO")=$SELECT($EXTRACT(Y)="E":"E1",1:"V1")

 +16       WRITE !

 +17       DO @ABM("DO")

 +18       IF $DATA(DTOUT)!$DATA(DIROUT)

               GOTO XIT

 +19       GOTO OPT

V1        ;View data

 +1        SET ABMZ("TITL")="THIRD PARTY LIABILITY/WORKER'S COMP QUESTIONS - VIEW OPTION"

 +2        DO SUM^ABMDE1

 +3        DO ^ABMDERR

 +4        QUIT 

E1        ;Edit data

 +1       ;S ABMP("FLDS")=3  ;abm*2.6*13 exp mode 35

 +2       ;abm*2.6*13 exp mode 35

           SET ABMP("FLDS")=4

 +3        DO FLDS^ABMDEOPT

 +4        WRITE !

 +5        IF $DATA(DTOUT)!$DATA(DUOUT)!$DATA(DIROUT)

               GOTO XIT

 +6        SET DR=""

 +7        IF $DATA(DTOUT)!$DATA(DIROUT)!$DATA(DUOUT)

               QUIT 

 +8        SET DA=ABMP("CDFN")

 +9        SET DIE="^ABMDCLM(DUZ(2),"

 +10      ;S DR=$S(X=1:".713//;.725//;.726//",X=2:".717",X=3:".718",1:"")  ;abm*2.6*13 exp mode 35

 +11      ;abm*2.6*13 exp mode 35

           SET DR=$SELECT(X=1:".713//;.725//;.726//",X=2:".717",X=3:".718",X=4:".722//",1:"")

 +12       DO ^DIE

 +13       KILL DRR

 +14       QUIT 

DISP      ;

 +1        SET ABMZ("TITL")="THIRD PARTY LIABILITY/WORKER'S COMP QUESTIONS"

 +2        SET ABMZ("PG")="3B"

 +3        IF $DATA(ABMP("DDL"))

               IF $Y>(IOSL-6)

                   DO PAUSE^ABMDE1

                   IF $DATA(DUOUT)!$DATA(DTOUT)!$DATA(DIROUT)

                       QUIT 

                   IF 1

 +4       IF '$TEST

               DO SUM^ABMDE1

 +5       ;

 +6        WRITE !

 +7        WRITE "[1] Property and Casualty Claim Number: ",$PIECE($GET(^ABMDCLM(DUZ(2),ABMP("CDFN"),7)),U,13)

 +8        WRITE !,?8,"Patient Identifier/Number: "_$PIECE($GET(^ABMDCLM(DUZ(2),ABMP("CDFN"),7)),U,25)_"/"_$PIECE($GET(^ABMDCLM(DUZ(2),ABMP("CDFN"),7)),U,26)

 +9        WRITE !,"[2] Date Last Worked: ",$$SDT^ABMDUTL($PIECE($GET(^ABMDCLM(DUZ(2),ABMP("CDFN"),7)),U,17))

 +10       WRITE !,"[3] Date Authorized to Return to Work: ",$$SDT^ABMDUTL($PIECE($GET(^ABMDCLM(DUZ(2),ABMP("CDFN"),7)),U,18))

 +11      ;abm*2.6*13 exp mode 35

           WRITE !,"[4] Property/Casualty Date of 1st Contact: ",$$SDT^ABMDUTL($PIECE($GET(^ABMDCLM(DUZ(2),ABMP("CDFN"),7)),U,22))

 +12       QUIT 

XIT       ;

 +1        SET ABMP("C0")=^ABMDCLM(DUZ(2),ABMP("CDFN"),0)

 +2        KILL ABM,ABMV,ABME

 +3        QUIT