BARFM1.m

BARFM1 ; IHS/SD/LSL - FILE RESTRICTIONS ;

 ;;1.8;IHS ACCOUNTS RECEIVABLE;;OCT 26, 2005

 ;

 ; C=IEN OF PACKAGE (ABM,BAR,AG)

 ;

EN(BARDA) ; EP

 K DIC,DR,DA,DIE

 N A

 S DA(1)=BARDA

 S DIC(0)="AEMQZ"

 S DIC=$$DIC^XBDIQ1(9.44)

 D ^DIC

 Q:Y'>0

 S DA=+Y

 S DIC=$$VALI^XBDIQ1(9.44,.DA,.01)

 D EN1^DIP

 Q

BARFM1    ; IHS/SD/LSL - FILE RESTRICTIONS ;

 +1       ;;1.8;IHS ACCOUNTS RECEIVABLE;;OCT 26, 2005

 +2       ;

 +3       ; C=IEN OF PACKAGE (ABM,BAR,AG)

 +4       ;

EN(BARDA) ; EP

 +1        KILL DIC,DR,DA,DIE

 +2        NEW A

 +3        SET DA(1)=BARDA

 +4        SET DIC(0)="AEMQZ"

 +5        SET DIC=$$DIC^XBDIQ1(9.44)

 +6        DO ^DIC

 +7        IF Y'>0

               QUIT 

 +8        SET DA=+Y

 +9        SET DIC=$$VALI^XBDIQ1(9.44,.DA,.01)

 +10       DO EN1^DIP

 +11       QUIT