source: WorldVistAEHR/trunk/r/ICR_IMMUNOLOGY_CASE_REGISTRY-IMR/IMRCDP5.m@ 1608

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

initial load of WorldVistAEHR

File size: 4.1 KB
Line 
1IMRCDP5 ;HCIOFO/NCA - Display CDC Form (Cont.) ;7/16/97 08:57
2 ;;2.1;IMMUNOLOGY CASE REGISTRY;;Feb 09, 1998
3 Q:IMRUT
4 W !,"| * Other (specify): "
5 S X=$S(IMRPT:$$FIELD^IMRCDCPX(158,IMRPT,111.13,"E"),1:"")
6 W X_$P(UNDR,"_",1,(30-$L(X)))," ",$S(IMRPT:$$DAT^IMRCDCPX(111.14),1:"__ __")," | * CD4 Percent ......... "
7 S X=$S(IMRPT:$$FIELD^IMRCDCPX(158,IMRPT,111.08,"E"),1:"")
8 S X=$S(X'="":$J(X,2),1:"__") W X," % ",$S(IMRPT:$$DAT^IMRCDCPX(111.09),1:"__ __")," |"
9 W !,"=================================================================================================================================="
10 W @IOF
11 W !," ================================================= VIII. CLINICAL STATUS ======================================================"
12 W !,"| CLINICAL YES NO | ENTER DATE PATIENT Asymptomatic Mo. Yr. Symptomatic Mo. Yr. |"
13 W !,"| RECORD REVIEWED |",$S(IMRPT:$$VAL^IMRCDCPX(110.04,1),1:1),"| |",$S(IMRPT:$$VAL^IMRCDCPX(110.04,0),1:0)
14 W "| | WAS DIAGNOSED AS: (including acute retroviral syndrome and |"
15 W !,"| | persistant generalized lymphadenopathy): ",$S(IMRPT:$$DAT^IMRCDCPX(112.07),1:"__ __")," (not AIDS): ",$S(IMRPT:$$DAT^IMRCDCPX(112.08),1:"__ __")," |"
16 W !,"|--------------------------------------------------------------------------------------------------------------------------------|"
17 W !,"| Initial Initial | Initial Initial |"
18 W !,"| Diagnosis Date | Diagnosis Date |"
19 W !,"| AIDS INDICATOR DISEASES Def. Pres. Mo. Yr. | AIDS INDICATOR DISEASES Def. Pres. Mo. Yr. |"
20 W !,"|---------------------------------------------------------------|----------------------------------------------------------------|"
21 W !,"|Candidiasis, bronchi, trachea, or lungs |",$S(IMRPT:$$VAL^IMRCDCPX(7,1),1:1),"| NA ",$S(IMRPT:$$DAT^IMRCDCPX(108.01),1:"__ __")," |"
22 W "Lymphoma, Burkitt's (or equivalent term) |",$S(IMRPT:$$VAL^IMRCDCPX(8.2,1),1:1),"| NA ",$S(IMRPT:$$DAT^IMRCDCPX(108.14),1:"__ __")," |"
23 W !,"|Candidiasis, esophageal |",$S(IMRPT:$$VAL^IMRCDCPX(7.1,1),1:1),"| |",$S(IMRPT:$$VAL^IMRCDCPX(7.1,2),1:2),"| ",$S(IMRPT:$$DAT^IMRCDCPX(108.02),1:"__ __")," |"
24 W "Lymphoma, Immunoblastic (or equivalent |"
25 W !,"|Carcinoma, invasive cervical |",$S(IMRPT:$$VAL^IMRCDCPX(102.15,1),1:1),"| NA ",$S(IMRPT:$$DAT^IMRCDCPX(108.03),1:"__ __")," |"
26 W " term) |",$S(IMRPT:$$VAL^IMRCDCPX(8.3,1),1:1),"| NA ",$S(IMRPT:$$DAT^IMRCDCPX(108.15),1:"__ __")," |"
27 W !,"|Coccidioidomycosis, disseminated or |Lymphoma, primary in brain |",$S(IMRPT:$$VAL^IMRCDCPX(8.4,1),1:1),"| NA "
28 W $S(IMRPT:$$DAT^IMRCDCPX(108.16),1:"__ __")," |"
29 W !,"| extrapulmonary |",$S(IMRPT:$$VAL^IMRCDCPX(7.2,1),1:1),"| NA ",$S(IMRPT:$$DAT^IMRCDCPX(108.04),1:"__ __")," |"
30 W "Mycobacterium avium complex or |"
31 W !,"|Cryptococcosis, extrapulmonary |",$S(IMRPT:$$VAL^IMRCDCPX(7.3,1),1:1),"| NA ",$S(IMRPT:$$DAT^IMRCDCPX(108.05),1:"__ __")," |"
32 W " M. kansasii, disseminated or |"
33 W !,"|Cryptosporidiosis, chronic intestinal | extrapulmonary |",$S(IMRPT:$$VAL^IMRCDCPX(8.5,1),1:1),"| |"
34 W $S(IMRPT:$$VAL^IMRCDCPX(8.5,2),1:2),"| ",$S(IMRPT:$$DAT^IMRCDCPX(108.17),1:"__ __")," |"
35 W !,"| (> 1 month duration) |",$S(IMRPT:$$VAL^IMRCDCPX(7.4,1),1:1),"| NA ",$S(IMRPT:$$DAT^IMRCDCPX(108.06),1:"__ __")," |"
36 W "M. tuberculosis, pulmonary * |",$S(IMRPT:$$VAL^IMRCDCPX(102.16,1),1:1),"| |",$S(IMRPT:$$VAL^IMRCDCPX(102.16,2),1:2),"| "
37 W $S(IMRPT:$$DAT^IMRCDCPX(108.18),1:"__ __")," |"
38 D HDR^IMRCDCPR
39 Q
Note: See TracBrowser for help on using the repository browser.