ABMDWARN.m

ABMDWARN ; IHS/ASDST/DMJ - WARNING PROCESSOR ;

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

 ;

 S ABMW("L")="",$P(ABMW("L"),"-",80)=""

 W !,ABMW("L")

 S ABMW("I")=0

 S ABMW("H")="" F  S ABMW("H")=$O(ABMW(ABMW("H"))) Q:'ABMW("H")  D WRN

 I ABMW("I")>1 W *7,!,ABMW("L")

 G XIT

WRN S ABMW="" F ABMW("I")=1:1 S ABMW=$O(ABMW(ABMW("H"),ABMW)) Q:'ABMW  W !,"WARNING:",$E(ABMW+1000,2,4)," - ",$P(^ABMDERR(ABMW,0),U) W:$P(ABMW(ABMW("H"),ABMW),U)]"" " (",$P(ABMW(ABMW("H"),ABMW),U),")"

 Q

 ;

XIT K ABMW

 Q

 ;

CNT S ABMW="" F ABMW("I")=1:1 S ABMW=$O(ABMW(ABMW)) Q:'ABMW

 S ABM("ERR")=ABMW("I")-1

 G XIT

ABMDWARN  ; IHS/ASDST/DMJ - WARNING PROCESSOR ;

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

 +2       ;

 +3        SET ABMW("L")=""

           SET $PIECE(ABMW("L"),"-",80)=""

 +4        WRITE !,ABMW("L")

 +5        SET ABMW("I")=0

 +6        SET ABMW("H")=""

           FOR 

               SET ABMW("H")=$ORDER(ABMW(ABMW("H")))

               IF 'ABMW("H")

                   QUIT 

               DO WRN

 +7        IF ABMW("I")>1

               WRITE *7,!,ABMW("L")

 +8        GOTO XIT

WRN        SET ABMW=""

           FOR ABMW("I")=1:1

               SET ABMW=$ORDER(ABMW(ABMW("H"),ABMW))

               IF 'ABMW

                   QUIT 

               WRITE !,"WARNING:",$EXTRACT(ABMW+1000,2,4)," - ",$PIECE(^ABMDERR(ABMW,0),U)

               IF $PIECE(ABMW(ABMW("H"),ABMW),U)]""

                   WRITE " (",$PIECE(ABMW(ABMW("H"),ABMW),U),")"

 +1        QUIT 

 +2       ;

XIT        KILL ABMW

 +1        QUIT 

 +2       ;

CNT        SET ABMW=""

           FOR ABMW("I")=1:1

               SET ABMW=$ORDER(ABMW(ABMW))

               IF 'ABMW

                   QUIT 

 +1        SET ABM("ERR")=ABMW("I")-1

 +2        GOTO XIT