- RCRCAC ;ALB/CMS - RC TRANSACTION CODE LIST ; 02-SEP-1997
- V ;;4.5;Accounts Receivable;**63**;Mar 20, 1995
- ;;Per VHA Directive 10-93-142, this routine should not be modified.
- EN ; -- main entry point for RCRC TRANSACTION CODE
- N VALMCNT
- ;D EN^VALM2($G(XQORNOD(0)))
- ;I $D(VALMY) S RCSELN=0 F S RCSELN=$O(VALMY(RCSELN)) Q:'RCSELN D
- D EN^VALM("RCRC ACTION CODE LIST")
- ENQ Q
- ;
- HDR ; -- header code
- S VALMHDR(1)=" "
- S VALMHDR(2)="Select RC Transaction Code"
- S XQORM("B")="TT"
- Q
- ;
- INIT ; -- init variables and list array
- K ^TMP("RCRCAC",$J)
- D TCD^RCRCACP
- Q
- ;
- HELP ; -- help code
- S X="?" D DISP^XQORM1 W !!
- Q
- ;
- EXIT ; -- exit code
- K ^TMP("RCRCAC",$J)
- Q
- ;
- EXPND ; -- expand code
- Q
- ;RCRCAC
- --- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HRCRCAC 735 printed Feb 18, 2025@23:13:49 Page 2
- RCRCAC ;ALB/CMS - RC TRANSACTION CODE LIST ; 02-SEP-1997
- V ;;4.5;Accounts Receivable;**63**;Mar 20, 1995
- +1 ;;Per VHA Directive 10-93-142, this routine should not be modified.
- EN ; -- main entry point for RCRC TRANSACTION CODE
- +1 NEW VALMCNT
- +2 ;D EN^VALM2($G(XQORNOD(0)))
- +3 ;I $D(VALMY) S RCSELN=0 F S RCSELN=$O(VALMY(RCSELN)) Q:'RCSELN D
- +4 DO EN^VALM("RCRC ACTION CODE LIST")
- ENQ QUIT
- +1 ;
- HDR ; -- header code
- +1 SET VALMHDR(1)=" "
- +2 SET VALMHDR(2)="Select RC Transaction Code"
- +3 SET XQORM("B")="TT"
- +4 QUIT
- +5 ;
- INIT ; -- init variables and list array
- +1 KILL ^TMP("RCRCAC",$JOB)
- +2 DO TCD^RCRCACP
- +3 QUIT
- +4 ;
- HELP ; -- help code
- +1 SET X="?"
- DO DISP^XQORM1
- WRITE !!
- +2 QUIT
- +3 ;
- EXIT ; -- exit code
- +1 KILL ^TMP("RCRCAC",$JOB)
- +2 QUIT
- +3 ;
- EXPND ; -- expand code
- +1 QUIT
- +2 ;RCRCAC