- PRCFACS1 ;WISC/PL-BULLETIN FOR RETURNED PRUCHASE ORDER ;12/17/93
- ;;5.1;IFCAP;**97**;Oct 20, 2000
- ;Per VHA Directive 10-93-142, this routine should not be modified.
- ;
- K ^UTILITY($J),MSG S DIWL=0,DIWR=79,DIWF=""
- S MSG(1,0)="The following purchase order was not obligated",MSG(2,0)="and has been 'RETURNED' by Fiscal Service !! ",MSG(3,0)="Purchase Order information is as follows:"
- S MSG(4,0)=" ",MSG(5,0)="Purchase Order Number: "_$P(^PRC(442,DA,0),"^",1)
- S XMSUB="RETURNED PURCHASE ORDER NOTIFICATION"
- D MSG W !! S X="...Purchase Order returned, bulletin transmitted...*" D MSG^PRCFQ
- EXIT ;
- K DIWF,DIWL,DIWR,X,X1,XMDUZ,XMSUB,XMTEXT,XMY
- Q
- ;
- MSG ;SET VARIABLES AND CALL XMD
- S XMDUZ=DUZ,X=$S($D(^PRC(442,DA,1)):^(1),1:"") I $P(X,"^",10)]"" S X1=$P(X,"^",10) I X1]"" S XMY(+X1)="",XMTEXT="MSG(" D WAIT^PRCFYN N DIFROM D ^XMD
- Q
- --- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HPRCFACS1 856 printed Jan 18, 2025@03:03:26 Page 2
- PRCFACS1 ;WISC/PL-BULLETIN FOR RETURNED PRUCHASE ORDER ;12/17/93
- +1 ;;5.1;IFCAP;**97**;Oct 20, 2000
- +2 ;Per VHA Directive 10-93-142, this routine should not be modified.
- +3 ;
- +4 KILL ^UTILITY($JOB),MSG
- SET DIWL=0
- SET DIWR=79
- SET DIWF=""
- +5 SET MSG(1,0)="The following purchase order was not obligated"
- SET MSG(2,0)="and has been 'RETURNED' by Fiscal Service !! "
- SET MSG(3,0)="Purchase Order information is as follows:"
- +6 SET MSG(4,0)=" "
- SET MSG(5,0)="Purchase Order Number: "_$PIECE(^PRC(442,DA,0),"^",1)
- +7 SET XMSUB="RETURNED PURCHASE ORDER NOTIFICATION"
- +8 DO MSG
- WRITE !!
- SET X="...Purchase Order returned, bulletin transmitted...*"
- DO MSG^PRCFQ
- EXIT ;
- +1 KILL DIWF,DIWL,DIWR,X,X1,XMDUZ,XMSUB,XMTEXT,XMY
- +2 QUIT
- +3 ;
- MSG ;SET VARIABLES AND CALL XMD
- +1 SET XMDUZ=DUZ
- SET X=$SELECT($DATA(^PRC(442,DA,1)):^(1),1:"")
- IF $PIECE(X,"^",10)]""
- SET X1=$PIECE(X,"^",10)
- IF X1]""
- SET XMY(+X1)=""
- SET XMTEXT="MSG("
- DO WAIT^PRCFYN
- NEW DIFROM
- DO ^XMD
- +2 QUIT