ACRFEDG1.m

ACRFEDG1 ;IHS/OIRM/DSD/THL,AEF - CONTINUATION OF ACRFEDG; [ 11/01/2001   9:44 AM ]

 ;;2.1;ADMIN RESOURCE MGT SYSTEM;;NOV 05, 2001

 ;;CONTINUATION OF ACRFEDG

GET ;EP;

 K ACRDGDA,ACRDG

 D HEAD

 S ACRLVL=$S('$D(ACRENTRY):"",ACRENTRY["APPAMT":1,ACRENTRY["ALLAMT":1,ACRENTRY["ALCAMT":3,1:4)

 S ACRX=0

 F ACRJ=1:1 D G1 Q:'ACRX!$D(ACRPSE)

 S DIC="^ACRDG("

 S DIC(0)="AENLQZ"

 S DIC("A")="Distribution Group..: "

 W !!?21,"|" F ACRI=1:1:30 W "="

 W "|"

 D DIC^ACRFDIC

 I X=""!(U[$E(X))!(+Y<1) S ACRQUIT="" Q

 S ACRDGDA=+Y

 S ACRDG=Y(0,0)

 I $P(^ACRDG(+Y,0),U,3)="" D

 .S DA=+Y

 .S DR=".03T"

 .S DIE="^ACRDG("

 .D DIE^ACRFDIC

 Q

G1 S ACRX=$S(ACRLVL]"":$O(^ACRDG("LVL",ACRLVL,ACRX)),1:$O(^ACRDG(ACRX)))

 Q:'ACRX

 W:ACRJ#2=1 !

 W:ACRJ#2=0 ?40,"| "

 W ACRX

 W ?$X+8-$L(ACRX),$P(^ACRDG(ACRX,0),U)

 D:ACRJ#20=0 PAUSE

 Q

GETM ;EP;

 K ACRDGMDA,ACRDGM

 S DIC="^ACRDG("_ACRDGDA_",""GP"","

 S DIC(0)="AENQZ"

 S DIC("A")="Group Member........: "

 W !!?21,"|" F ACRI=1:1:30 W "="

 W "|"

 D DIC^ACRFDIC

 I X=""!(U[$E(X))!(+Y<1) S ACRQUIT="" Q

 S ACRDGMDA=+Y,ACRDGM=Y(0,0)

 Q

PAUSE K ACRPSE

 S DIR(0)="YO"

 S DIR("A")="         List more MEMBERS"

 W !

 D DIR^ACRFDIC

 S:Y'=1 ACRPSE=""

 Q

HEAD W @IOF

 W !,"Select FUND DISTRIBUTION GROUP"

 W !!,"ID NO."

 W ?8,"DISTRIBUTION GROUP"

 W ?40,"| ID NO."

 W ?50,"DISTRIBUTION GROUP"

 W !,"------  ------------------------------"

 W ?40,"| ------  ----------------------------"

 Q

ACRFEDG1  ;IHS/OIRM/DSD/THL,AEF - CONTINUATION OF ACRFEDG; [ 11/01/2001   9:44 AM ]

 +1       ;;2.1;ADMIN RESOURCE MGT SYSTEM;;NOV 05, 2001

 +2       ;;CONTINUATION OF ACRFEDG

GET       ;EP;

 +1        KILL ACRDGDA,ACRDG

 +2        DO HEAD

 +3        SET ACRLVL=$SELECT('$DATA(ACRENTRY):"",ACRENTRY["APPAMT":1,ACRENTRY["ALLAMT":1,ACRENTRY["ALCAMT":3,1:4)

 +4        SET ACRX=0

 +5        FOR ACRJ=1:1

               DO G1

               IF 'ACRX!$DATA(ACRPSE)

                   QUIT 

 +6        SET DIC="^ACRDG("

 +7        SET DIC(0)="AENLQZ"

 +8        SET DIC("A")="Distribution Group..: "

 +9        WRITE !!?21,"|"

           FOR ACRI=1:1:30

               WRITE "="

 +10       WRITE "|"

 +11       DO DIC^ACRFDIC

 +12       IF X=""!(U[$EXTRACT(X))!(+Y<1)

               SET ACRQUIT=""

               QUIT 

 +13       SET ACRDGDA=+Y

 +14       SET ACRDG=Y(0,0)

 +15       IF $PIECE(^ACRDG(+Y,0),U,3)=""

               Begin DoDot:1

 +16               SET DA=+Y

 +17               SET DR=".03T"

 +18               SET DIE="^ACRDG("

 +19               DO DIE^ACRFDIC

               End DoDot:1

 +20       QUIT 

G1         SET ACRX=$SELECT(ACRLVL]"":$ORDER(^ACRDG("LVL",ACRLVL,ACRX)),1:$ORDER(^ACRDG(ACRX)))

 +1        IF 'ACRX

               QUIT 

 +2        IF ACRJ#2=1

               WRITE !

 +3        IF ACRJ#2=0

               WRITE ?40,"| "

 +4        WRITE ACRX

 +5        WRITE ?$X+8-$LENGTH(ACRX),$PIECE(^ACRDG(ACRX,0),U)

 +6        IF ACRJ#20=0

               DO PAUSE

 +7        QUIT 

GETM      ;EP;

 +1        KILL ACRDGMDA,ACRDGM

 +2        SET DIC="^ACRDG("_ACRDGDA_",""GP"","

 +3        SET DIC(0)="AENQZ"

 +4        SET DIC("A")="Group Member........: "

 +5        WRITE !!?21,"|"

           FOR ACRI=1:1:30

               WRITE "="

 +6        WRITE "|"

 +7        DO DIC^ACRFDIC

 +8        IF X=""!(U[$EXTRACT(X))!(+Y<1)

               SET ACRQUIT=""

               QUIT 

 +9        SET ACRDGMDA=+Y

           SET ACRDGM=Y(0,0)

 +10       QUIT 

PAUSE      KILL ACRPSE

 +1        SET DIR(0)="YO"

 +2        SET DIR("A")="         List more MEMBERS"

 +3        WRITE !

 +4        DO DIR^ACRFDIC

 +5        IF Y'=1

               SET ACRPSE=""

 +6        QUIT 

HEAD       WRITE @IOF

 +1        WRITE !,"Select FUND DISTRIBUTION GROUP"

 +2        WRITE !!,"ID NO."

 +3        WRITE ?8,"DISTRIBUTION GROUP"

 +4        WRITE ?40,"| ID NO."

 +5        WRITE ?50,"DISTRIBUTION GROUP"

 +6        WRITE !,"------  ------------------------------"

 +7        WRITE ?40,"| ------  ----------------------------"

 +8        QUIT