- 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 Feb 18, 2025@23:14:15 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 ;
