Routine: PRCFAC32

PRCFAC32 ;WISC/SJG-BULLETIN TO SUPPLY FOR FISCAL VENDOR ADD/EDIT ;7/24/00  23:21

V ;;5.1;IFCAP;;Oct 20, 2000

 ;Per VHA Directive 10-93-142, this routine should not be modified.

BULLET(VEN) ;

 K ^UTILITY($J),MSG S DIWL=0,DIWR=79,DIWF=""

 S MSG(1,0)="The following Vendor has been added or edited by Fiscal Service."

 S MSG(2,0)="  "

 S MSG(3,0)="  ",MSG(4,0)="Vendor information is as follows:"

 S MSG(5,0)="  ",MSG(6,0)="Vendor Name: "_PRCTMP(440,VEN,.01,"E")

 S MSG(7,0)="  ",MSG(8,0)="Please update other information as necessary."

 S XMSUB="VENDOR ADD/EDIT BY FISCAL"

 D MSG,MSG1

EXIT ;

 K DIWF,DIWL,DIWR,X,X1,XMDUZ,XMSUB,XMTEXT,XMY

MSG ; Set Variables and Call XMD

 ; Sent to members of mail group SUPPLY NOTIFICATION

 S N=$O(^XMB(3.8,"B","SUPPLY NOTIFICATION","")) Q:N=""

 S M="" F  S M=$O(^XMB(3.8,N,1,"B",M)) Q:M=""  S XMY(+M)=""

 Q:'$O(XMY(""))  S XMDUZ=DUZ,XMTEXT="MSG("

 W ! D WAIT^PRCFYN,^XMD

MSG1 ; Message Processing

 W !!,"...Vendor payment information has been added or edited, bulletin has been transmitted..."

 W !!,"...Supply has been notified...",!!

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HPRCFAC32   1112     printed  Mar 13, 2025@21:06:43                                                                                                                                                                                                    Page 2

PRCFAC32  ;WISC/SJG-BULLETIN TO SUPPLY FOR FISCAL VENDOR ADD/EDIT ;7/24/00  23:21

V         ;;5.1;IFCAP;;Oct 20, 2000

 +1       ;Per VHA Directive 10-93-142, this routine should not be modified.

 +2       ;

BULLET(VEN) ;

 +1        KILL ^UTILITY($JOB),MSG

           SET DIWL=0

           SET DIWR=79

           SET DIWF=""

 +2        SET MSG(1,0)="The following Vendor has been added or edited by Fiscal Service."

 +3        SET MSG(2,0)="  "

 +4        SET MSG(3,0)="  "

           SET MSG(4,0)="Vendor information is as follows:"

 +5        SET MSG(5,0)="  "

           SET MSG(6,0)="Vendor Name: "_PRCTMP(440,VEN,.01,"E")

 +6        SET MSG(7,0)="  "

           SET MSG(8,0)="Please update other information as necessary."

 +7        SET XMSUB="VENDOR ADD/EDIT BY FISCAL"

 +8        DO MSG

           DO MSG1

EXIT      ;

 +1        KILL DIWF,DIWL,DIWR,X,X1,XMDUZ,XMSUB,XMTEXT,XMY

 +2        QUIT

 +3       ;

MSG       ; Set Variables and Call XMD

 +1       ; Sent to members of mail group SUPPLY NOTIFICATION

 +2        SET N=$ORDER(^XMB(3.8,"B","SUPPLY NOTIFICATION",""))

           if N=""

               QUIT

 +3        SET M=""

FOR

               SET M=$ORDER(^XMB(3.8,N,1,"B",M))

               if M=""

                   QUIT

               SET XMY(+M)=""

 +4        if '$ORDER(XMY(""))

               QUIT

           SET XMDUZ=DUZ

           SET XMTEXT="MSG("

 +5        WRITE !

           DO WAIT^PRCFYN

           DO ^XMD

 +6        QUIT

MSG1      ; Message Processing

 +1        WRITE !!,"...Vendor payment information has been added or edited, bulletin has been transmitted..."

 +2        WRITE !!,"...Supply has been notified...",!!

 +3        QUIT

PRCFAC32.m