- 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
