Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Routine: RCRCELE

RCRCELE.m

Go to the documentation of this file.
  1. RCRCELE ;ALB/CMS - TRANSMISSION LOG SEL/RESEQ LIST BUILD ; 09/13/97
  1. V ;;4.5;Accounts Receivable;**63**;Mar 20, 1995
  1. ;;Per VHA Directive 10-93-142, this routine should not be modified.
  1. ;
  1. SEL ; Entry point to select Items on List
  1. ; Select items will be highlighted and stored in TMP("RCRCE",$J,"SEL"
  1. N DIC,DIRUT,DUOUT,RCLN,RCSELN,RCOUT,VALMBG,VALMLST,VALMY,X,Y S RCSELN=0
  1. S VALMBG=1,VALMLST=$G(VALMCNT)
  1. D EN^VALM2($G(XQORNOD(0)),0)
  1. I '$D(VALMY) W !," ...Nothing Selected." D PAUSE^VALM1 D
  1. .I ($D(DIROUT))!($D(DUOUT)) S RCOUT=1
  1. F S RCSELN=$O(VALMY(RCSELN)) Q:('RCSELN)!($D(RCOUT)) D
  1. .I $D(^TMP("RCRCE",$J,"SEL",RCSELN)) D UNSEL(RCSELN) Q
  1. .S RCLN=+$G(^TMP("RCRCEX",$J,RCSELN))
  1. .S ^TMP("RCRCE",$J,"SEL",RCSELN)=RCLN
  1. .D SELECT^VALM10(RCLN,1)
  1. I $D(RCOUT) G SELQ
  1. I $O(^TMP("RCRCE",$J,"SEL",0)) D
  1. .D FULL^VALM1
  1. .W @IOF,!!,"Current Selection of Items on List: "
  1. .S RCSELN=0 F S RCSELN=$O(^TMP("RCRCE",$J,"SEL",RCSELN)) Q:('RCSELN)!($D(RCOUT)) D
  1. ..S RCLN=+$G(^TMP("RCRCE",$J,"SEL",RCSELN))
  1. ..I $Y>(IOSL+3) W ! D PAUSE^VALM1 W @IOF,!,"Current Selection of Items on List:"
  1. ..I $D(DIRUT)!$D(DUOUT) S RCOUT=1 Q
  1. ..W !,@VALMAR@(RCLN,0)
  1. .W ! D PAUSE^VALM1
  1. SELQ Q
  1. ;
  1. UNSEL(RCSELN) ; Unselect and Unhighlight items on the list
  1. ;Ask user if they want to Unselect the Item
  1. N DIR,DIROUT,DTOUT,DUOUT,DIROUT,RCLN,X,Y
  1. S DIR(0)="Y",DIR("B")="No"
  1. S DIR("?")="Enter Yes to un-select pre-selected item."
  1. S DIR("A")="Do you want to UNSELECT Item "_RCSELN_" "
  1. W !! D ^DIR I $D(DTOUT)!$D(DIROUT) S RCOUT=1 G UNSELQ
  1. I +Y S RCLN=^TMP("RCRCE",$J,"SEL",RCSELN) D
  1. .D SELECT^VALM10(RCLN,0)
  1. .K ^TMP("RCRCE",$J,"SEL",RCSELN)
  1. UNSELQ Q
  1. ;
  1. REQ ; Resequence list for Transmission Log
  1. N DIR,DIROUT,DTOUT,DUOUT,DIROUT,RCBN0,RCBN2,RCCNT,RCCOM,RCDATE,RCLN,RCNT,RCX,RCY,X,Y
  1. ;
  1. D FULL^VALM1
  1. I '$O(^RCT(349.3,0)) W !!,?10,"** TRANSMISSION LOG EMPTY **",!! R !,"Press ANY key to continue:",RCLN:DTIME G REQQ
  1. ;
  1. W !!!,?10,"* WARNING: THIS OPTION WILL RE-SEQUENCE ALL THE ITEMS ON THE *"
  1. W !,?10,"* LIST. TRANSMISSION ENTRIES DELETED WILL NOT APPEAR. APPENDED *"
  1. W !,?10,"* COMMENTS WILL DISPLAY. ALL CURRENT HIGHLIGHTED SELECTIONS *"
  1. W !,?10,"* WILL BE UNSELECTED. *"
  1. W !!
  1. ;
  1. ;Ask user if sure
  1. K DIR,DIROUT,DTOUT,DUOUT,DIROUT,X,Y
  1. S DIR(0)="Y",DIR("B")="No"
  1. S DIR("?")="Enter Yes if you want to rebuild the current list"
  1. S DIR("A")="Okay to Continue "
  1. D ^DIR K DIR I 'Y G REQQ
  1. I ($D(DTOUT))!($D(DIROUT)) S RCOUT=1 W !,"Nothing Changed." G REQQ
  1. W !
  1. ;
  1. ;Delete Highlighted selected items
  1. I $O(^TMP("RCRCE",$J,"SEL",0)) W !,?3,"Remove Highlighted Items..."
  1. S RCY=0 F S RCY=$O(^TMP("RCRCE",$J,"SEL",RCY)) Q:'RCY D
  1. .S RCLN=+$G(^TMP("RCRCE",$J,"SEL",RCY))
  1. .D SELECT^VALM10(RCLN,0)
  1. ;
  1. W !,?3,"Killing current list ..."
  1. K ^TMP("RCRCEX",$J),^TMP("RCRCE",$J)
  1. ;
  1. ;Rebuild
  1. W !,?3,"Rebuilding list ..."
  1. D REQ^RCRCEL
  1. I +$G(VALMCNT)=0 S VALMSG="NO MESSAGES FOUND"
  1. REQQ Q
  1. ;
  1. ;RCRCELE