VACPT.m

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 ---VACPT   385     printed  Apr 09, 2024@21:51:23                                                                                                                                                                                                        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