source: WorldVistAEHR/trunk/r/ICR_IMMUNOLOGY_CASE_REGISTRY-IMR/IMRCDP6.m

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

initial load of WorldVistAEHR

File size: 4.0 KB
Line 
1IMRCDP6 ;HCIOFO/NCA - Display CDC Form (Cont.) ;7/16/97 08:58
2 ;;2.1;IMMUNOLOGY CASE REGISTRY;;Feb 09, 1998
3 Q:IMRUT
4 W !,"|Cytomegalovirus disease (other than in |M. tuberculosis, disseminated |"
5 W !,"| liver, spleen or nodes) |",$S(IMRPT:$$VAL^IMRCDCPX(7.5,1),1:1),"| NA ",$S(IMRPT:$$DAT^IMRCDCPX(108.07),1:"__ __")," |"
6 W " or extrapulmonary * |",$S(IMRPT:$$VAL^IMRCDCPX(8.6,1),1:1),"| |",$S(IMRPT:$$VAL^IMRCDCPX(8.6,2),1:2),"| ",$S(IMRPT:$$DAT^IMRCDCPX(108.19),1:"__ __")," |"
7 W !,"|Cytomegalovirus retinitis (with loss of |Mycobacterium, of other species or |"
8 W !,"| vision) |",$S(IMRPT:$$VAL^IMRCDCPX(7.6,1),1:1),"| |",$S(IMRPT:$$VAL^IMRCDCPX(7.6,2),1:2),"| ",$S(IMRPT:$$DAT^IMRCDCPX(108.08),1:"__ __")," |"
9 W " unidentified species, disseminated |"
10 W !,"|HIV encephalopathy |",$S(IMRPT:$$VAL^IMRCDCPX(7.7,1),1:1),"| NA ",$S(IMRPT:$$DAT^IMRCDCPX(108.09),1:"__ __")
11 W " | or extrapulmonary |",$S(IMRPT:$$VAL^IMRCDCPX(8.7,1),1:1),"| |",$S(IMRPT:$$VAL^IMRCDCPX(8.7,2),1:2),"| ",$S(IMRPT:$$DAT^IMRCDCPX(108.2),1:"__ __")," |"
12 W !,"|Herpes simplex: chronic ulcer(s) (>1 mo. |Pneumocystis carinii pneumonia |"
13 W $S(IMRPT:$$VAL^IMRCDCPX(8.8,1),1:1),"| |",$S(IMRPT:$$VAL^IMRCDCPX(8.8,2),1:2),"| ",$S(IMRPT:$$DAT^IMRCDCPX(108.21),1:"__ __")," |"
14 W !,"| duration); or bronchitis, pneumonitis, |Penumonia, recurrent in 12 mo. period |",$S(IMRPT:$$VAL^IMRCDCPX(102.17,1),1:1),"| |"
15 W $S(IMRPT:$$VAL^IMRCDCPX(102.17,2),1:2),"| ",$S(IMRPT:$$DAT^IMRCDCPX(108.22),1:"__ __")," |"
16 W !,"| or esophagitis |",$S(IMRPT:$$VAL^IMRCDCPX(7.8,1),1:1),"| NA ",$S(IMRPT:$$DAT^IMRCDCPX(108.1),1:"__ __")," |"
17 W "Progressive multifocal |"
18 W !,"|Histoplasmosis, disseminated or | leukoencephalopathy |",$S(IMRPT:$$VAL^IMRCDCPX(8.9,1),1:1)
19 W "| NA ",$S(IMRPT:$$DAT^IMRCDCPX(108.23),1:"__ __")," |"
20 W !,"| extrapulmonary |",$S(IMRPT:$$VAL^IMRCDCPX(7.9,1),1:1),"| NA ",$S(IMRPT:$$DAT^IMRCDCPX(108.11),1:"__ __")," |"
21 W "Salmonella septicemia, recurrent |",$S(IMRPT:$$VAL^IMRCDCPX(9,1),1:1),"| NA ",$S(IMRPT:$$DAT^IMRCDCPX(108.24),1:"__ __")," |"
22 W !,"|Isosporiasis, chronic intestinal (>1 mo. |Toxoplasmosis of brain |"
23 W $S(IMRPT:$$VAL^IMRCDCPX(9.1,1),1:1),"| |",$S(IMRPT:$$VAL^IMRCDCPX(9.1,2),1:2),"| ",$S(IMRPT:$$DAT^IMRCDCPX(108.25),1:"__ __")," |"
24 W !,"| duration) |",$S(IMRPT:$$VAL^IMRCDCPX(8,1),1:1),"| NA ",$S(IMRPT:$$DAT^IMRCDCPX(108.12),1:"__ __")," |",?129,"|"
25 W !,"|Kaposi's sarcoma |",$S(IMRPT:$$VAL^IMRCDCPX(8.1,1),1:1),"| |"
26 W $S(IMRPT:$$VAL^IMRCDCPX(8.1,2),1:2),"| ",$S(IMRPT:$$DAT^IMRCDCPX(108.13),1:"__ __")," |Wasting Syndrome due to HIV |"
27 W $S(IMRPT:$$VAL^IMRCDCPX(9.2,1),1:1),"| NA ",$S(IMRPT:$$DAT^IMRCDCPX(108.26),1:"__ __")," |"
28 W !,"|---------------------------------------------------------------|----------------------------------------------------------------|"
29 W !,"| Def.=definitive diagnosis Pres.=presumptive diagnosis | * RVCT CASE NO.: _______________ |"
30 S LN="",$P(LN,"-",129)="" W !?1,LN
31 W !,"| * If HIV tests were not positive or were not done, does this patient have |"
32 W !,"| an immunodeficiency that would disqualify him/her from the AIDS case definition |",$S(IMRPT:$$VAL^IMRCDCPX(110.05,1),1:1),"| Yes |"
33 W $S(IMRPT:$$VAL^IMRCDCPX(110.05,0),1:0),"| No |",$S(IMRPT:$$VAL^IMRCDCPX(110.05,9),1:9),"| Unknown |"
34 W !?1,LN
35 D HDR^IMRCDCPR
36 Q
Note: See TracBrowser for help on using the repository browser.