RCXVCHK.m

RCXVCHK ;DAOU/ALA-Check for bad records ;26-DEC-2004

 ;;4.5;Accounts Receivable;**227**;Mar 20, 1995

 ;

 ;**Program Description**

 ;  This program checks for records in the queue which

 ;  does not have a bill number

 ;

EN ; Entry point

 K ^TMP("RCXVBREC",$J)

 S ^TMP("RCXVBREC",$J,0)=0

 S BTN=0

BT S BTN=$O(^RCXV(BTN)) G EXIT:'BTN

 S BIL=0

BL S BIL=$O(^RCXV(BTN,1,BIL)) G BT:'BIL

 I $P($G(^PRCA(430,BIL,0)),"^",1)="" D

 . NEW CT

 . S CT=$G(^TMP("RCXVBREC",$J,0))+1,^TMP("RCXVBREC",$J,0)=CT

 . S ^TMP("RCXVBREC",$J,CT,0)="Bill IEN: "_BIL_" does not have a Bill Number in File #430."

 . S DA(1)=BTN,DA=BIL

 . S DIK="^RCXV("_DA(1)_",1,"

 . D ^DIK

 . S $P(^RCXV(BTN,0),"^",7)=$P(^RCXV(BTN,0),"^",7)-1

 G BL

 ;

EXIT K BTN,BIL,DA,DIK,RCXMGRP

 Q

 ;

MSG ;  Send mail message about bad record

 I $G(^TMP("RCXVBREC",$J,0))=""!($G(^TMP("RCXVBREC",$J,0))=0) Q

 S RCXMGRP=$$GET1^DIQ(342,"1,",20.02,"E")

 I RCXMGRP="" S RCXMGRP="IRM"

 S RCXMGRP="G."_RCXMGRP

 S XMDUZ="CBO DATA EXTRACT",XMY(RCXMGRP)=""

 S XMSUB="BAD RECORD(S) FOUND"

 S XMTEXT="^TMP(""RCXVBREC"",$J,"

 D ^XMD

 K XMDUN,XMDUZ,XMZ,XMY,XMSUB,XMTEXT

 Q

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---RCXVCHK   1139     printed  Apr 09, 2024@20:53:17                                                                                                                                                                                                     Page 2

RCXVCHK   ;DAOU/ALA-Check for bad records ;26-DEC-2004

 +1       ;;4.5;Accounts Receivable;**227**;Mar 20, 1995

 +2       ;

 +3       ;**Program Description**

 +4       ;  This program checks for records in the queue which

 +5       ;  does not have a bill number

 +6       ;

EN        ; Entry point

 +1        KILL ^TMP("RCXVBREC",$JOB)

 +2        SET ^TMP("RCXVBREC",$JOB,0)=0

 +3        SET BTN=0

BT         SET BTN=$ORDER(^RCXV(BTN))

           if 'BTN

               GOTO EXIT

 +1        SET BIL=0

BL         SET BIL=$ORDER(^RCXV(BTN,1,BIL))

           if 'BIL

               GOTO BT

 +1        IF $PIECE($GET(^PRCA(430,BIL,0)),"^",1)=""

               Begin DoDot:1

 +2                NEW CT

 +3                SET CT=$GET(^TMP("RCXVBREC",$JOB,0))+1

                   SET ^TMP("RCXVBREC",$JOB,0)=CT

 +4                SET ^TMP("RCXVBREC",$JOB,CT,0)="Bill IEN: "_BIL_" does not have a Bill Number in File #430."

 +5                SET DA(1)=BTN

                   SET DA=BIL

 +6                SET DIK="^RCXV("_DA(1)_",1,"

 +7                DO ^DIK

 +8                SET $PIECE(^RCXV(BTN,0),"^",7)=$PIECE(^RCXV(BTN,0),"^",7)-1

               End DoDot:1

 +9        GOTO BL

 +10      ;

EXIT       KILL BTN,BIL,DA,DIK,RCXMGRP

 +1        QUIT 

 +2       ;

MSG       ;  Send mail message about bad record

 +1        IF $GET(^TMP("RCXVBREC",$JOB,0))=""!($GET(^TMP("RCXVBREC",$JOB,0))=0)

               QUIT 

 +2        SET RCXMGRP=$$GET1^DIQ(342,"1,",20.02,"E")

 +3        IF RCXMGRP=""

               SET RCXMGRP="IRM"

 +4        SET RCXMGRP="G."_RCXMGRP

 +5        SET XMDUZ="CBO DATA EXTRACT"

           SET XMY(RCXMGRP)=""

 +6        SET XMSUB="BAD RECORD(S) FOUND"

 +7        SET XMTEXT="^TMP(""RCXVBREC"",$J,"

 +8        DO ^XMD

 +9        KILL XMDUN,XMDUZ,XMZ,XMY,XMSUB,XMTEXT

 +10       QUIT