source: WorldVistAEHR/trunk/r/AUTOMATED_INFO_COLLECTION_SYS-IBD/IBDFU6.m@ 1078

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

initial load of WorldVistAEHR

File size: 444 bytes
RevLine 
[613]1IBDFU6 ;ALB/CJM - ENCOUNTER FORM - (utilities for data fields);3/29/93
2 ;;3.0;AUTOMATED INFO COLLECTION SYS;;APR 24, 1997
3FORMAT(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.