source:
WorldVistAEHR/trunk/r/PCE_PATIENT_CARE_ENCOUNTER-AUTN-EFDP-PX-VSIT--PXRM/PXQGRLT.m
Last change on this file was 613, checked in by , 15 years ago | |
---|---|
File size: 349 bytes |
Line | |
---|---|
1 | PXQGRLT ;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.