source: FOIAVistA/trunk/r/ACCOUNTS_RECEIVABLE-PRCA-PRY-RC/RCRCELE.m

Last change on this file was 628, checked in by George Lilly, 15 years ago

initial load of FOIAVistA 6/30/08 version

File size: 2.9 KB
Line 
1RCRCELE ;ALB/CMS - TRANSMISSION LOG SEL/RESEQ 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("RCRCE",$J,"SEL"
7 N DIC,DIRUT,DUOUT,RCLN,RCSELN,RCOUT,VALMBG,VALMLST,VALMY,X,Y S RCSELN=0
8 S VALMBG=1,VALMLST=$G(VALMCNT)
9 D EN^VALM2($G(XQORNOD(0)),0)
10 I '$D(VALMY) W !," ...Nothing Selected." D PAUSE^VALM1 D
11 .I ($D(DIROUT))!($D(DUOUT)) S RCOUT=1
12 F S RCSELN=$O(VALMY(RCSELN)) Q:('RCSELN)!($D(RCOUT)) D
13 .I $D(^TMP("RCRCE",$J,"SEL",RCSELN)) D UNSEL(RCSELN) Q
14 .S RCLN=+$G(^TMP("RCRCEX",$J,RCSELN))
15 .S ^TMP("RCRCE",$J,"SEL",RCSELN)=RCLN
16 .D SELECT^VALM10(RCLN,1)
17 I $D(RCOUT) G SELQ
18 I $O(^TMP("RCRCE",$J,"SEL",0)) D
19 .D FULL^VALM1
20 .W @IOF,!!,"Current Selection of Items on List: "
21 .S RCSELN=0 F S RCSELN=$O(^TMP("RCRCE",$J,"SEL",RCSELN)) Q:('RCSELN)!($D(RCOUT)) D
22 ..S RCLN=+$G(^TMP("RCRCE",$J,"SEL",RCSELN))
23 ..I $Y>(IOSL+3) W ! D PAUSE^VALM1 W @IOF,!,"Current Selection of Items on List:"
24 ..I $D(DIRUT)!$D(DUOUT) S RCOUT=1 Q
25 ..W !,@VALMAR@(RCLN,0)
26 .W ! D PAUSE^VALM1
27SELQ Q
28 ;
29UNSEL(RCSELN) ; Unselect and Unhighlight items on the list
30 ;Ask user if they want to Unselect the Item
31 N DIR,DIROUT,DTOUT,DUOUT,DIROUT,RCLN,X,Y
32 S DIR(0)="Y",DIR("B")="No"
33 S DIR("?")="Enter Yes to un-select pre-selected item."
34 S DIR("A")="Do you want to UNSELECT Item "_RCSELN_" "
35 W !! D ^DIR I $D(DTOUT)!$D(DIROUT) S RCOUT=1 G UNSELQ
36 I +Y S RCLN=^TMP("RCRCE",$J,"SEL",RCSELN) D
37 .D SELECT^VALM10(RCLN,0)
38 .K ^TMP("RCRCE",$J,"SEL",RCSELN)
39UNSELQ Q
40 ;
41REQ ; Resequence list for Transmission Log
42 N DIR,DIROUT,DTOUT,DUOUT,DIROUT,RCBN0,RCBN2,RCCNT,RCCOM,RCDATE,RCLN,RCNT,RCX,RCY,X,Y
43 ;
44 D FULL^VALM1
45 I '$O(^RCT(349.3,0)) W !!,?10,"** TRANSMISSION LOG EMPTY **",!! R !,"Press ANY key to continue:",RCLN:DTIME G REQQ
46 ;
47 W !!!,?10,"* WARNING: THIS OPTION WILL RE-SEQUENCE ALL THE ITEMS ON THE *"
48 W !,?10,"* LIST. TRANSMISSION ENTRIES DELETED WILL NOT APPEAR. APPENDED *"
49 W !,?10,"* COMMENTS WILL DISPLAY. ALL CURRENT HIGHLIGHTED SELECTIONS *"
50 W !,?10,"* WILL BE UNSELECTED. *"
51 W !!
52 ;
53 ;Ask user if sure
54 K DIR,DIROUT,DTOUT,DUOUT,DIROUT,X,Y
55 S DIR(0)="Y",DIR("B")="No"
56 S DIR("?")="Enter Yes if you want to rebuild the current list"
57 S DIR("A")="Okay to Continue "
58 D ^DIR K DIR I 'Y G REQQ
59 I ($D(DTOUT))!($D(DIROUT)) S RCOUT=1 W !,"Nothing Changed." G REQQ
60 W !
61 ;
62 ;Delete Highlighted selected items
63 I $O(^TMP("RCRCE",$J,"SEL",0)) W !,?3,"Remove Highlighted Items..."
64 S RCY=0 F S RCY=$O(^TMP("RCRCE",$J,"SEL",RCY)) Q:'RCY D
65 .S RCLN=+$G(^TMP("RCRCE",$J,"SEL",RCY))
66 .D SELECT^VALM10(RCLN,0)
67 ;
68 W !,?3,"Killing current list ..."
69 K ^TMP("RCRCEX",$J),^TMP("RCRCE",$J)
70 ;
71 ;Rebuild
72 W !,?3,"Rebuilding list ..."
73 D REQ^RCRCEL
74 I +$G(VALMCNT)=0 S VALMSG="NO MESSAGES FOUND"
75REQQ Q
76 ;
77 ;RCRCELE
Note: See TracBrowser for help on using the repository browser.