ABMDE31X.m

ABMDE31X ; IHS/SD/SDR - ERROR CHECKING - PAGE 3A ;      

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

 ;

 ; IHS/SD/SDR - v2.5 p8 - task 6

 ;   New routine to do error checking on page 3A

 ; IHS/SD/SDR - v2.6 CSV

 ;

 S ABMAREC=$G(^ABMDCLM(DUZ(2),ABMP("CDFN"),12))  ;ambulance info

 I $P(ABMAREC,U,2)="" S ABME(204)=""

 I $P(ABMAREC,U,6)="" S ABME(205)=""

 I $P(ABMAREC,U,7)="" S ABME(206)=""

 I $P(ABMAREC,U,15)="" S ABME(207)=""

 I $P(ABMAREC,U,11)="" D

 .S ABMCIEN=0

 .S ABMCFLG=0

 .F ABMSUBF=43,47 D

 ..F  S ABMCIEN=$O(^ABMDCLM(DUZ(2),ABMP("CDFN"),ABMSUBF,"B",ABMCIEN)) Q:ABMCIEN=""  D  Q:ABMCFLG=1

 ...I $P($$CPT^ABMCVAPI(ABMCIEN,ABMP("VDT")),U,2)="A0424" S ABMCFLG=1  ;CSV-c

 .I ABMCFLG=1 S ABME(208)=""

 K ABMCIEN,ABMCFLG

 I $P(ABMAREC,U,8)=""&($P(ABMAREC,U,9)="") S ABME(211)=""

XIT Q

ERR ;

 D ABMDE31X

 S ABME("TITL")="PAGE 3A - AMBULANCE QUESTIONS"

 G XIT

 Q

ABMDE31X  ; IHS/SD/SDR - ERROR CHECKING - PAGE 3A ;      

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

 +2       ;

 +3       ; IHS/SD/SDR - v2.5 p8 - task 6

 +4       ;   New routine to do error checking on page 3A

 +5       ; IHS/SD/SDR - v2.6 CSV

 +6       ;

 +7       ;ambulance info

           SET ABMAREC=$GET(^ABMDCLM(DUZ(2),ABMP("CDFN"),12))

 +8        IF $PIECE(ABMAREC,U,2)=""

               SET ABME(204)=""

 +9        IF $PIECE(ABMAREC,U,6)=""

               SET ABME(205)=""

 +10       IF $PIECE(ABMAREC,U,7)=""

               SET ABME(206)=""

 +11       IF $PIECE(ABMAREC,U,15)=""

               SET ABME(207)=""

 +12       IF $PIECE(ABMAREC,U,11)=""

               Begin DoDot:1

 +13               SET ABMCIEN=0

 +14               SET ABMCFLG=0

 +15               FOR ABMSUBF=43,47

                       Begin DoDot:2

 +16                       FOR 

                               SET ABMCIEN=$ORDER(^ABMDCLM(DUZ(2),ABMP("CDFN"),ABMSUBF,"B",ABMCIEN))

                               IF ABMCIEN=""

                                   QUIT 

                               Begin DoDot:3

 +17      ;CSV-c

                                   IF $PIECE($$CPT^ABMCVAPI(ABMCIEN,ABMP("VDT")),U,2)="A0424"

                                       SET ABMCFLG=1

                               End DoDot:3

                               IF ABMCFLG=1

                                   QUIT 

                       End DoDot:2

 +18               IF ABMCFLG=1

                       SET ABME(208)=""

               End DoDot:1

 +19       KILL ABMCIEN,ABMCFLG

 +20       IF $PIECE(ABMAREC,U,8)=""&($PIECE(ABMAREC,U,9)="")

               SET ABME(211)=""

XIT        QUIT 

ERR       ;

 +1        DO ABMDE31X

 +2        SET ABME("TITL")="PAGE 3A - AMBULANCE QUESTIONS"

 +3        GOTO XIT

 +4        QUIT