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 ---[H[J[2J[HRCRCBLE 1506 printed Oct 16, 2024@17:48:27 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
