|
Last change
on this file since 1800 was 613, checked in by George Lilly, 15 years ago |
|
initial load of WorldVistAEHR
|
|
File size:
444 bytes
|
| Rev | Line | |
|---|
| 1 | IBDFU6 ;ALB/CJM - ENCOUNTER FORM - (utilities for data fields);3/29/93
|
|---|
| 2 | ;;3.0;AUTOMATED INFO COLLECTION SYS;;APR 24, 1997
|
|---|
| 3 | FORMAT(ARY,WIDTH,LABEL) ;formats the word-processing field pointed to by @ARY into a column of width=WIDTH
|
|---|
| 4 | N LINE,W
|
|---|
| 5 | K ^UTILITY($J,"W"),DIWF
|
|---|
| 6 | S LINE=0,DIWL=1,DIWR=WIDTH
|
|---|
| 7 | I $D(LABEL) S X=$E(LABEL_" ",1,WIDTH) I X'="" D ^DIWP
|
|---|
| 8 | F S LINE=$O(@ARY@(LINE)) Q:'LINE S X=$G(@ARY@(LINE,0)) I X'="" D ^DIWP
|
|---|
| 9 | K X,DIWL,DIWR,DIWF
|
|---|
| 10 | Q
|
|---|
Note:
See
TracBrowser
for help on using the repository browser.
