ABMCUTL.m

ABMCUTL ; IHS/SD/SDR - Clearinghouse functions;  

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

 ; NEW routine abm*2.6*6

 ;

GETCHS ;

 S ABMCHIEN=0

 F  S ABMCHIEN=$O(^ABMRECVR(ABMCHIEN)) Q:'ABMCHIEN  D

 .S ABMCHINS=0

 .F  S ABMCHINS=$O(^ABMRECVR(ABMCHIEN,1,ABMCHINS)) Q:'ABMCHINS  D

 ..S ABMCHLST(ABMCHIEN,ABMCHINS)=""

 Q

ABMCUTL   ; IHS/SD/SDR - Clearinghouse functions;  

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

 +2       ; NEW routine abm*2.6*6

 +3       ;

GETCHS    ;

 +1        SET ABMCHIEN=0

 +2        FOR 

               SET ABMCHIEN=$ORDER(^ABMRECVR(ABMCHIEN))

               IF 'ABMCHIEN

                   QUIT 

               Begin DoDot:1

 +3                SET ABMCHINS=0

 +4                FOR 

                       SET ABMCHINS=$ORDER(^ABMRECVR(ABMCHIEN,1,ABMCHINS))

                       IF 'ABMCHINS

                           QUIT 

                       Begin DoDot:2

 +5                        SET ABMCHLST(ABMCHIEN,ABMCHINS)=""

                       End DoDot:2

               End DoDot:1

 +6        QUIT