ABMDTINQ.m

ABMDTINQ ; IHS/ASDST/DMJ - Inquire UTILITY ;  

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

 ;

 ; IHS/DSD/MRS - Patch 1 - NOIS QDA-299-130004 3/20/1999

 ;               Modified to change insurer look up to pull visit type

 ;               from abmnins instead of autnins

 ;

LOC ;EP for displaying Location Record

 S ABM("SUB")="LOCATION" D HD S DIC="^AUTTLOC(" G DIC

CPT ;EP for displaying CPT Record

 S ABM("SUB")="CPT PROCEDURE" D HD S DIC="^ICPT(" G DIC

INS ;EP for displaying Insurer Record

 S ABM("SUB")="INSURER" D HD S DIC="^AUTNINS(" D DIC Q

PRV ;EP for displaying Provider Record

 S ABM("SUB")="PROVIDER" D HD S DIC="^VA(200,",DIC("S")="I $D(^(""PS""))" G DIC

 ;

BILL ;EP for displaying Bill Record

 D ^ABMDBDIC

 G XIT:'$G(ABMP("BDFN"))

 S ABM("SUB")="BILL"

 S DA=ABMP("BDFN")

 W $$EN^ABMVDF("IOF")

 W !?80-$L(ABM("SUB"))-21\2,"*** ",ABM("SUB")," FILE INQUIRY ***"

 S DIC="^ABMDBILL(DUZ(2),"

 S ABM=""

 S $P(ABM,"=",80)=""

 W !!,ABM

 K S

 D EN^DIQ

 W ABM

 G BILL

 ;

DRUG ;EP for displaying Drug Record

 S ABM("SUB")="DRUG" D HD S DIC="^PSDRUG(" G DIC

 ;

DIC W !! S DIC("A")="Select "_ABM("SUB")_": ",DIC(0)="QEAM" D ^DIC

 G XIT:X=""!(X["^")!$D(DUOUT)!$D(DTOUT)

 I +Y<1 G DIC

 S DA=+Y

 W $$EN^ABMVDF("IOF") W !?80-$L(ABM("SUB"))-21\2,"*** ",ABM("SUB")," FILE INQUIRY ***"

 S ABM="",$P(ABM,"=",80)="" W !!,ABM K S

 I DIC'["AUTNINS" D EN^DIQ W ABM G DIC

 S DR="0:31;43" D EN^DIQ ; Skip visit type node 39 in autnins

 ;S DIC="^ABMNINS(DUZ(2),",DR="1:2" D EN^DIQ ; Write it from abmnins  ;abm*2.6*6 5010

 S DIC="^ABMNINS(DUZ(2),",DR="1:2.5" D EN^DIQ ; Write it from abmnins  ;abm*2.6*6 5010

 W ABM

 G DIC

 ;

XIT K ABM,DIR,DIC,DIE

 Q

 ;

HD K DIC,DR

 Q

ABMDTINQ  ; IHS/ASDST/DMJ - Inquire UTILITY ;  

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

 +2       ;

 +3       ; IHS/DSD/MRS - Patch 1 - NOIS QDA-299-130004 3/20/1999

 +4       ;               Modified to change insurer look up to pull visit type

 +5       ;               from abmnins instead of autnins

 +6       ;

LOC       ;EP for displaying Location Record

 +1        SET ABM("SUB")="LOCATION"

           DO HD

           SET DIC="^AUTTLOC("

           GOTO DIC

CPT       ;EP for displaying CPT Record

 +1        SET ABM("SUB")="CPT PROCEDURE"

           DO HD

           SET DIC="^ICPT("

           GOTO DIC

INS       ;EP for displaying Insurer Record

 +1        SET ABM("SUB")="INSURER"

           DO HD

           SET DIC="^AUTNINS("

           DO DIC

           QUIT 

PRV       ;EP for displaying Provider Record

 +1        SET ABM("SUB")="PROVIDER"

           DO HD

           SET DIC="^VA(200,"

           SET DIC("S")="I $D(^(""PS""))"

           GOTO DIC

 +2       ;

BILL      ;EP for displaying Bill Record

 +1        DO ^ABMDBDIC

 +2        IF '$GET(ABMP("BDFN"))

               GOTO XIT

 +3        SET ABM("SUB")="BILL"

 +4        SET DA=ABMP("BDFN")

 +5        WRITE $$EN^ABMVDF("IOF")

 +6        WRITE !?80-$LENGTH(ABM("SUB"))-21\2,"*** ",ABM("SUB")," FILE INQUIRY ***"

 +7        SET DIC="^ABMDBILL(DUZ(2),"

 +8        SET ABM=""

 +9        SET $PIECE(ABM,"=",80)=""

 +10       WRITE !!,ABM

 +11       KILL S

 +12       DO EN^DIQ

 +13       WRITE ABM

 +14       GOTO BILL

 +15      ;

DRUG      ;EP for displaying Drug Record

 +1        SET ABM("SUB")="DRUG"

           DO HD

           SET DIC="^PSDRUG("

           GOTO DIC

 +2       ;

DIC        WRITE !!

           SET DIC("A")="Select "_ABM("SUB")_": "

           SET DIC(0)="QEAM"

           DO ^DIC

 +1        IF X=""!(X["^")!$DATA(DUOUT)!$DATA(DTOUT)

               GOTO XIT

 +2        IF +Y<1

               GOTO DIC

 +3        SET DA=+Y

 +4        WRITE $$EN^ABMVDF("IOF")

           WRITE !?80-$LENGTH(ABM("SUB"))-21\2,"*** ",ABM("SUB")," FILE INQUIRY ***"

 +5        SET ABM=""

           SET $PIECE(ABM,"=",80)=""

           WRITE !!,ABM

           KILL S

 +6        IF DIC'["AUTNINS"

               DO EN^DIQ

               WRITE ABM

               GOTO DIC

 +7       ; Skip visit type node 39 in autnins

           SET DR="0:31;43"

           DO EN^DIQ

 +8       ;S DIC="^ABMNINS(DUZ(2),",DR="1:2" D EN^DIQ ; Write it from abmnins  ;abm*2.6*6 5010

 +9       ; Write it from abmnins  ;abm*2.6*6 5010

           SET DIC="^ABMNINS(DUZ(2),"

           SET DR="1:2.5"

           DO EN^DIQ

 +10       WRITE ABM

 +11       GOTO DIC

 +12      ;

XIT        KILL ABM,DIR,DIC,DIE

 +1        QUIT 

 +2       ;

HD         KILL DIC,DR

 +1        QUIT