|
Last change
on this file since 1800 was 613, checked in by George Lilly, 15 years ago |
|
initial load of WorldVistAEHR
|
|
File size:
763 bytes
|
| Rev | Line | |
|---|
| [613] | 1 | PSJHL11 ;BIR/LDT-PROVIDER COMMENTS FOR MOB ORDER ; 17 Mar 98 / 11:05 AM
|
|---|
| 2 | ;;5.0; INPATIENT MEDICATIONS ;**58**;16 DEC 97
|
|---|
| 3 | ;
|
|---|
| 4 | ENPC(PSJTYP,LEN) ; Copy Provider Comments -> Special Instructions/Other Print Info.
|
|---|
| 5 | Q:'$D(PROCOM) ""
|
|---|
| 6 | N PSGSI,X,Y
|
|---|
| 7 | S Y="",X=0 F S X=$O(PROCOM(X)) Q:'X S Y=Y_PROCOM(X)_" " Q:$L(Y)>LEN
|
|---|
| 8 | S:$G(PSJTYP)'="V" Y=$$ENSET(Y) S:$G(PSJTYP)="V" Y=$E(Y,1,$L(Y)-1)
|
|---|
| 9 | I $L(Y)'<LEN S PSGSI="REFERENCE PROVIDER COMMENTS IN CPRS FOR INSTRUCTIONS." Q PSGSI
|
|---|
| 10 | S PSGSI=Y Q PSGSI
|
|---|
| 11 | ENSET(X) ; expands the SPECIAL INSTRUCTIONS field contained in X into Y
|
|---|
| 12 | N X1,X2,Y S Y=""
|
|---|
| 13 | F X1=1:1:$L(X," ") S X2=$P(X," ",X1) I X2]"" S Y=Y_$S($L(X2)>30:X2,'$D(^PS(51,+$O(^PS(51,"B",X2,0)),0)):X2,$P(^(0),"^",2)]""&$P(^(0),"^",4):$P(^(0),"^",2),1:X2)_" "
|
|---|
| 14 | S Y=$E(Y,1,$L(Y)-1) Q Y
|
|---|
Note:
See
TracBrowser
for help on using the repository browser.
