Last change
on this file since 1714 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.