- ABMCHRPT ; IHS/SD/SDR - Clearing House report ;
- ;;2.6;IHS 3P BILLING SYSTEM;**6**;NOV 12, 2009
- ;
- START ;start
- W !!,"This report will print all Clearinghouse entries and their associated insurers,"
- W !,"as well as any fields that have been populated for that Clearinghouse."
- ;
- SEL ;
- S ABM("HD",0)="CLEARINGHOUSE LISTING"
- S ABM("PG")=0
- D ^ABMDRHD
- S ABMQ("RC")="COMPUTE^ABMCHRPT",ABMQ("RX")="POUT^ABMDRUTL",ABMQ("NS")="ABM"
- S ABMQ("RP")="PRINT^ABMCHRPT"
- D ^ABMDRDBQ
- Q
- ;
- COMPUTE ;EP - Entry Point for Setting up Data
- Q
- PRINT ;EP for printing data
- S ABMCHIEN=0
- D HDB
- F S ABMCHIEN=$O(^ABMRECVR(ABMCHIEN)) Q:'ABMCHIEN D Q:$D(DTOUT)!$D(DUOUT)!$D(DIROUT)
- .I $Y>(IOSL-5) D HD Q:$D(DTOUT)!$D(DUOUT)!$D(DIROUT) W " (cont)"
- .S ABMCH=$P($G(^ABMRECVR(ABMCHIEN,0)),U)
- .S ABMPAYID=$P($G(^ABMRECVR(ABMCHIEN,0)),U,2)
- .W !,ABMCH_" PAYER ID: ",ABMPAYID
- .S ABMINS=0
- .F S ABMINS=$O(^ABMRECVR(ABMCHIEN,1,ABMINS)) Q:'ABMINS D Q:$D(DTOUT)!$D(DUOUT)!$D(DIROUT)
- ..I $Y>(IOSL-5) D HD Q:$D(DTOUT)!$D(DUOUT)!$D(DIROUT) W " (cont)"
- ..S ABMINSN=$P($G(^AUTNINS(ABMINS,0)),U)
- ..S ABMIPYID=$P($G(^ABMRECVR(ABMCHIEN,1,ABMINS,0)),U,2)
- ..S ABMCONTN=$P($G(^AUTNINS(ABMINS,0)),U,8)
- ..S ABMEMCID=$P($G(^ABMNINS(DUZ(2),ABMINS,0)),U,2)
- ..W !,?3,ABMINSN
- ..W ?32,ABMIPYID
- ..W ?42
- ..W ?50,ABMCONTN
- ..W ?69,ABMEMCID
- .W !
- Q:$D(DIROUT)!($D(DUOUT))!($D(DTOUT))
- Q
- ;
- HD D PAZ^ABMDRUTL Q:$D(DTOUT)!$D(DUOUT)!$D(DIROUT)
- HDB S ABM("PG")=ABM("PG")+1 D WHD^ABMDRHD
- W !,"Clearinghouse"
- W !?3,"Insurer",?32,"Payer ID",?42,"EXP",?50,"AO CONTROL#",?69,"EMC SUB ID"
- S $P(ABM("LINE"),"-",80)="" W !,ABM("LINE") K ABM("LINE")
- Q
- ABMCHRPT ; IHS/SD/SDR - Clearing House report ;
- +1 ;;2.6;IHS 3P BILLING SYSTEM;**6**;NOV 12, 2009
- +2 ;
- START ;start
- +1 WRITE !!,"This report will print all Clearinghouse entries and their associated insurers,"
- +2 WRITE !,"as well as any fields that have been populated for that Clearinghouse."
- +3 ;
- SEL ;
- +1 SET ABM("HD",0)="CLEARINGHOUSE LISTING"
- +2 SET ABM("PG")=0
- +3 DO ^ABMDRHD
- +4 SET ABMQ("RC")="COMPUTE^ABMCHRPT"
- SET ABMQ("RX")="POUT^ABMDRUTL"
- SET ABMQ("NS")="ABM"
- +5 SET ABMQ("RP")="PRINT^ABMCHRPT"
- +6 DO ^ABMDRDBQ
- +7 QUIT
- +8 ;
- COMPUTE ;EP - Entry Point for Setting up Data
- +1 QUIT
- PRINT ;EP for printing data
- +1 SET ABMCHIEN=0
- +2 DO HDB
- +3 FOR
- SET ABMCHIEN=$ORDER(^ABMRECVR(ABMCHIEN))
- IF 'ABMCHIEN
- QUIT
- Begin DoDot:1
- +4 IF $Y>(IOSL-5)
- DO HD
- IF $DATA(DTOUT)!$DATA(DUOUT)!$DATA(DIROUT)
- QUIT
- WRITE " (cont)"
- +5 SET ABMCH=$PIECE($GET(^ABMRECVR(ABMCHIEN,0)),U)
- +6 SET ABMPAYID=$PIECE($GET(^ABMRECVR(ABMCHIEN,0)),U,2)
- +7 WRITE !,ABMCH_" PAYER ID: ",ABMPAYID
- +8 SET ABMINS=0
- +9 FOR
- SET ABMINS=$ORDER(^ABMRECVR(ABMCHIEN,1,ABMINS))
- IF 'ABMINS
- QUIT
- Begin DoDot:2
- +10 IF $Y>(IOSL-5)
- DO HD
- IF $DATA(DTOUT)!$DATA(DUOUT)!$DATA(DIROUT)
- QUIT
- WRITE " (cont)"
- +11 SET ABMINSN=$PIECE($GET(^AUTNINS(ABMINS,0)),U)
- +12 SET ABMIPYID=$PIECE($GET(^ABMRECVR(ABMCHIEN,1,ABMINS,0)),U,2)
- +13 SET ABMCONTN=$PIECE($GET(^AUTNINS(ABMINS,0)),U,8)
- +14 SET ABMEMCID=$PIECE($GET(^ABMNINS(DUZ(2),ABMINS,0)),U,2)
- +15 WRITE !,?3,ABMINSN
- +16 WRITE ?32,ABMIPYID
- +17 WRITE ?42
- +18 WRITE ?50,ABMCONTN
- +19 WRITE ?69,ABMEMCID
- End DoDot:2
- IF $DATA(DTOUT)!$DATA(DUOUT)!$DATA(DIROUT)
- QUIT
- +20 WRITE !
- End DoDot:1
- IF $DATA(DTOUT)!$DATA(DUOUT)!$DATA(DIROUT)
- QUIT
- +21 IF $DATA(DIROUT)!($DATA(DUOUT))!($DATA(DTOUT))
- QUIT
- +22 QUIT
- +23 ;
- HD DO PAZ^ABMDRUTL
- IF $DATA(DTOUT)!$DATA(DUOUT)!$DATA(DIROUT)
- QUIT
- HDB SET ABM("PG")=ABM("PG")+1
- DO WHD^ABMDRHD
- +1 WRITE !,"Clearinghouse"
- +2 WRITE !?3,"Insurer",?32,"Payer ID",?42,"EXP",?50,"AO CONTROL#",?69,"EMC SUB ID"
- +3 SET $PIECE(ABM("LINE"),"-",80)=""
- WRITE !,ABM("LINE")
- KILL ABM("LINE")
- +4 QUIT
