VACPT ;ALB/GRR - DISPLAY CPT COPYRIGHT INF ; 12 APR 1989@1400
;;5.3;Registration;**123,124,138**;Aug 13, 1993
;
; This routine now calls the CPT api for displaying the
; CPT COPYRIGHT information
;
D COPY^ICPTAPIU
Q:$G(IOST)["P-" ;if printer, quit
;
N DIR,DIRUT,DIROUT,DTOUT,DUOUT,X,Y
S DIR(0)="FAO",DIR("A")="Press any key to continue",DIR("?")=""
D ^DIR
Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HVACPT 385 printed Oct 16, 2024@19:01:41 Page 2
VACPT ;ALB/GRR - DISPLAY CPT COPYRIGHT INF ; 12 APR 1989@1400
+1 ;;5.3;Registration;**123,124,138**;Aug 13, 1993
+2 ;
+3 ; This routine now calls the CPT api for displaying the
+4 ; CPT COPYRIGHT information
+5 ;
+6 DO COPY^ICPTAPIU
+7 ;if printer, quit
if $GET(IOST)["P-"
QUIT
+8 ;
+9 NEW DIR,DIRUT,DIROUT,DTOUT,DUOUT,X,Y
+10 SET DIR(0)="FAO"
SET DIR("A")="Press any key to continue"
SET DIR("?")=""
+11 DO ^DIR
+12 QUIT
