|
Last change
on this file since 691 was 613, checked in by George Lilly, 15 years ago |
|
initial load of WorldVistAEHR
|
|
File size:
624 bytes
|
| Rev | Line | |
|---|
| [613] | 1 | IMRCDP8 ;HCIOFO/NCA - Display CDC Form (Cont.) ;6/18/97 16:31
|
|---|
| 2 | ;;2.1;IMMUNOLOGY CASE REGISTRY;;Feb 09, 1998
|
|---|
| 3 | Q:IMRUT
|
|---|
| 4 | W !,"================================================================================================================================="
|
|---|
| 5 | S LN="",$P(LN,"_",130)=""
|
|---|
| 6 | W !,"X. COMMENTS:"
|
|---|
| 7 | W ! S X=$S(IMRPT:$$FIELD^IMRCDCPX(158,IMRPT,10.01,"E"),1:"") W X_$P(LN,"_",1,(130-$L(X)))
|
|---|
| 8 | W ! S X=$S(IMRPT:$$FIELD^IMRCDCPX(158,IMRPT,11.01,"E"),1:"") W X_$P(LN,"_",1,(130-$L(X)))
|
|---|
| 9 | W ! S X=$S(IMRPT:$$FIELD^IMRCDCPX(158,IMRPT,12.01,"E"),1:"") W X_$P(LN,"_",1,(130-$L(X)))
|
|---|
| 10 | W:($E(IOST,1,2)'="C-"&IMRCOPI'=IMRCOPY) @IOF
|
|---|
| 11 | Q
|
|---|
Note:
See
TracBrowser
for help on using the repository browser.
