BARUFER1.m

BARUFER1 ; IHS/SD/TPF - UFMS ERROR RESOLUTION ; 03/28/2008

 ;;1.8;IHS ACCOUNTS RECEIVABLE;**4,23**;OCT 26, 2005

 ;NEW ROUTINE; BAR*1.8*4

 Q

 ;

ERRINQ ;EP - INQUIRE INTO 'A/R UFMS ERRORS' FILE

 K DIE,DIC,DIR,DA,DR

 S DIC="^BARUFERR("

 S DIC(0)="AEMQ"

 D ^DIC

 Q:Y<0

 K DIE,DIC,DIR,DA,DR

 D DISPLAY(+Y)

 Q

 ;

DISPLAY(CODE) ;EP - DISPLAY CAPTIONED FIELDS

 S IENS=CODE_","

 S SHORT=$$GET1^DIQ(90057.1,IENS,.01,"E")

 S SYNONYM=$$GET1^DIQ(90057.1,IENS,.02,"E")

 S ERRTYPE=$$GET1^DIQ(90057.1,IENS,.03,"E")

 S DISMSG=$$GET1^DIQ(90057.1,IENS,.04,"E")

 W !!!,"SHORT DESCRIPTION:"

 W !,SHORT

 W !,"SYNONYM: ",SYNONYM

 W ?25,"TYPE OF ERROR: ",ERRTYPE

 W !,"DISPLAY MESSAGE:"

 W !,DISMSG

 W !!

 ;

 S DIWL=12,DIWR=75

 S DIWF="WC65|"

 N LN,X

 S LN=0

 F  S LN=$O(^BARUFERR(CODE,12,LN)) Q:'LN  D

 .S X=$G(^BARUFERR(CODE,12,LN,0))

 .D ^DIWP

 D ^DIWW

 K DIR S DIR(0)="E" D ^DIR

 Q

BARUFER1  ; IHS/SD/TPF - UFMS ERROR RESOLUTION ; 03/28/2008

 +1       ;;1.8;IHS ACCOUNTS RECEIVABLE;**4,23**;OCT 26, 2005

 +2       ;NEW ROUTINE; BAR*1.8*4

 +3        QUIT 

 +4       ;

ERRINQ    ;EP - INQUIRE INTO 'A/R UFMS ERRORS' FILE

 +1        KILL DIE,DIC,DIR,DA,DR

 +2        SET DIC="^BARUFERR("

 +3        SET DIC(0)="AEMQ"

 +4        DO ^DIC

 +5        IF Y<0

               QUIT 

 +6        KILL DIE,DIC,DIR,DA,DR

 +7        DO DISPLAY(+Y)

 +8        QUIT 

 +9       ;

DISPLAY(CODE) ;EP - DISPLAY CAPTIONED FIELDS

 +1        SET IENS=CODE_","

 +2        SET SHORT=$$GET1^DIQ(90057.1,IENS,.01,"E")

 +3        SET SYNONYM=$$GET1^DIQ(90057.1,IENS,.02,"E")

 +4        SET ERRTYPE=$$GET1^DIQ(90057.1,IENS,.03,"E")

 +5        SET DISMSG=$$GET1^DIQ(90057.1,IENS,.04,"E")

 +6        WRITE !!!,"SHORT DESCRIPTION:"

 +7        WRITE !,SHORT

 +8        WRITE !,"SYNONYM: ",SYNONYM

 +9        WRITE ?25,"TYPE OF ERROR: ",ERRTYPE

 +10       WRITE !,"DISPLAY MESSAGE:"

 +11       WRITE !,DISMSG

 +12       WRITE !!

 +13      ;

 +14       SET DIWL=12

           SET DIWR=75

 +15       SET DIWF="WC65|"

 +16       NEW LN,X

 +17       SET LN=0

 +18       FOR 

               SET LN=$ORDER(^BARUFERR(CODE,12,LN))

               IF 'LN

                   QUIT 

               Begin DoDot:1

 +19               SET X=$GET(^BARUFERR(CODE,12,LN,0))

 +20               DO ^DIWP

               End DoDot:1

 +21       DO ^DIWW

 +22       KILL DIR

           SET DIR(0)="E"

           DO ^DIR

 +23       QUIT