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

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

initial load of WorldVistAEHR
File size: 380 bytes
RevLine 
[613]1VACPT ;ALB/GRR - DISPLAY CPT COPYRIGHT INF ; 12 APR 1989@1400
2 ;;5.3;Registration;**123,124,138**;Aug 13, 1993;Build 1
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.