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 Oct 16, 2024@18:18:25 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
