source: WorldVistAEHR/trunk/r/ACCOUNTS_RECEIVABLE-PRCA-PRY-RC/RCRCVC.m@ 1166

Last change on this file since 1166 was 613, checked in by George Lilly, 15 years ago

initial load of WorldVistAEHR

File size: 734 bytes
Line 
1RCRCVC ;ALB/CMS - RC VIEW REFERRAL CHECK LIST ; 02-SEP-1997
2V ;;4.5;Accounts Receivable;**63**;Mar 20, 1995
3 ;;Per VHA Directive 10-93-142, this routine should not be modified.
4EN ; -- main entry point for RCRC VIEW CHECKLIST
5 N RCEXP,X,Y K DIR
6 S DIR("A")="Expanded View ",DIR("B")="Yes",DIR(0)="Y" D ^DIR
7 S RCEXP=+Y
8 I $D(DIROUT)!$D(DTOUT)!$D(DUOUT)!$D(DIRUT) S RCOUT=1 G ENQ
9 K DIR,DIROUT,DTOUT,DUOUT,DIRUT
10 D EN^VALM("RCRC VIEW CHECKLIST")
11ENQ Q
12 ;
13HDR ; -- header code
14 S VALMHDR(1)=""
15 S VALMHDR(2)=""
16 Q
17 ;
18INIT ; -- init variables and list array
19 K ^TMP("RCRCVC",$J)
20 D CHK^RCRCVCP(RCEXP)
21 Q
22 ;
23HELP ; -- help code
24 S X="?" D DISP^XQORM1 W !!
25 Q
26 ;
27EXIT ; -- exit code
28 K ^TMP("RCRCVC",$J)
29 Q
30 ;
31EXPND ; -- expand code
32 Q
33 ;
Note: See TracBrowser for help on using the repository browser.