BARACE.m

BARACE ; IHS/SD/LSL - add new A/R Accounts ;

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

 ;;

 D:'$D(BARUSR) INIT^BARUTL

 ;

DIC ;EP

 ; loop A/R accounts

 K DIC,DA,DR

 S DIC="^BARAC(DUZ(2),"

 S DIC(0)="AQMLZ"

 S DIC("S")="I $P(^(0),U,10)=BARUSR(29,""I"")"

 D ^DIC

 Q:Y'>0

 S DR="2///BILLABLE;Q;" ;billable

 I Y["BAR" S DR="2///FINANCIAL;Q;" ;financial

 S DIE=DIC

 S DR=DR_".01;10///^S X=BARUSR(29,""I"");8////^S X=DUZ(2)"

 S DA=+Y

 S DIDEL=90050

 D ^DIE

 K DIDEL

 G DIC

BARACE    ; IHS/SD/LSL - add new A/R Accounts ;

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

 +2       ;;

 +3        IF '$DATA(BARUSR)

               DO INIT^BARUTL

 +4       ;

DIC       ;EP

 +1       ; loop A/R accounts

 +2        KILL DIC,DA,DR

 +3        SET DIC="^BARAC(DUZ(2),"

 +4        SET DIC(0)="AQMLZ"

 +5        SET DIC("S")="I $P(^(0),U,10)=BARUSR(29,""I"")"

 +6        DO ^DIC

 +7        IF Y'>0

               QUIT 

 +8       ;billable

           SET DR="2///BILLABLE;Q;"

 +9       ;financial

           IF Y["BAR"

               SET DR="2///FINANCIAL;Q;"

 +10       SET DIE=DIC

 +11       SET DR=DR_".01;10///^S X=BARUSR(29,""I"");8////^S X=DUZ(2)"

 +12       SET DA=+Y

 +13       SET DIDEL=90050

 +14       DO ^DIE

 +15       KILL DIDEL

 +16       GOTO DIC