ABPVEEC1.m

ABPVEEC1 ;ENTER/EDIT PVT INS CLAIMS - PART 2; [ 06/06/91  8:34 AM ]

 ;;2.0;FACILITY PVT-INS TRACKING;*0*;IHS-OKC/KJR;AUGUST 7, 1991

 Q  ;;NOT AN ENTRY POINT

WRITE F ABPVJ=3:1 Q:$P(ABPVTEXT,";",ABPVJ)=""  D

 .S @("P"_ABPVJ)=$P(ABPVTEXT,";",ABPVJ)

 W ! S DX=P5,DY=P6 S:IOST["QUME" DY=DY+1 X XY W P3,$J(P4,22)

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

 Q

 ;

REVON S DX=0,DY=18 W ! X XY D EOP^ABPVZMM

 W:$D(ABPVRON) @(ABPVRON)

 Q

 ;

SCREEN S ABPV("HD",1)=ABPVTLE,ABPV("HD",2)="Enter/Edit Claim"

 I $D(ABPVCDFN)=1 D

 .S ABPV("HD",2)=ABPV("HD",2)_" #"_$P(^ABPVFAC(ABPVCDFN,0),"^")

 D ^ABPVHD

 F ABPVI=1:1 S ABPVTEXT=$T(PROMPT+ABPVI) Q:ABPVTEXT=""  D WRITE

 W !,ABPVLL,!

 Q

 ;

EDIT I ABPVTXDT D  G XIT

 .D REVON W "Claim exported on "

 .S Y=ABPVTXDT X ^DD("DD") W Y,@ABPVROFF

 .D PAUSE^ABPVZMM

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

 W:$D(ABPVRON)=1 @(ABPVROFF)

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

 I ABPVI["?" D  G EDIT

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

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

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

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

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

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

 G EDIT

 ;

FLD4 S DA=+ABPVCDFN,DIE="^ABPVFAC(",DR=2

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

 W:$D(ABPVRON)=1 @(ABPVROFF)

 D ^DIE K DIC S DIC="^ABPVFAC(",DIC(0)="Z"

 W:$D(ABPVRON)=1 @(ABPVROFF)

 D ^DIC I +X>0 S ABPVDOS=$E(X,4,5)_"/"_$E(X,6,7)_"/"_$E(X,2,3)

 D:$Y>21 SCREEN S ABPVTEXT=$T(PROMPT+4) D WRITE

 Q

 ;

FLD5 S DA=+ABPVCDFN,DIE="^ABPVFAC(",DR=5

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

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

 W:$D(ABPVRON)=1 @(ABPVROFF)

 D ^DIE S ABPVTYPE=X

 I ABPVTYPE="O" D

 .S ABPVTYPE="OUTPATIENT",DR="6////1" D ^DIE S ABPVDV=1

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

 I ABPVTYPE="P" D

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

 .S ABPVDV=0

 I ABPVTYPE="D" D

 .S ABPVTYPE="DENTAL",DR="6////1" D ^DIE S ABPVDV=1

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

 I ABPVTYPE["HOSPITAL" G FLD6

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

 Q

 ;

FLD6 I ABPVTYPE["PHYSICIAN" D  Q

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

 I ABPVTYPE["OUTPATIENT" D  Q

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

 I ABPVTYPE["DENTAL" D  Q

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

 S DA=+ABPVCDFN,DIE="^ABPVFAC(",DR=6

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

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

 W:$D(ABPVRON) @(ABPVROFF)

 D ^DIE S ABPVDV=X

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

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

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

 Q

 ;

FLD7 S DA=+ABPVCDFN,DIE="^ABPVFAC(",DR=7

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

 W "Name of the INSURANCE COMPANY being billed"

 W:$D(ABPVRON)=1 @(ABPVROFF)

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

 S DR=7.03 D ^DIE S ABPVPHNM=X,DR=7.05 D ^DIE S ABPVPNUM=X

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

 Q

 ;

FLD8 S DA=+ABPVCDFN,DIE="^ABPVFAC(",DR=8

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

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

 W:$D(ABPVRON)=1 @(ABPVROFF) D ^DIE S ABPVAMT="$"_$J(X,8,2)

 D:$Y>21 SCREEN S ABPVTEXT=$T(PROMPT+10) D WRITE

 Q

 ;

XIT G MAIN^ABPVEEC0

 ;

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

 ;;(1)   ;Patient Name:;7;7;ABPVPNAM

 ;;(2)   ;Facility:;7;8;ABPVFAC

 ;;(3)   ;Health Record Number:;7;9;ABPVHRN

 ;;(4)   ;Date of Service:;7;10;ABPVDOS

 ;;(5)   ;Visit Type:;7;11;ABPVTYPE

 ;;(6)   ;Days or Visits:;7;12;ABPVDV

 ;;(7)   ;Insurance Company:;7;13;ABPVINS

 ;;   (a);Policy Holder Name:;7;14;ABPVPHNM

 ;;   (b);Policy Number:;7;15;ABPVPNUM

 ;;(8)   ;Claim Amount:;7;16;ABPVAMT

ABPVEEC1  ;ENTER/EDIT PVT INS CLAIMS - PART 2; [ 06/06/91  8:34 AM ]

 +1       ;;2.0;FACILITY PVT-INS TRACKING;*0*;IHS-OKC/KJR;AUGUST 7, 1991

 +2       ;;NOT AN ENTRY POINT

           QUIT 

WRITE      FOR ABPVJ=3:1

               IF $PIECE(ABPVTEXT,";",ABPVJ)=""

                   QUIT 

               Begin DoDot:1

 +1                SET @("P"_ABPVJ)=$PIECE(ABPVTEXT,";",ABPVJ)

               End DoDot:1

 +2        WRITE !

           SET DX=P5

           SET DY=P6

           IF IOST["QUME"

               SET DY=DY+1

           XECUTE XY

           WRITE P3,$JUSTIFY(P4,22)

 +3        IF $DATA(P7)=1

               WRITE " "

               IF $DATA(@P7)=1

                   WRITE @P7

 +4        QUIT 

 +5       ;

REVON      SET DX=0

           SET DY=18

           WRITE !

           XECUTE XY

           DO EOP^ABPVZMM

 +1        IF $DATA(ABPVRON)

               WRITE @(ABPVRON)

 +2        QUIT 

 +3       ;

SCREEN     SET ABPV("HD",1)=ABPVTLE

           SET ABPV("HD",2)="Enter/Edit Claim"

 +1        IF $DATA(ABPVCDFN)=1

               Begin DoDot:1

 +2                SET ABPV("HD",2)=ABPV("HD",2)_" #"_$PIECE(^ABPVFAC(ABPVCDFN,0),"^")

               End DoDot:1

 +3        DO ^ABPVHD

 +4        FOR ABPVI=1:1

               SET ABPVTEXT=$TEXT(PROMPT+ABPVI)

               IF ABPVTEXT=""

                   QUIT 

               DO WRITE

 +5        WRITE !,ABPVLL,!

 +6        QUIT 

 +7       ;

EDIT       IF ABPVTXDT

               Begin DoDot:1

 +1                DO REVON

                   WRITE "Claim exported on "

 +2                SET Y=ABPVTXDT

                   XECUTE ^DD("DD")

                   WRITE Y,@ABPVROFF

 +3                DO PAUSE^ABPVZMM

               End DoDot:1

               GOTO XIT

 +4        DO REVON

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

 +5        IF $DATA(ABPVRON)=1

               WRITE @(ABPVROFF)

 +6        READ !,"FIELD NUMBER: ",ABPVI:DTIME

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

               GOTO XIT

 +7        IF ABPVI["?"

               Begin DoDot:1

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

                   HANG 3

               End DoDot:1

               GOTO EDIT

 +9        IF +ABPVI>0&(+ABPVI<4)

               Begin DoDot:1

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

                   HANG 3

               End DoDot:1

               GOTO EDIT

 +11       IF +ABPVI=0!(+ABPVI>8)

               Begin DoDot:1

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

                   HANG 3

               End DoDot:1

               GOTO EDIT

 +13       SET LBL="FLD"_+ABPVI

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

           DO @LBL

 +14       GOTO EDIT

 +15      ;

FLD4       SET DA=+ABPVCDFN

           SET DIE="^ABPVFAC("

           SET DR=2

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

           DO REVON

           WRITE "Enter the DATE OF SERVICE being billed"

 +2        IF $DATA(ABPVRON)=1

               WRITE @(ABPVROFF)

 +3        DO ^DIE

           KILL DIC

           SET DIC="^ABPVFAC("

           SET DIC(0)="Z"

 +4        IF $DATA(ABPVRON)=1

               WRITE @(ABPVROFF)

 +5        DO ^DIC

           IF +X>0

               SET ABPVDOS=$EXTRACT(X,4,5)_"/"_$EXTRACT(X,6,7)_"/"_$EXTRACT(X,2,3)

 +6        IF $Y>21

               DO SCREEN

           SET ABPVTEXT=$TEXT(PROMPT+4)

           DO WRITE

 +7        QUIT 

 +8       ;

FLD5       SET DA=+ABPVCDFN

           SET DIE="^ABPVFAC("

           SET DR=5

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

           DO REVON

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

           WRITE ABPVMESS

 +3        IF $DATA(ABPVRON)=1

               WRITE @(ABPVROFF)

 +4        DO ^DIE

           SET ABPVTYPE=X

 +5        IF ABPVTYPE="O"

               Begin DoDot:1

 +6                SET ABPVTYPE="OUTPATIENT"

                   SET DR="6////1"

                   DO ^DIE

                   SET ABPVDV=1

               End DoDot:1

 +7        IF ABPVTYPE="I"

               SET ABPVTYPE="INPATIENT (HOSPITAL ONLY)"

 +8        IF ABPVTYPE="P"

               Begin DoDot:1

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

                   SET DR="6////0"

                   DO ^DIE

 +10               SET ABPVDV=0

               End DoDot:1

 +11       IF ABPVTYPE="D"

               Begin DoDot:1

 +12               SET ABPVTYPE="DENTAL"

                   SET DR="6////1"

                   DO ^DIE

                   SET ABPVDV=1

               End DoDot:1

 +13       IF $Y>21

               DO SCREEN

           SET ABPVTEXT=$TEXT(PROMPT+5)

           DO WRITE

 +14       IF ABPVTYPE["HOSPITAL"

               GOTO FLD6

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

           DO WRITE

 +16       QUIT 

 +17      ;

FLD6       IF ABPVTYPE["PHYSICIAN"

               Begin DoDot:1

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

                   HANG 3

               End DoDot:1

               QUIT 

 +2        IF ABPVTYPE["OUTPATIENT"

               Begin DoDot:1

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

                   HANG 3

               End DoDot:1

               QUIT 

 +4        IF ABPVTYPE["DENTAL"

               Begin DoDot:1

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

                   HANG 3

               End DoDot:1

               QUIT 

 +6        SET DA=+ABPVCDFN

           SET DIE="^ABPVFAC("

           SET DR=6

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

           DO REVON

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

 +9        IF $DATA(ABPVRON)

               WRITE @(ABPVROFF)

 +10       DO ^DIE

           SET ABPVDV=X

 +11       IF ((ABPVTYPE["INPATIENT")!(ABPVTYPE["DENTAL"))&(+ABPVDV'>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 ABPVTEXT=$TEXT(PROMPT+6)

           DO WRITE

 +14       QUIT 

 +15      ;

FLD7       SET DA=+ABPVCDFN

           SET DIE="^ABPVFAC("

           SET DR=7

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

           DO REVON

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

 +3        IF $DATA(ABPVRON)=1

               WRITE @(ABPVROFF)

 +4        DO ^DIE

           SET ABPVINS=X

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

 +5        SET DR=7.03

           DO ^DIE

           SET ABPVPHNM=X

           SET DR=7.05

           DO ^DIE

           SET ABPVPNUM=X

 +6        IF $Y>3

               DO SCREEN

           SET ABPVTEXT=$TEXT(PROMPT+7)

           DO WRITE

 +7        QUIT 

 +8       ;

FLD8       SET DA=+ABPVCDFN

           SET DIE="^ABPVFAC("

           SET DR=8

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

           DO REVON

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

 +3        IF $DATA(ABPVRON)=1

               WRITE @(ABPVROFF)

           DO ^DIE

           SET ABPVAMT="$"_$JUSTIFY(X,8,2)

 +4        IF $Y>21

               DO SCREEN

           SET ABPVTEXT=$TEXT(PROMPT+10)

           DO WRITE

 +5        QUIT 

 +6       ;

XIT        GOTO MAIN^ABPVEEC0

 +1       ;

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

 +1       ;;(1)   ;Patient Name:;7;7;ABPVPNAM

 +2       ;;(2)   ;Facility:;7;8;ABPVFAC

 +3       ;;(3)   ;Health Record Number:;7;9;ABPVHRN

 +4       ;;(4)   ;Date of Service:;7;10;ABPVDOS

 +5       ;;(5)   ;Visit Type:;7;11;ABPVTYPE

 +6       ;;(6)   ;Days or Visits:;7;12;ABPVDV

 +7       ;;(7)   ;Insurance Company:;7;13;ABPVINS

 +8       ;;   (a);Policy Holder Name:;7;14;ABPVPHNM

 +9       ;;   (b);Policy Number:;7;15;ABPVPNUM

 +10      ;;(8)   ;Claim Amount:;7;16;ABPVAMT