source: WorldVistAEHR/trunk/r/ACCOUNTS_RECEIVABLE-PRCA-PRY-RC/RCRCBLE.m@ 1259

Last change on this file since 1259 was 613, checked in by George Lilly, 15 years ago

initial load of WorldVistAEHR

File size: 1.4 KB
Line 
1RCRCBLE ;ALB/CMS - TP REFERRAL ACTION SEL/MOD LIST BUILD ; 09/13/97
2V ;;4.5;Accounts Receivable;**63**;Mar 20, 1995
3 ;;Per VHA Directive 10-93-142, this routine should not be modified.
4 ;
5SEL ; Entry point to select Items on List
6 ; Select items will be highlighted and stored in TMP("RCRCBL",$J,"SEL"
7 N DIC,DIRUT,DUOUT,RCSELN,RCOUT,VALMY,X,Y S RCSELN=0
8 D EN^VALM2($G(XQORNOD(0)),0)
9 I '$D(VALMY) W !," ...Nothing Selected." D PAUSE^VALM1 D
10 .I ($D(DIROUT))!($D(DUOUT)) S RCOUT=1
11 D FULL^VALM1
12 F S RCSELN=$O(VALMY(RCSELN)) Q:('RCSELN)!($D(RCOUT)) D
13 .I $D(^TMP("RCRCBL",$J,"SEL",RCSELN)) D UNSEL(RCSELN) Q
14 .S ^TMP("RCRCBL",$J,"SEL",RCSELN)=""
15 .D SELECT^VALM10(RCSELN,1)
16 I $D(RCOUT) G SELQ
17 I $O(^TMP("RCRCBL",$J,"SEL",0)) D
18 .W @IOF,!!,"Current Selection of Items on List: "
19 .S RCSELN=0 F S RCSELN=$O(^TMP("RCRCBL",$J,"SEL",RCSELN)) Q:('RCSELN)!($D(RCOUT)) D
20 ..I $Y>(IOSL+3) W ! D PAUSE^VALM1 W @IOF,!,"Current Selection of Items on List:"
21 ..I $D(DIRUT)!$D(DUOUT) S RCOUT=1 Q
22 ..W !,@VALMAR@(RCSELN,0)
23 .W ! D PAUSE^VALM1
24SELQ Q
25 ;
26UNSEL(RCSELN) ; Unselect and Unhighlight items on the list
27 ;Ask user if they want to Unselect the Item
28 N DIR,DIROUT,DTOUT,DUOUT,DIROUT,X,Y
29 S DIR(0)="Y",DIR("B")="No"
30 S DIR("?")="Enter Yes to un-select pre-selected item."
31 S DIR("A")="Do you want to UNSELECT Item "_RCSELN_" "
32 W !! D ^DIR I $D(DTOUT)!$D(DIROUT) S RCOUT=1 G UNSELQ
33 I +Y K ^TMP("RCRCBL",$J,"SEL",RCSELN) D SELECT^VALM10(RCSELN,0)
34UNSELQ Q
35 ;
36 ;RCRCBLE
Note: See TracBrowser for help on using the repository browser.