- IBCNSMRE ;ALB/AAS,TJK - MRA EXTRACT ; 02-SEPT-97
- ;;2.0;INTEGRATED BILLING;**92,146**;21-MAR-94
- ;
- ;
- BLDLST ; -- Build list of insurance companies for MRA extract
- N I,J
- W !!,"Create a list of Insurance Companies for the MRA Extract",!
- ;
- I '$O(^IBE(350.9,1,99,0)) W " No Entries have been made."
- I $O(^IBE(350.9,1,99,0)) W " The Following Entries have been made:" D
- .S I=0
- .F S I=$O(^IBE(350.9,1,99,I)) Q:'I S J=$G(^IBE(350.9,1,99,I,0)) W !,?10,$P($G(^DIC(36,J,0)),"^")
- W !!
- ;
- BLD1 N DA,DIC,DIE,DR,X,Y
- S DA=1
- S DIE="^IBE(350.9,",DR=99 D ^DIE
- Q
- --- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HIBCNSMRE 579 printed Feb 18, 2025@23:44:09 Page 2
- IBCNSMRE ;ALB/AAS,TJK - MRA EXTRACT ; 02-SEPT-97
- +1 ;;2.0;INTEGRATED BILLING;**92,146**;21-MAR-94
- +2 ;
- +3 ;
- BLDLST ; -- Build list of insurance companies for MRA extract
- +1 NEW I,J
- +2 WRITE !!,"Create a list of Insurance Companies for the MRA Extract",!
- +3 ;
- +4 IF '$ORDER(^IBE(350.9,1,99,0))
- WRITE " No Entries have been made."
- +5 IF $ORDER(^IBE(350.9,1,99,0))
- WRITE " The Following Entries have been made:"
- Begin DoDot:1
- +6 SET I=0
- +7 FOR
- SET I=$ORDER(^IBE(350.9,1,99,I))
- if 'I
- QUIT
- SET J=$GET(^IBE(350.9,1,99,I,0))
- WRITE !,?10,$PIECE($GET(^DIC(36,J,0)),"^")
- End DoDot:1
- +8 WRITE !!
- +9 ;
- BLD1 NEW DA,DIC,DIE,DR,X,Y
- +1 SET DA=1
- +2 SET DIE="^IBE(350.9,"
- SET DR=99
- DO ^DIE
- +3 QUIT