RCRCVC ;ALB/CMS - RC VIEW REFERRAL CHECK 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 VIEW CHECKLIST
N RCEXP,X,Y K DIR
S DIR("A")="Expanded View ",DIR("B")="Yes",DIR(0)="Y" D ^DIR
S RCEXP=+Y
I $D(DIROUT)!$D(DTOUT)!$D(DUOUT)!$D(DIRUT) S RCOUT=1 G ENQ
K DIR,DIROUT,DTOUT,DUOUT,DIRUT
D EN^VALM("RCRC VIEW CHECKLIST")
ENQ Q
;
HDR ; -- header code
S VALMHDR(1)=""
S VALMHDR(2)=""
Q
;
INIT ; -- init variables and list array
K ^TMP("RCRCVC",$J)
D CHK^RCRCVCP(RCEXP)
Q
;
HELP ; -- help code
S X="?" D DISP^XQORM1 W !!
Q
;
EXIT ; -- exit code
K ^TMP("RCRCVC",$J)
Q
;
EXPND ; -- expand code
Q
;
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HRCRCVC 767 printed Dec 13, 2024@01:47:52 Page 2
RCRCVC ;ALB/CMS - RC VIEW REFERRAL CHECK 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 VIEW CHECKLIST
+1 NEW RCEXP,X,Y
KILL DIR
+2 SET DIR("A")="Expanded View "
SET DIR("B")="Yes"
SET DIR(0)="Y"
DO ^DIR
+3 SET RCEXP=+Y
+4 IF $DATA(DIROUT)!$DATA(DTOUT)!$DATA(DUOUT)!$DATA(DIRUT)
SET RCOUT=1
GOTO ENQ
+5 KILL DIR,DIROUT,DTOUT,DUOUT,DIRUT
+6 DO EN^VALM("RCRC VIEW CHECKLIST")
ENQ QUIT
+1 ;
HDR ; -- header code
+1 SET VALMHDR(1)=""
+2 SET VALMHDR(2)=""
+3 QUIT
+4 ;
INIT ; -- init variables and list array
+1 KILL ^TMP("RCRCVC",$JOB)
+2 DO CHK^RCRCVCP(RCEXP)
+3 QUIT
+4 ;
HELP ; -- help code
+1 SET X="?"
DO DISP^XQORM1
WRITE !!
+2 QUIT
+3 ;
EXIT ; -- exit code
+1 KILL ^TMP("RCRCVC",$JOB)
+2 QUIT
+3 ;
EXPND ; -- expand code
+1 QUIT
+2 ;
