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 |
Rev | Line | |
---|---|---|
[613] | 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.