source: WorldVistAEHR/trunk/r/ICR_IMMUNOLOGY_CASE_REGISTRY-IMR/IMRCDP4.m@ 1593

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

initial load of WorldVistAEHR

File size: 3.9 KB
Line 
1IMRCDP4 ;HCIOFO/NCA - Display CDC Form (Cont.) ;7/16/97 08:56
2 ;;2.1;IMMUNOLOGY CASE REGISTRY;;Feb 09, 1998
3 Q:IMRUT
4 W !,"======================================================== VI. LABORATORY DATA ===================================================="
5 W !,"| 1. HIV ANTIBODY TESTS AT DIAGNOSIS: Not Test Date | Mo. Yr. |"
6 W !,"| (Indicate FIRST test) Pos Neg Ind Done Mo. Yr. | * Date of last documented NEGATIVE HIV test ",$S(IMRPT:$$DAT^IMRCDCPX(111.01),1:"__ __")," |"
7 W !,"| * HIV-1 EIA ................... |",$S(IMRPT:$$VAL^IMRCDCPX(9.4,1),1:1),"| |",$S(IMRPT:$$VAL^IMRCDCPX(9.4,0),1:0),"| - |"
8 W $S(IMRPT:$$VAL^IMRCDCPX(9.4,9),1:9),"| ",$S(IMRPT:$$DAT^IMRCDCPX(108.27),1:"__ __")," | (specify type): "
9 S X=$S(IMRPT:$$FIELD^IMRCDCPX(158,IMRPT,111.02,"E"),1:"") W X_$P(UNDR,"_",1,(30-$L(X)))," |"
10 W !,"| * HIV-1/HIV-2 combination EIA . |",$S(IMRPT:$$VAL^IMRCDCPX(110.17,1),1:1),"| |",$S(IMRPT:$$VAL^IMRCDCPX(110.17,0),1:0)
11 W "| - |",$S(IMRPT:$$VAL^IMRCDCPX(110.17,9),1:9),"| ",$S(IMRPT:$$DAT^IMRCDCPX(110.18),1:"__ __")," | * If HIV laboratory tests were not documented, Yes No Unk.|"
12 W !,"| * HIV-1 Western blot/IFA ...... |",$S(IMRPT:$$VAL^IMRCDCPX(9.5,1),1:1),"| |",$S(IMRPT:$$VAL^IMRCDCPX(9.5,0),1:0),"| |"
13 W $S(IMRPT:$$VAL^IMRCDCPX(9.5,8),1:8),"| |",$S(IMRPT:$$VAL^IMRCDCPX(9.5,9),1:9),"| ",$S(IMRPT:$$DAT^IMRCDCPX(108.28),1:"__ __")
14 W " | is HIV diagnosis documented by a physician? |",$S(IMRPT:$$VAL^IMRCDCPX(111.03,1),1:1),"| |",$S(IMRPT:$$VAL^IMRCDCPX(111.03,0),1:0),"| |",$S(IMRPT:$$VAL^IMRCDCPX(111.03,9),1:9),"| |"
15 W !,"| * Other HIV antibody test ..... |",$S(IMRPT:$$VAL^IMRCDCPX(9.6,1),1:1),"| |",$S(IMRPT:$$VAL^IMRCDCPX(9.6,0),1:0),"| |",$S(IMRPT:$$VAL^IMRCDCPX(9.6,8),1:8)
16 W "| |",$S(IMRPT:$$VAL^IMRCDCPX(9.6,9),1:9),"| ",$S(IMRPT:$$DAT^IMRCDCPX(108.29),1:"__ __")," | * If yes, provide date of documentation by physician ",$S(IMRPT:$$DAT^IMRCDCPX(111.04),1:"__ __")," |"
17 W !,"| (specify): " S X=$S(IMRPT:$$FIELD^IMRCDCPX(158,IMRPT,9.7,"E"),1:"")
18 W X_$P(UNDR,"_",1,(25-$L(X)))," |===============================================================|"
19 W !,"| * HIV-2 EIA ................... |",$S(IMRPT:$$VAL^IMRCDCPX(102.2,1),1:1),"| |",$S(IMRPT:$$VAL^IMRCDCPX(102.2,0),1:0),"| - |"
20 W $S(IMRPT:$$VAL^IMRCDCPX(102.2,9),1:8),"| ",$S(IMRPT:$$DAT^IMRCDCPX(108.3),1:"__ __")," | 3. IMMUNOLOGIC LAB TESTS: |"
21 W !,"| * HIV-2 Western blot .......... |",$S(IMRPT:$$VAL^IMRCDCPX(110.19,1),1:1),"| |",$S(IMRPT:$$VAL^IMRCDCPX(110.19,0),1:0),"| |"
22 W $S(IMRPT:$$VAL^IMRCDCPX(110.19,8),1:8),"| |",$S(IMRPT:$$VAL^IMRCDCPX(110.19,9),1:9),"| ",$S(IMRPT:$$DAT^IMRCDCPX(110.2),1:"__ __")
23 W " | At or closest to current diagnostic status Mo. Yr. |"
24 W !,"| 2. POSITIVE HIV DETECTION TEST: (Record earliest test) | * CD4 Count ........... "
25 S X=$S(IMRPT:$$FIELD^IMRCDCPX(158,IMRPT,102.21,"E"),1:0)
26 S X=$S(X>0:$J(X,5),1:"_,___") W X," cells/uL ",$S(IMRPT:$$DAT^IMRCDCPX(108.31),1:"__ __")," |"
27 W !,"| * HIV culture ..................................... ",$S(IMRPT:$$DAT^IMRCDCPX(111.1),1:"__ __")," | * CD4 Percent ......... "
28 S X=$S(IMRPT:$$FIELD^IMRCDCPX(158,IMRPT,102.22,"E"),1:0)
29 S X=$S(X>0:$J(X,2),1:"__") W X," % ",$S(IMRPT:$$DAT^IMRCDCPX(111.05),1:"__ __")," |"
30 W !,"| * HIV antigen test ................................ ",$S(IMRPT:$$DAT^IMRCDCPX(111.11),1:"__ __")," | First <200 uL or <14% |"
31 W !,"| * HIV PCR, DNA or RNA probe ....................... ",$S(IMRPT:$$DAT^IMRCDCPX(111.12),1:"__ __")," | * CD4 Count ........... "
32 S X=$S(IMRPT:$$FIELD^IMRCDCPX(158,IMRPT,111.06,"E"),1:"")
33 S X=$S(X'="":$J(X,5),1:"_,___") W X," cells/uL ",$S(IMRPT:$$DAT^IMRCDCPX(111.07),1:"__ __")," |"
34 D HDR^IMRCDCPR
35 Q
Note: See TracBrowser for help on using the repository browser.