PXQGRLT.m

PXQGRLT ;ISL/PKR - MAXIUM EVALUATED LENGTH OF GLOBAL REFERENCE;8/29/96  10:32

 ;;1.0;PCE PATIENT CARE ENCOUNTER;**4**;Aug 12, 1996

 ;

 N BL,I,I1

 S BL=$L($J)+7

 W !,"Determine the maximum global reference length"

 S I1=""

 F I=1:1:300 D

 . S I1=I1_"A"

 . W !,"The length of I1 is ",I,", total length is ",I+BL

 . S ^TMP($J,I1)=I

 . K ^TMP($J,I1)

 Q

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---PXQGRLT   362     printed  Nov 22, 2024@17:40:04                                                                                                                                                                                                      Page 2

PXQGRLT   ;ISL/PKR - MAXIUM EVALUATED LENGTH OF GLOBAL REFERENCE;8/29/96  10:32

 +1       ;;1.0;PCE PATIENT CARE ENCOUNTER;**4**;Aug 12, 1996

 +2       ;

 +3        NEW BL,I,I1

 +4        SET BL=$LENGTH($JOB)+7

 +5        WRITE !,"Determine the maximum global reference length"

 +6        SET I1=""

 +7        FOR I=1:1:300

               Begin DoDot:1

 +8                SET I1=I1_"A"

 +9                WRITE !,"The length of I1 is ",I,", total length is ",I+BL

 +10               SET ^TMP($JOB,I1)=I

 +11               KILL ^TMP($JOB,I1)

               End DoDot:1

 +12       QUIT