source: WorldVistAEHR/trunk/r/ICR_IMMUNOLOGY_CASE_REGISTRY-IMR/IMRCDP8.m@ 975

Last change on this file since 975 was 613, checked in by George Lilly, 15 years ago

initial load of WorldVistAEHR

File size: 624 bytes
Line 
1IMRCDP8 ;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.