- 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
