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 Dec 13, 2024@01:47:26 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
