ABMDECHK.m

ABMDECHK ; IHS/ASDST/DMJ - Looping Utility to Check Parms ;

 ;;2.6;IHS 3P BILLING SYSTEM;;NOV 12, 2009

 ;

 ; IHS/SD/SDR - v2.5 p10 - IM13359

 ;    Added check for range of patients

 ;

CLM ;EP for checking Claim file data parameters

 Q:'$D(^ABMDCLM(DUZ(2),ABM,0))

 S ABM("V")=$P(^ABMDCLM(DUZ(2),ABM,0),U,7)  ;visit type

 S ABM("L")=$P(^ABMDCLM(DUZ(2),ABM,0),U,3)  ;visit location

 S ABM("I")=$P(^ABMDCLM(DUZ(2),ABM,0),U,8)  ;active insurer

 S ABM("P")=$P(^ABMDCLM(DUZ(2),ABM,0),U)  ;patient

 S ABM("D")=$P(^ABMDCLM(DUZ(2),ABM,0),U,2)  ;encounter date

 S ABM("C")=$P(^ABMDCLM(DUZ(2),ABM,0),U,6)  ;clinic

 Q:ABM("L")=""!(ABM("P")="")!(ABM("D")="")!(ABM("V")="")!(ABM("C")="")

 I $D(ABMY("PRV")),'$D(^ABMDCLM(DUZ(2),ABM,41,"B",ABMY("PRV"))) Q

 I $D(ABMY("PAT")),ABMY("PAT")'=ABM("P") Q

 I $D(ABMY("LOC")),ABMY("LOC")'=ABM("L") Q

 I $D(ABMY("CLN")),ABMY("CLN")'=ABM("C") Q

 I $D(ABMY("VTYP")),ABMY("VTYP")'=ABM("V") Q

 I $D(ABMY("INS")),ABMY("INS")'=ABM("I") Q

 I $G(ABMY("PTYP"))=2,$P($G(^AUPNPAT(ABM("P"),11)),U,12)'="I" Q

 I $G(ABMY("PTYP"))=1,$P($G(^AUPNPAT(ABM("P"),11)),U,12)="I" Q

 I $D(ABMY("TYP")) Q:ABM("I")=""  S:ABMY("TYP")="P" ABMY("TYP")="PFHM" Q:ABMY("TYP")'[$P($G(^AUTNINS(+ABM("I"),2)),U)

 I $D(ABMY("DT")),ABM("D")<ABMY("DT",1)!(ABM("D")>ABMY("DT",2)) Q

 K ABMQFLG

 I $D(ABMY("RNG")) D  ;range of patients--are you in...or out?

 .K ABMPTST,ABMPCE,ABMPTST("TST")

 .S ABMPTST=$E($P($G(^DPT(ABM("P"),0)),U),1,3)  ;first three letters

 .F ABMI=1,2 D

 ..F ABMJ=1:1:3 D

 ...S ABMPCE(ABMI)=$G(ABMPCE(ABMI))_$A($E(ABMY("RNG",ABMI),ABMJ))

 .F ABMJ=1:1:3 S ABMPTST("TST")=$G(ABMPTST("TST"))_$A($E(ABMPTST,ABMJ))

 .I (ABMPTST("TST")<ABMPCE(1))!(ABMPTST("TST")>ABMPCE(2)) S ABMQFLG=1

 Q:$G(ABMQFLG)=1

 S ABMP("HIT")=1

 Q

ABMDECHK  ; IHS/ASDST/DMJ - Looping Utility to Check Parms ;

 +1       ;;2.6;IHS 3P BILLING SYSTEM;;NOV 12, 2009

 +2       ;

 +3       ; IHS/SD/SDR - v2.5 p10 - IM13359

 +4       ;    Added check for range of patients

 +5       ;

