| 1 | XBHEDD5 ;402,DJB,10/23/91,EDD - Individual Field Summary
|
|---|
| 2 | ;;4.0;XB;;Jul 20, 2009;Build 2
|
|---|
| 3 | ;;David Bolduc - Togus, ME
|
|---|
| 4 | STRING ;String=code - Prints a string in lines of 55 characters
|
|---|
| 5 | S LINE(1)=$E(STRING,1,55) W ?M3,LINE(1) I $Y>SIZE D PAGE Q:FLAGQ
|
|---|
| 6 | I $L(STRING)>55 S LINE(2)=$E(STRING,56,110) W !?M3,LINE(2) I $Y>SIZE D PAGE Q:FLAGQ
|
|---|
| 7 | I $L(STRING)>110 S LINE(3)=$E(STRING,111,165) W !?M3,LINE(3) I $Y>SIZE D PAGE Q:FLAGQ
|
|---|
| 8 | I $L(STRING)>165 S LINE(4)=$E(STRING,166,220) W !?M3,LINE(4) I $Y>SIZE D PAGE Q:FLAGQ
|
|---|
| 9 | I $L(STRING)>220 S LINE(5)=$E(STRING,221,275) W !?M3,LINE(5) I $Y>SIZE D PAGE Q:FLAGQ
|
|---|
| 10 | I $L(STRING)>275 S LINE(6)=$E(STRING,276,330) W !?M3,LINE(6) I $Y>SIZE D PAGE Q:FLAGQ
|
|---|
| 11 | Q
|
|---|
| 12 | WORD ;String=text - Prints a string in lines of 55 characters
|
|---|
| 13 | S LINE(1)=$E(STRING,1,55)
|
|---|
| 14 | I $L(STRING)>55 S LINE(1)=$P(LINE(1)," ",1,$L(LINE(1)," ")-1)
|
|---|
| 15 | W ?M3,LINE(1) I $Y>SIZE D PAGE Q:FLAGQ
|
|---|
| 16 | S LENGTH=$L(LINE(1))
|
|---|
| 17 | Q:$L(STRING)'>LENGTH
|
|---|
| 18 | S LINE(2)=$E(STRING,LENGTH+2,LENGTH+57)
|
|---|
| 19 | I $L(STRING)>(LENGTH+2+55) S LINE(2)=$P(LINE(2)," ",1,$L(LINE(2)," ")-1)
|
|---|
| 20 | W !?M3,LINE(2) I $Y>SIZE D PAGE Q:FLAGQ
|
|---|
| 21 | S LENGTH=LENGTH+2+$L(LINE(2))
|
|---|
| 22 | Q:$L(STRING)'>LENGTH
|
|---|
| 23 | S LINE(3)=$E(STRING,LENGTH+2,LENGTH+57)
|
|---|
| 24 | I $L(STRING)>(LENGTH+2+55) S LINE(3)=$P(LINE(3)," ",1,$L(LINE(3)," ")-1)
|
|---|
| 25 | W !?M3,LINE(3) I $Y>SIZE D PAGE Q:FLAGQ
|
|---|
| 26 | S LENGTH=LENGTH+2+$L(LINE(3))
|
|---|
| 27 | S LINE(4)=$E(STRING,LENGTH+2,LENGTH+57)
|
|---|
| 28 | I $L(STRING)>(LENGTH+2+55) S LINE(4)=$P(LINE(4)," ",1,$L(LINE(4)," ")-1)
|
|---|
| 29 | W !?M3,LINE(4) I $Y>SIZE D PAGE Q:FLAGQ
|
|---|
| 30 | S LENGTH=LENGTH+2+$L(LINE(4))
|
|---|
| 31 | S LINE(5)=$E(STRING,LENGTH+2,LENGTH+57)
|
|---|
| 32 | I $L(STRING)>(LENGTH+2+55) S LINE(5)=$P(LINE(5)," ",1,$L(LINE(5)," ")-1)
|
|---|
| 33 | W !?M3,LINE(5) I $Y>SIZE D PAGE Q:FLAGQ
|
|---|
| 34 | S LENGTH=LENGTH+2+$L(LINE(5))
|
|---|
| 35 | S LINE(6)=$E(STRING,LENGTH+2,LENGTH+57)
|
|---|
| 36 | I $L(STRING)>(LENGTH+2+55) S LINE(6)=$P(LINE(6)," ",1,$L(LINE(6)," ")-1)
|
|---|
| 37 | W !?M3,LINE(6) I $Y>SIZE D PAGE Q:FLAGQ
|
|---|
| 38 | Q
|
|---|
| 39 | DTYPE1 ;Called by DATATYPE^XBHEDD4
|
|---|
| 40 | W !?M3,$S(ZDSUB["B":"True-False (""Boolean"")",ZDSUB["I":"Uneditable",ZDSUB["O":"Has output transform",ZDSUB["R":"Required field",ZDSUB["X":"Input Transform has been modified in Utility Option",1:"")
|
|---|
| 41 | Q
|
|---|
| 42 | DTYPE2 ;Called by DATATYPE^XBHEDD4
|
|---|
| 43 | W !?M3,$S(ZDSUB["a":"Marked for auditing",ZDSUB["m":"Multilined",ZDSUB["*":"Field has a screen",ZDSUB["'":"LAYGO to ""pointed to"" file not allowed",1:"")
|
|---|
| 44 | Q
|
|---|
| 45 | PAGE ;
|
|---|
| 46 | I FLAGP,IO'=IO(0) W @IOF,!!! Q
|
|---|
| 47 | I $Y'>SIZE F I=$Y:1:SIZE W !
|
|---|
| 48 | W:'FLAGP !,$E(ZLINE,1,IOM) W:FLAGP !
|
|---|
| 49 | R !?2,"<RETURN> to continue, ""^"" to quit, ""^^"" to exit: ",Z1:DTIME S:'$T Z1="^" I Z1["^" S FLAGQ=1 S:Z1="^^" FLAGE=1 Q
|
|---|
| 50 | W @IOF W:'FLAGP !?55,"FLD NUMBER: ",FNUM,!,$E(ZLINE,1,IOM),!
|
|---|
| 51 | Q
|
|---|
