RCRCVC.m

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 ---RCRCVC   767     printed  Apr 09, 2024@20:46:48                                                                                                                                                                                                       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       ;