ABPAEEC1.m

ABPAEEC1 ;ENTER/EDT/PVT INS CLAIMS - PART 2; [ 07/09/91  11:21 AM ]

 ;;1.4;AO PVT-INS TRACKING;*0*;IHS-OKC/KJR;JULY 25, 1991

 Q  ;;NOT AN ENTRY POINT

WRITE F ABPAJ=3:1 Q:$P(ABPATEXT,";",ABPAJ)=""  D

 .S @("P"_ABPAJ)=$P(ABPATEXT,";",ABPAJ)

 W ! S DX=P5,DY=P6 S:IOST["QUME" DY=DY+1 X XY

 W P3,$J(P4,22) W:$D(ABPAEOL)=1 @(ABPAEOL)

 I $D(P7)=1 W " " W:$D(@P7)=1 @P7

 Q

 ;

REVON S DX=0,DY=19 W ! X XY D EOP^ABPAMAIN W:IOST["QUME" !

 W:$D(ABPARON) @(ABPARON)

 Q

 ;

SCREEN S ABPAHD1="ENTER/EDIT CLAIM DATA" D HEADER^ABPAMAIN

 F ABPAI=1:1 S ABPATEXT=$T(PROMPT+ABPAI) Q:ABPATEXT=""  D WRITE

 W !,ABPALL

 Q

 ;

EDIT D REVON W "Select FIELD NUMBER to edit (4 - 8)"

 W:$D(ABPARON)=1 @(ABPAROFF)

 R !,"FIELD NUMBER: ",ABPAI:DTIME I $T=0!(ABPAI["^")!(ABPAI="") G XIT

 I ABPAI["?" D  G EDIT

 .W "  -- ENTER A NUMBER BETWEEN 4 AND 8" H 3

 I +ABPAI>0&(+ABPAI<4) D  G EDIT

 .W *7,"  --  SORRY, YOU ARE NOT ALLOWED TO CHANGE THIS FIELD" H 3

 I +ABPAI=0!(+ABPAI>8) D  G EDIT

 .W *7,"  -- INVAILID SELECTION" H 3

 S LBL="FLD"_+ABPAI K DIC,DIE,DA,DR,X,Y D @LBL

 G EDIT

 ;

FLD4 S DA(1)=+ABPATDFN,DA=+ABPACDFN,DIE="^ABPVAO("_DA(1)_",1,",DR=.01

 S DIE("NO^")="" D REVON W "Enter the DATE OF SERVICE being billed"

 W:$D(ABPARON)=1 @(ABPAROFF)

 D ^DIE K DIC S DIC="^ABPVAO("_DA(1)_",1,",DIC(0)="Z"

 W:$D(ABPARON)=1 @(ABPAROFF)

 D ^DIC S ABPADOS=Y(0,0)

 D:$Y>3 SCREEN S ABPATEXT=$T(PROMPT+4) D WRITE

 Q

 ;

FLD5 S DA(1)=+ABPATDFN,DA=+ABPACDFN,DIE="^ABPVAO("_DA(1)_",1,",DR=.04

 S DIE("NO^")="" D REVON

 S ABPAMESS="VISIT TYPE - ""O"", ""I"", ""P"", or ""D""" W ABPAMESS

 W:$D(ABPARON)=1 @(ABPAROFF)

 D ^DIE S ABPATYPE=X

 I ABPATYPE="O" D

 .S ABPATYPE="OUTPATIENT",DR=".05////1" D ^DIE S ABPADV=1

 S:ABPATYPE="I" ABPATYPE="INPATIENT (HOSPITAL ONLY)"

 I ABPATYPE="P" D

 .S ABPATYPE="INPATIENT (PHYSICIAN ONLY)",DR=".05////0" D ^DIE

 .S ABPADV=0

 I ABPATYPE="D" D

 .S ABPATYPE="DENTAL",DR=".05////1" D ^DIE S ABPADV=1

 D:$Y>21 SCREEN S ABPATEXT=$T(PROMPT+5) D WRITE

 I ABPATYPE["HOSPITAL" G FLD6

 S ABPATEXT=$T(PROMPT+6) D WRITE

 Q

 ;

FLD6 I ABPATYPE["PHYSICIAN" D  Q

 .W *7," - Cannot edit in-patient physician workload  " H 3

 I ABPATYPE["OUTPATIENT" D  Q

 .W *7," - Cannot edit out-patient workload  " H 3

 I ABPATYPE["DENTAL" D  Q

 .W *7," - Cannot edit dental workload  " H 3

 S DA(1)=+ABPATDFN,DA=+ABPACDFN,DIE="^ABPVAO("_DA(1)_",1,",DR=.05

 S DIE("NO^")="" D REVON

 W "Number of outpatient VISITS or inpatient DAYS (0 - 50)"

 W:$D(ABPARON) @(ABPAROFF)

 D ^DIE S ABPADV=X

 I ((ABPATYPE["INPATIENT")!(ABPATYPE["DENTAL"))&(+ABPADV'>0) D  G FLD6

 .W *7," - Workload must be greater than zero  " H 3

 D:$Y>21 SCREEN S ABPATEXT=$T(PROMPT+6) D WRITE

 Q

 ;

FLD7 S DA(1)=+ABPATDFN,DA=+ABPACDFN,DIE="^ABPVAO("_DA(1)_",1,",DR=.06

 S DIE("NO^")="" D REVON

 W "Name of the INSURANCE COMPANY being billed"

 W:$D(ABPARON)=1 @(ABPAROFF)

 D ^DIE S ABPAINS=X,ABPAINS=$P(^AUTNINS(+ABPAINS,0),"^")

 S DR=.062 D ^DIE S ABPAPHNM=X

 S DR=.064 D ^DIE S ABPAPNUM=X

 D:$Y>3 SCREEN S ABPATEXT=$T(PROMPT+7) D WRITE

 Q

 ;

FLD8 S DA(1)=+ABPATDFN,DA=+ABPACDFN,DIE="^ABPVAO("_DA(1)_",1,",DR=.07

 S DIE("NO^")="" D REVON

 W "Enter the dollar AMOUNT being claimed (0 - 99999)"

 W:$D(ABPARON)=1 @(ABPAROFF) D ^DIE

 S ABPAAMT="$"_$J(X,8,2) D:$Y>3 SCREEN S ABPATEXT=$T(PROMPT+8) D WRITE

 Q

 ;

FLD9 S DA(1)=+ABPATDFN,DA=+ABPACDFN,DIE="^ABPVAO("_DA(1)_",1,",DR=".11R~T"

 S DIE("NO^")="" D REVON

 W "Enter the date of the BILL LOG where this bill can be found"

 W:$D(ABPARON)=1 @(ABPAROFF) D ^DIE S DR=".115///"_X D ^DIE

 Q

 ;

XIT G START^ABPAEEC0

 ;

PROMPT ;;FLD #;TITLE;X-POSITION;Y-POSITION;VARIABLE NAME

 ;;(1)   ;Patient Name:;7;8;ABPAPNAM

 ;;(2)   ;Facility:;7;9;ABPAFAC

 ;;(3)   ;Health Record Number:;7;10;ABPAHRN

 ;;(4)   ;Date of Service:;7;11;ABPADOS

 ;;(5)   ;Visit Type:;7;12;ABPATYPE

 ;;(6)   ;Days or Visits:;7;13;ABPADV

 ;;(7)   ;Insurance Company:;7;14;ABPAINS

 ;;   (a);Policy Holder Name:;7;15;ABPAPHNM

 ;;   (b);Policy Number:;7;16;ABPAPNUM

 ;;(8)   ;Claim Amount:;7;17;ABPAAMT

ABPAEEC1  ;ENTER/EDT/PVT INS CLAIMS - PART 2; [ 07/09/91  11:21 AM ]

 +1       ;;1.4;AO PVT-INS TRACKING;*0*;IHS-OKC/KJR;JULY 25, 1991

 +2       ;;NOT AN ENTRY POINT

           QUIT 

WRITE      FOR ABPAJ=3:1

               IF $PIECE(ABPATEXT,";",ABPAJ)=""

                   QUIT 

               Begin DoDot:1

 +1                SET @("P"_ABPAJ)=$PIECE(ABPATEXT,";",ABPAJ)

               End DoDot:1

 +2        WRITE !

           SET DX=P5

           SET DY=P6

           IF IOST["QUME"

               SET DY=DY+1

           XECUTE XY

 +3        WRITE P3,$JUSTIFY(P4,22)

           IF $DATA(ABPAEOL)=1

               WRITE @(ABPAEOL)

 +4        IF $DATA(P7)=1

               WRITE " "

               IF $DATA(@P7)=1

                   WRITE @P7

 +5        QUIT 

 +6       ;

REVON      SET DX=0

           SET DY=19

           WRITE !

           XECUTE XY

           DO EOP^ABPAMAIN

           IF IOST["QUME"

               WRITE !

 +1        IF $DATA(ABPARON)

               WRITE @(ABPARON)

 +2        QUIT 

 +3       ;

SCREEN     SET ABPAHD1="ENTER/EDIT CLAIM DATA"

           DO HEADER^ABPAMAIN

 +1        FOR ABPAI=1:1

               SET ABPATEXT=$TEXT(PROMPT+ABPAI)

               IF ABPATEXT=""

                   QUIT 

               DO WRITE

 +2        WRITE !,ABPALL

 +3        QUIT 

 +4       ;

EDIT       DO REVON

           WRITE "Select FIELD NUMBER to edit (4 - 8)"

 +1        IF $DATA(ABPARON)=1

               WRITE @(ABPAROFF)

 +2        READ !,"FIELD NUMBER: ",ABPAI:DTIME

           IF $TEST=0!(ABPAI["^")!(ABPAI="")

               GOTO XIT

 +3        IF ABPAI["?"

               Begin DoDot:1

 +4                WRITE "  -- ENTER A NUMBER BETWEEN 4 AND 8"

                   HANG 3

               End DoDot:1

               GOTO EDIT

 +5        IF +ABPAI>0&(+ABPAI<4)

               Begin DoDot:1

 +6                WRITE *7,"  --  SORRY, YOU ARE NOT ALLOWED TO CHANGE THIS FIELD"

                   HANG 3

               End DoDot:1

               GOTO EDIT

 +7        IF +ABPAI=0!(+ABPAI>8)

               Begin DoDot:1

 +8                WRITE *7,"  -- INVAILID SELECTION"

                   HANG 3

               End DoDot:1

               GOTO EDIT

 +9        SET LBL="FLD"_+ABPAI

           KILL DIC,DIE,DA,DR,X,Y

           DO @LBL

 +10       GOTO EDIT

 +11      ;

FLD4       SET DA(1)=+ABPATDFN

           SET DA=+ABPACDFN

           SET DIE="^ABPVAO("_DA(1)_",1,"

           SET DR=.01

 +1        SET DIE("NO^")=""

           DO REVON

           WRITE "Enter the DATE OF SERVICE being billed"

 +2        IF $DATA(ABPARON)=1

               WRITE @(ABPAROFF)

 +3        DO ^DIE

           KILL DIC

           SET DIC="^ABPVAO("_DA(1)_",1,"

           SET DIC(0)="Z"

 +4        IF $DATA(ABPARON)=1

               WRITE @(ABPAROFF)

 +5        DO ^DIC

           SET ABPADOS=Y(0,0)

 +6        IF $Y>3

               DO SCREEN

           SET ABPATEXT=$TEXT(PROMPT+4)

           DO WRITE

 +7        QUIT 

 +8       ;

FLD5       SET DA(1)=+ABPATDFN

           SET DA=+ABPACDFN

           SET DIE="^ABPVAO("_DA(1)_",1,"

           SET DR=.04

 +1        SET DIE("NO^")=""

           DO REVON

 +2        SET ABPAMESS="VISIT TYPE - ""O"", ""I"", ""P"", or ""D"""

           WRITE ABPAMESS

 +3        IF $DATA(ABPARON)=1

               WRITE @(ABPAROFF)

 +4        DO ^DIE

           SET ABPATYPE=X

 +5        IF ABPATYPE="O"

               Begin DoDot:1

 +6                SET ABPATYPE="OUTPATIENT"

                   SET DR=".05////1"

                   DO ^DIE

                   SET ABPADV=1

               End DoDot:1

 +7        IF ABPATYPE="I"

               SET ABPATYPE="INPATIENT (HOSPITAL ONLY)"

 +8        IF ABPATYPE="P"

               Begin DoDot:1

 +9                SET ABPATYPE="INPATIENT (PHYSICIAN ONLY)"

                   SET DR=".05////0"

                   DO ^DIE

 +10               SET ABPADV=0

               End DoDot:1

 +11       IF ABPATYPE="D"

               Begin DoDot:1

 +12               SET ABPATYPE="DENTAL"

                   SET DR=".05////1"

                   DO ^DIE

                   SET ABPADV=1

               End DoDot:1

 +13       IF $Y>21

               DO SCREEN

           SET ABPATEXT=$TEXT(PROMPT+5)

           DO WRITE

 +14       IF ABPATYPE["HOSPITAL"

               GOTO FLD6

 +15       SET ABPATEXT=$TEXT(PROMPT+6)

           DO WRITE

 +16       QUIT 

 +17      ;

FLD6       IF ABPATYPE["PHYSICIAN"

               Begin DoDot:1

 +1                WRITE *7," - Cannot edit in-patient physician workload  "

                   HANG 3

               End DoDot:1

               QUIT 

 +2        IF ABPATYPE["OUTPATIENT"

               Begin DoDot:1

 +3                WRITE *7," - Cannot edit out-patient workload  "

                   HANG 3

               End DoDot:1

               QUIT 

 +4        IF ABPATYPE["DENTAL"

               Begin DoDot:1

 +5                WRITE *7," - Cannot edit dental workload  "

                   HANG 3

               End DoDot:1

               QUIT 

 +6        SET DA(1)=+ABPATDFN

           SET DA=+ABPACDFN

           SET DIE="^ABPVAO("_DA(1)_",1,"

           SET DR=.05

 +7        SET DIE("NO^")=""

           DO REVON

 +8        WRITE "Number of outpatient VISITS or inpatient DAYS (0 - 50)"

 +9        IF $DATA(ABPARON)

               WRITE @(ABPAROFF)

 +10       DO ^DIE

           SET ABPADV=X

 +11       IF ((ABPATYPE["INPATIENT")!(ABPATYPE["DENTAL"))&(+ABPADV'>0)

               Begin DoDot:1

 +12               WRITE *7," - Workload must be greater than zero  "

                   HANG 3

               End DoDot:1

               GOTO FLD6

 +13       IF $Y>21

               DO SCREEN

           SET ABPATEXT=$TEXT(PROMPT+6)

           DO WRITE

 +14       QUIT 

 +15      ;

FLD7       SET DA(1)=+ABPATDFN

           SET DA=+ABPACDFN

           SET DIE="^ABPVAO("_DA(1)_",1,"

           SET DR=.06

 +1        SET DIE("NO^")=""

           DO REVON

 +2        WRITE "Name of the INSURANCE COMPANY being billed"

 +3        IF $DATA(ABPARON)=1

               WRITE @(ABPAROFF)

 +4        DO ^DIE

           SET ABPAINS=X

           SET ABPAINS=$PIECE(^AUTNINS(+ABPAINS,0),"^")

 +5        SET DR=.062

           DO ^DIE

           SET ABPAPHNM=X

 +6        SET DR=.064

           DO ^DIE

           SET ABPAPNUM=X

 +7        IF $Y>3

               DO SCREEN

           SET ABPATEXT=$TEXT(PROMPT+7)

           DO WRITE

 +8        QUIT 

 +9       ;

FLD8       SET DA(1)=+ABPATDFN

           SET DA=+ABPACDFN

           SET DIE="^ABPVAO("_DA(1)_",1,"

           SET DR=.07

 +1        SET DIE("NO^")=""

           DO REVON

 +2        WRITE "Enter the dollar AMOUNT being claimed (0 - 99999)"

 +3        IF $DATA(ABPARON)=1

               WRITE @(ABPAROFF)

           DO ^DIE

 +4        SET ABPAAMT="$"_$JUSTIFY(X,8,2)

           IF $Y>3

               DO SCREEN

           SET ABPATEXT=$TEXT(PROMPT+8)

           DO WRITE

 +5        QUIT 

 +6       ;

FLD9       SET DA(1)=+ABPATDFN

           SET DA=+ABPACDFN

           SET DIE="^ABPVAO("_DA(1)_",1,"

           SET DR=".11R~T"

 +1        SET DIE("NO^")=""

           DO REVON

 +2        WRITE "Enter the date of the BILL LOG where this bill can be found"

 +3        IF $DATA(ABPARON)=1

               WRITE @(ABPAROFF)

           DO ^DIE

           SET DR=".115///"_X

           DO ^DIE

 +4        QUIT 

 +5       ;

XIT        GOTO START^ABPAEEC0

 +1       ;

PROMPT    ;;FLD #;TITLE;X-POSITION;Y-POSITION;VARIABLE NAME

 +1       ;;(1)   ;Patient Name:;7;8;ABPAPNAM

 +2       ;;(2)   ;Facility:;7;9;ABPAFAC

 +3       ;;(3)   ;Health Record Number:;7;10;ABPAHRN

 +4       ;;(4)   ;Date of Service:;7;11;ABPADOS

 +5       ;;(5)   ;Visit Type:;7;12;ABPATYPE

 +6       ;;(6)   ;Days or Visits:;7;13;ABPADV

 +7       ;;(7)   ;Insurance Company:;7;14;ABPAINS

 +8       ;;   (a);Policy Holder Name:;7;15;ABPAPHNM

 +9       ;;   (b);Policy Number:;7;16;ABPAPNUM

 +10      ;;(8)   ;Claim Amount:;7;17;ABPAAMT