Last change
on this file since 701 was 613, checked in by George Lilly, 15 years ago |
initial load of WorldVistAEHR
|
File size:
624 bytes
|
Line | |
---|
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.