RCRCBLE.m

RCRCBLE ;ALB/CMS - TP REFERRAL ACTION SEL/MOD LIST BUILD ; 09/13/97

V ;;4.5;Accounts Receivable;**63**;Mar 20, 1995

 ;;Per VHA Directive 10-93-142, this routine should not be modified.

 ;

SEL ; Entry point to select Items on  List

 ; Select items will be highlighted and stored in TMP("RCRCBL",$J,"SEL"

 N DIC,DIRUT,DUOUT,RCSELN,RCOUT,VALMY,X,Y S RCSELN=0

 D EN^VALM2($G(XQORNOD(0)),0)

 I '$D(VALMY) W !,"   ...Nothing Selected." D PAUSE^VALM1 D

 .I ($D(DIROUT))!($D(DUOUT)) S RCOUT=1

 D FULL^VALM1

 F  S RCSELN=$O(VALMY(RCSELN)) Q:('RCSELN)!($D(RCOUT))  D

 .I $D(^TMP("RCRCBL",$J,"SEL",RCSELN)) D UNSEL(RCSELN) Q

 .S ^TMP("RCRCBL",$J,"SEL",RCSELN)=""

 .D SELECT^VALM10(RCSELN,1)

 I $D(RCOUT) G SELQ

 I $O(^TMP("RCRCBL",$J,"SEL",0)) D

 .W @IOF,!!,"Current Selection of Items on List: "

 .S RCSELN=0 F  S RCSELN=$O(^TMP("RCRCBL",$J,"SEL",RCSELN)) Q:('RCSELN)!($D(RCOUT))  D

 ..I $Y>(IOSL+3) W ! D PAUSE^VALM1 W @IOF,!,"Current Selection of Items on List:"

 ..I $D(DIRUT)!$D(DUOUT) S RCOUT=1 Q

 ..W !,@VALMAR@(RCSELN,0)

 .W ! D PAUSE^VALM1

SELQ Q

 ;

UNSEL(RCSELN) ; Unselect and Unhighlight items on the list

 ;Ask user if they want to Unselect the Item

 N DIR,DIROUT,DTOUT,DUOUT,DIROUT,X,Y

 S DIR(0)="Y",DIR("B")="No"

 S DIR("?")="Enter Yes to un-select pre-selected item."

 S DIR("A")="Do you want to UNSELECT Item "_RCSELN_" "

 W !! D ^DIR I $D(DTOUT)!$D(DIROUT) S RCOUT=1 G UNSELQ

 I +Y K ^TMP("RCRCBL",$J,"SEL",RCSELN) D SELECT^VALM10(RCSELN,0)

UNSELQ Q

 ;

 ;RCRCBLE

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---RCRCBLE   1506     printed  Apr 09, 2024@20:47:20                                                                                                                                                                                                     Page 2

RCRCBLE   ;ALB/CMS - TP REFERRAL ACTION SEL/MOD LIST BUILD ; 09/13/97

V         ;;4.5;Accounts Receivable;**63**;Mar 20, 1995

 +1       ;;Per VHA Directive 10-93-142, this routine should not be modified.

 +2       ;

SEL       ; Entry point to select Items on  List

 +1       ; Select items will be highlighted and stored in TMP("RCRCBL",$J,"SEL"

 +2        NEW DIC,DIRUT,DUOUT,RCSELN,RCOUT,VALMY,X,Y

           SET RCSELN=0

 +3        DO EN^VALM2($GET(XQORNOD(0)),0)

 +4        IF '$DATA(VALMY)

               WRITE !,"   ...Nothing Selected."

               DO PAUSE^VALM1

               Begin DoDot:1

 +5                IF ($DATA(DIROUT))!($DATA(DUOUT))

                       SET RCOUT=1

               End DoDot:1

 +6        DO FULL^VALM1

 +7        FOR 

               SET RCSELN=$ORDER(VALMY(RCSELN))

               if ('RCSELN)!($DATA(RCOUT))

                   QUIT 

               Begin DoDot:1

 +8                IF $DATA(^TMP("RCRCBL",$JOB,"SEL",RCSELN))

                       DO UNSEL(RCSELN)

                       QUIT 

 +9                SET ^TMP("RCRCBL",$JOB,"SEL",RCSELN)=""

 +10               DO SELECT^VALM10(RCSELN,1)

               End DoDot:1

 +11       IF $DATA(RCOUT)

               GOTO SELQ

 +12       IF $ORDER(^TMP("RCRCBL",$JOB,"SEL",0))

               Begin DoDot:1

 +13               WRITE @IOF,!!,"Current Selection of Items on List: "

 +14               SET RCSELN=0

                   FOR 

                       SET RCSELN=$ORDER(^TMP("RCRCBL",$JOB,"SEL",RCSELN))

                       if ('RCSELN)!($DATA(RCOUT))

                           QUIT 

                       Begin DoDot:2

 +15                       IF $Y>(IOSL+3)

                               WRITE !

                               DO PAUSE^VALM1

                               WRITE @IOF,!,"Current Selection of Items on List:"

 +16                       IF $DATA(DIRUT)!$DATA(DUOUT)

                               SET RCOUT=1

                               QUIT 

 +17                       WRITE !,@VALMAR@(RCSELN,0)

                       End DoDot:2

 +18               WRITE !

                   DO PAUSE^VALM1

               End DoDot:1

SELQ       QUIT 

 +1       ;

UNSEL(RCSELN) ; Unselect and Unhighlight items on the list

 +1       ;Ask user if they want to Unselect the Item

 +2        NEW DIR,DIROUT,DTOUT,DUOUT,DIROUT,X,Y

 +3        SET DIR(0)="Y"

           SET DIR("B")="No"

 +4        SET DIR("?")="Enter Yes to un-select pre-selected item."

 +5        SET DIR("A")="Do you want to UNSELECT Item "_RCSELN_" "

 +6        WRITE !!

           DO ^DIR

           IF $DATA(DTOUT)!$DATA(DIROUT)

               SET RCOUT=1

               GOTO UNSELQ

 +7        IF +Y

               KILL ^TMP("RCRCBL",$JOB,"SEL",RCSELN)

               DO SELECT^VALM10(RCSELN,0)

UNSELQ     QUIT 

 +1       ;

 +2       ;RCRCBLE