| Name | Value |
|---|---|
| NAME | PSODX |
| MUMPS CODE | S PSODX=X S:PSODX="" X1="" W:$X " " W:($X+$L(PSODX)+$L(X1))>IOM ! W X1 K PSODX |
| EXPLANATION | Call this function by using PSODX(field label,field name). e.g. PSODX("DRUG: ",DRUG). Prints a carriage return if the label and field are too long to print on the current line. |
| DATE-VALUED | OPTIONAL (DEPENDS ON VALUE OF ARGUMENT) |