37 lines
4.0 KiB
Mathematica
37 lines
4.0 KiB
Mathematica
IMRCDP6 ;HCIOFO/NCA - Display CDC Form (Cont.) ;7/16/97 08:58
|
|
;;2.1;IMMUNOLOGY CASE REGISTRY;;Feb 09, 1998
|
|
Q:IMRUT
|
|
W !,"|Cytomegalovirus disease (other than in |M. tuberculosis, disseminated |"
|
|
W !,"| liver, spleen or nodes) |",$S(IMRPT:$$VAL^IMRCDCPX(7.5,1),1:1),"| NA ",$S(IMRPT:$$DAT^IMRCDCPX(108.07),1:"__ __")," |"
|
|
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:"__ __")," |"
|
|
W !,"|Cytomegalovirus retinitis (with loss of |Mycobacterium, of other species or |"
|
|
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:"__ __")," |"
|
|
W " unidentified species, disseminated |"
|
|
W !,"|HIV encephalopathy |",$S(IMRPT:$$VAL^IMRCDCPX(7.7,1),1:1),"| NA ",$S(IMRPT:$$DAT^IMRCDCPX(108.09),1:"__ __")
|
|
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:"__ __")," |"
|
|
W !,"|Herpes simplex: chronic ulcer(s) (>1 mo. |Pneumocystis carinii pneumonia |"
|
|
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:"__ __")," |"
|
|
W !,"| duration); or bronchitis, pneumonitis, |Penumonia, recurrent in 12 mo. period |",$S(IMRPT:$$VAL^IMRCDCPX(102.17,1),1:1),"| |"
|
|
W $S(IMRPT:$$VAL^IMRCDCPX(102.17,2),1:2),"| ",$S(IMRPT:$$DAT^IMRCDCPX(108.22),1:"__ __")," |"
|
|
W !,"| or esophagitis |",$S(IMRPT:$$VAL^IMRCDCPX(7.8,1),1:1),"| NA ",$S(IMRPT:$$DAT^IMRCDCPX(108.1),1:"__ __")," |"
|
|
W "Progressive multifocal |"
|
|
W !,"|Histoplasmosis, disseminated or | leukoencephalopathy |",$S(IMRPT:$$VAL^IMRCDCPX(8.9,1),1:1)
|
|
W "| NA ",$S(IMRPT:$$DAT^IMRCDCPX(108.23),1:"__ __")," |"
|
|
W !,"| extrapulmonary |",$S(IMRPT:$$VAL^IMRCDCPX(7.9,1),1:1),"| NA ",$S(IMRPT:$$DAT^IMRCDCPX(108.11),1:"__ __")," |"
|
|
W "Salmonella septicemia, recurrent |",$S(IMRPT:$$VAL^IMRCDCPX(9,1),1:1),"| NA ",$S(IMRPT:$$DAT^IMRCDCPX(108.24),1:"__ __")," |"
|
|
W !,"|Isosporiasis, chronic intestinal (>1 mo. |Toxoplasmosis of brain |"
|
|
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:"__ __")," |"
|
|
W !,"| duration) |",$S(IMRPT:$$VAL^IMRCDCPX(8,1),1:1),"| NA ",$S(IMRPT:$$DAT^IMRCDCPX(108.12),1:"__ __")," |",?129,"|"
|
|
W !,"|Kaposi's sarcoma |",$S(IMRPT:$$VAL^IMRCDCPX(8.1,1),1:1),"| |"
|
|
W $S(IMRPT:$$VAL^IMRCDCPX(8.1,2),1:2),"| ",$S(IMRPT:$$DAT^IMRCDCPX(108.13),1:"__ __")," |Wasting Syndrome due to HIV |"
|
|
W $S(IMRPT:$$VAL^IMRCDCPX(9.2,1),1:1),"| NA ",$S(IMRPT:$$DAT^IMRCDCPX(108.26),1:"__ __")," |"
|
|
W !,"|---------------------------------------------------------------|----------------------------------------------------------------|"
|
|
W !,"| Def.=definitive diagnosis Pres.=presumptive diagnosis | * RVCT CASE NO.: _______________ |"
|
|
S LN="",$P(LN,"-",129)="" W !?1,LN
|
|
W !,"| * If HIV tests were not positive or were not done, does this patient have |"
|
|
W !,"| an immunodeficiency that would disqualify him/her from the AIDS case definition |",$S(IMRPT:$$VAL^IMRCDCPX(110.05,1),1:1),"| Yes |"
|
|
W $S(IMRPT:$$VAL^IMRCDCPX(110.05,0),1:0),"| No |",$S(IMRPT:$$VAL^IMRCDCPX(110.05,9),1:9),"| Unknown |"
|
|
W !?1,LN
|
|
D HDR^IMRCDCPR
|
|
Q
|