source: FOIAVistA/trunk/r/PCE_PATIENT_CARE_ENCOUNTER-AUTN-EFDP-PX-VSIT--PXRM/PXQGRLT.m@ 1757

Last change on this file since 1757 was 628, checked in by George Lilly, 15 years ago

initial load of FOIAVistA 6/30/08 version

File size: 349 bytes
Line 
1PXQGRLT ;ISL/PKR - MAXIUM EVALUATED LENGTH OF GLOBAL REFERENCE;8/29/96 10:32
2 ;;1.0;PCE PATIENT CARE ENCOUNTER;**4**;Aug 12, 1996
3 ;
4 N BL,I,I1
5 S BL=$L($J)+7
6 W !,"Determine the maximum global reference length"
7 S I1=""
8 F I=1:1:300 D
9 . S I1=I1_"A"
10 . W !,"The length of I1 is ",I,", total length is ",I+BL
11 . S ^TMP($J,I1)=I
12 . K ^TMP($J,I1)
13 Q
Note: See TracBrowser for help on using the repository browser.