Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Routine: VACPT

VACPT.m

Go to the documentation of this file.
  1. VACPT ;ALB/GRR - DISPLAY CPT COPYRIGHT INF ; 12 APR 1989@1400
  1. ;;5.3;Registration;**123,124,138**;Aug 13, 1993
  1. ;
  1. ; This routine now calls the CPT api for displaying the
  1. ; CPT COPYRIGHT information
  1. ;
  1. D COPY^ICPTAPIU
  1. Q:$G(IOST)["P-" ;if printer, quit
  1. ;
  1. N DIR,DIRUT,DIROUT,DTOUT,DUOUT,X,Y
  1. S DIR(0)="FAO",DIR("A")="Press any key to continue",DIR("?")=""
  1. D ^DIR
  1. Q