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
Q
;
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
Q
MSG1 ; Message Processing
W !!,"...Vendor payment information has been added or edited, bulletin has been transmitted..."
W !!,"...Supply has been notified...",!!
Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HPRCFAC32 1112 printed Dec 13, 2024@02:01:54 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
