- 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 Feb 19, 2025@00:27:11 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