source: FOIAVistA/trunk/r/VENDOR_AMA-VACPT/VACPT.m

Last change on this file was 628, checked in by George Lilly, 15 years ago

initial load of FOIAVistA 6/30/08 version

File size: 372 bytes
Line 
1VACPT ;ALB/GRR - DISPLAY CPT COPYRIGHT INF ; 12 APR 1989@1400
2 ;;5.3;Registration;**123,124,138**;Aug 13, 1993
3 ;
4 ; This routine now calls the CPT api for displaying the
5 ; CPT COPYRIGHT information
6 ;
7 D COPY^ICPTAPIU
8 Q:$G(IOST)["P-" ;if printer, quit
9 ;
10 N DIR,DIRUT,DIROUT,DTOUT,DUOUT,X,Y
11 S DIR(0)="FAO",DIR("A")="Press any key to continue",DIR("?")=""
12 D ^DIR
13 Q
Note: See TracBrowser for help on using the repository browser.