CLM       ;EP for checking Claim file data parameters

 +1        IF '$DATA(^ABMDCLM(DUZ(2),ABM,0))

               QUIT 

 +2       ;visit type

           SET ABM("V")=$PIECE(^ABMDCLM(DUZ(2),ABM,0),U,7)

 +3       ;visit location

           SET ABM("L")=$PIECE(^ABMDCLM(DUZ(2),ABM,0),U,3)

 +4       ;active insurer

           SET ABM("I")=$PIECE(^ABMDCLM(DUZ(2),ABM,0),U,8)

 +5       ;patient

           SET ABM("P")=$PIECE(^ABMDCLM(DUZ(2),ABM,0),U)

 +6       ;encounter date

           SET ABM("D")=$PIECE(^ABMDCLM(DUZ(2),ABM,0),U,2)

 +7       ;clinic

           SET ABM("C")=$PIECE(^ABMDCLM(DUZ(2),ABM,0),U,6)

 +8        IF ABM("L")=""!(ABM("P")="")!(ABM("D")="")!(ABM("V")="")!(ABM("C")="")

               QUIT 

 +9        IF $DATA(ABMY("PRV"))

               IF '$DATA(^ABMDCLM(DUZ(2),ABM,41,"B",ABMY("PRV")))

                   QUIT 

 +10       IF $DATA(ABMY("PAT"))

               IF ABMY("PAT")'=ABM("P")

                   QUIT 

 +11       IF $DATA(ABMY("LOC"))

               IF ABMY("LOC")'=ABM("L")

                   QUIT 

 +12       IF $DATA(ABMY("CLN"))

               IF ABMY("CLN")'=ABM("C")

                   QUIT 

 +13       IF $DATA(ABMY("VTYP"))

               IF ABMY("VTYP")'=ABM("V")

                   QUIT 

 +14       IF $DATA(ABMY("INS"))

               IF ABMY("INS")'=ABM("I")

                   QUIT 

 +15       IF $GET(ABMY("PTYP"))=2

               IF $PIECE($GET(^AUPNPAT(ABM("P"),11)),U,12)'="I"

                   QUIT 

 +16       IF $GET(ABMY("PTYP"))=1

               IF $PIECE($GET(^AUPNPAT(ABM("P"),11)),U,12)="I"

                   QUIT 

 +17       IF $DATA(ABMY("TYP"))

               IF ABM("I")=""

                   QUIT 

               IF ABMY("TYP")="P"

                   SET ABMY("TYP")="PFHM"

               IF ABMY("TYP")'[$PIECE($GET(^AUTNINS(+ABM("I"),2)),U)

                   QUIT 

 +18       IF $DATA(ABMY("DT"))

               IF ABM("D")<ABMY("DT",1)!(ABM("D")>ABMY("DT",2))

                   QUIT 

 +19       KILL ABMQFLG

 +20      ;range of patients--are you in...or out?

           IF $DATA(ABMY("RNG"))

               Begin DoDot:1

 +21               KILL ABMPTST,ABMPCE,ABMPTST("TST")

 +22      ;first three letters

                   SET ABMPTST=$EXTRACT($PIECE($GET(^DPT(ABM("P"),0)),U),1,3)

 +23               FOR ABMI=1,2

                       Begin DoDot:2

 +24                       FOR ABMJ=1:1:3

                               Begin DoDot:3

 +25                               SET ABMPCE(ABMI)=$GET(ABMPCE(ABMI))_$ASCII($EXTRACT(ABMY("RNG",ABMI),ABMJ))

                               End DoDot:3

                       End DoDot:2

 +26               FOR ABMJ=1:1:3

                       SET ABMPTST("TST")=$GET(ABMPTST("TST"))_$ASCII($EXTRACT(ABMPTST,ABMJ))

 +27               IF (ABMPTST("TST")<ABMPCE(1))!(ABMPTST("TST")>ABMPCE(2))

                       SET ABMQFLG=1

               End DoDot:1

 +28       IF $GET(ABMQFLG)=1

               QUIT 

 +29       SET ABMP("HIT")=1

 +30       QUIT