Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Routine: BARUFUT4

BARUFUT4.m

Go to the documentation of this file.
BARUFUT4 ; IHS/SD/POT - UTILITIES 2 FOR UFMS ; 04/28/2008
 ;;1.8;IHS ACCOUNTS RECEIVABLE;**24**;OCT 26, 2005;Build 69
 ;;NEW ROUTINE : OVERFLOW CODE FROM BARUFUT1
 ;IHS/SD/POT JUN 2013 belcourt HEAT118656 - BAR*1.8*.24 OVERFLOW FROM CODE BARUFUT1
 Q
SITECHK ;EP - CHECK DUZ(2) FOR SITE SET UP HEAT118656 BAR*1.8*.24
 ;OLD CODE
 ;I '$D(^BARBL(DUZ(2))) D  Q
 ;. W !,$P(^DIC(4,DUZ(2),0),U)," IS NOT REGIONALLY SETUP"
 ;. W !,"CONTACT YOUR A/R MANAGER",*7
 ;. S BARQUIT=1
 ;. S XQUIT=1
 ;. D EOP^BARUTL(1)
 ;NEW CODE
 N BARERR
 I $G(DUZ(2))="" D ERR(1) Q
 I '$D(^BARBL(DUZ(2))) D ERR(2) Q
 Q
ERR(BARERR) ; HEAT118656 BAR*1.8*.24
 I BARERR=1 W !," SITE DUZ(2) IS NIL OR UNDEFINED ?!?"
 I BARERR=2 D
 . W !,"A/R BILL FILE NOT IS NOT SETUP FOR SITE ",DUZ(2)
 . I '$D(^DIC(4,DUZ(2))) W !,"Global entry ^DIC(4 IS NOT SETUP"
 W !,"CONTACT YOUR A/R MANAGER"
 S BARQUIT=1
 S XQUIT=1
 D EOP^BARUTL(1)
 Q