| 1 | IMRCDP2 ;HCIOFO/NCA - Display CDC Form (Cont.) ;7/16/97 08:54
|
|---|
| 2 | ;;2.1;IMMUNOLOGY CASE REGISTRY;;Feb 09, 1998
|
|---|
| 3 | Q:IMRUT
|
|---|
| 4 | W !,"AT REPORT (check one): | Mo. Day Yr. |"
|
|---|
| 5 | W " Alive Dead Unk. | Mo. Day Yr. |",!,"|",$S(IMRPN:$$VAL^IMRCDCPX(110.01,1),1:1),"| HIV Infection (not AIDS) "
|
|---|
| 6 | S X=$S(IMRPT:$$FIELD^IMRCDCPX(158,IMRPT,110.02,"E"),1:0) S:X'>0 X="__" W X," Years | | | |"
|
|---|
| 7 | W !,"|",$S(IMRPT:$$VAL^IMRCDCPX(110.01,2),1:2),"| AIDS " S X=$S(IMRPT:$$FIELD^IMRCDCPX(158,IMRPT,15.8,"I"),1:0) S:X'>0 X="__" W X," Years | ",IMRDOB
|
|---|
| 8 | W " | |",$S(IMRPT:$$VAL^IMRCDCPX(15.7,1),1:1),"| |",$S(IMRPT:$$VAL^IMRCDCPX(15.7,2),1:2),"| |",$S(IMRPT:$$VAL^IMRCDCPX(15.7,9),1:9),"| | ",IMRDOD," | ",$S(IMRPT:$$FIELD^IMRCDCPX(158,IMRPT,112.05,"E"),1:"")
|
|---|
| 9 | W !,"----------------------------------------------------------------------------------------------------------------------------------"
|
|---|
| 10 | W !,"SEX: |RACE/ETHNICITY: |COUNTRY OF BIRTH: "
|
|---|
| 11 | W !,"|",$S(IMRPT:$$VAL^IMRCDCPX(1.2,1),1:1),"| Male ||",$S(IMRPT:$$VAL^IMRCDCPX(1,1),1:1),"| White (not Hispanic) |",$S(IMRPT:$$VAL^IMRCDCPX(1,2),1:2),"| Black (not Hispanic) |",$S(IMRPT:$$VAL^IMRCDCPX(1,3),1:3)
|
|---|
| 12 | W "| Hispanic "
|
|---|
| 13 | W "||",$S(IMRPT:$$VAL^IMRCDCPX(102.08,1),1:1),"| U.S. |",$S(IMRPT:$$VAL^IMRCDCPX(102.08,7),1:7),"| U.S. Dependencies and Possessions (in-"
|
|---|
| 14 | W !,"|",$S(IMRPT:$$VAL^IMRCDCPX(1.2,2),1:2),"| Female ||",$S(IMRPT:$$VAL^IMRCDCPX(1,4),1:4),"| Asian/Pacific |",$S(IMRPT:$$VAL^IMRCDCPX(1,5),1:5),"| American Indian/ |",$S(IMRPT:$$VAL^IMRCDCPX(1,9),1:9)
|
|---|
| 15 | W "| Not | cluding Puerto Rico (specify): "
|
|---|
| 16 | S X=$S(IMRPT:$$FIELD^IMRCDCPX(158,IMRPT,102.23,"E"),1:""),UNDR="______________________________"
|
|---|
| 17 | W X_$P(UNDR,"_",1,(15-$L(X)))
|
|---|
| 18 | W !," | Islander Alaskan Native Specified ||",$S(IMRPT:$$VAL^IMRCDCPX(102.08,8),1:8),"| Other (specify): "
|
|---|
| 19 | S X=$S(IMRPT:$$FIELD^IMRCDCPX(158,IMRPT,16.1,"E"),1:"") W X_$P(UNDR,"_",1,(15-$L(X)))," |",$S(IMRPT:$$VAL^IMRCDCPX(102.08,9),1:9),"| Unknown"
|
|---|
| 20 | W !,"----------------------------------------------------------------------------------------------------------------------------------"
|
|---|
| 21 | W !,"RESIDENCE AT DIAGNOSIS:",?48,"State/"
|
|---|
| 22 | W !,"City: ",$S(IMRPT:$$FIELD^IMRCDCPX(158,IMRPN,16.2,"E"),1:""),?25,"County: ",$S(IMRPT:$$FIELD^IMRCDCPX(158,IMRPT,16.3,"E"),1:""),?48,"Country: "
|
|---|
| 23 | S X=$S(IMRPT:$$FIELD^IMRCDCPX(158,IMRPT,16.4,"E"),1:"") I X="" S X=$S(IMRPT:$$FIELD^IMRCDCPX(158,IMRPT,16.5,"E"),1:"") W X
|
|---|
| 24 | W ?92,"Zip Code: " S X=$S(IMRPT:$$FIELD^IMRCDCPX(158,IMRPN,16.6,"E"),1:"") W X
|
|---|
| 25 | W !,"----------------------------------------------------------------------------------------------------------------------------------"
|
|---|
| 26 | W !,"- IV. FACILITY OF DIAGNOSIS ---- --------------------------------------- V. PATIENT HISTORY -----------------------------------"
|
|---|
| 27 | W !,"|" S X=$S(IMRPT:$$FIELD^IMRCDCPX(158,IMRPN,16.7,"E"),1:"")
|
|---|
| 28 | W X_$P(UNDR,"_",1,(28-$L(X)))," | | AFTER 1977 AND PRECEDING THE FIRST POSITIVE HIV ANTIBODY TEST |"
|
|---|
| 29 | W !,"| FACILITY NAME: | | OR AIDS DIAGNOSIS, THIS PATIENT HAD (Respond to ALL Categories): Yes No Unk. |"
|
|---|
| 30 | W !,"| " S X=$S(IMRPT:$$FIELD^IMRCDCPX(158,IMRPN,16.8,"E"),1:"") W X_$P(UNDR,"_",1,(28-$L(X)))," | | * Sex with male " W "............................................................ "
|
|---|
| 31 | W "|",$S(IMRPT:$$VAL^IMRCDCPX(17.8,1),1:1),"| |",$S(IMRPT:$$VAL^IMRCDCPX(17.8,0),1:0),"| |",$S(IMRPT:$$VAL^IMRCDCPX(17.8,9),1:9),"| |"
|
|---|
| 32 | W !,"| City | | * Sex with female .......................................................... "
|
|---|
| 33 | W "|",$S(IMRPT:$$VAL^IMRCDCPX(17.9,1),1:1),"| |",$S(IMRPT:$$VAL^IMRCDCPX(17.9,0),1:0),"| |",$S(IMRPT:$$VAL^IMRCDCPX(17.9,9),1:9),"| |"
|
|---|
| 34 | W !,"| " S X=$S(IMRPT:$$FIELD^IMRCDCPX(158,IMRPT,16.9,"E"),1:"") I X="" S X=$S(IMRPT:$$FIELD^IMRCDCPX(158,IMRPT,16.11,"E"),1:"")
|
|---|
| 35 | W X_$P(UNDR,"_",1,(28-$L(X)))," | | * Injected nonprescription drugs ........................................... |",$S(IMRPT:$$VAL^IMRCDCPX(16.19,1),1:1),"| |",$S(IMRPT:$$VAL^IMRCDCPX(16.19,0),1:0),"| |"
|
|---|
| 36 | W $S(IMRPT:$$VAL^IMRCDCPX(16.19,9),1:9),"| |"
|
|---|
| 37 | D HDR^IMRCDCPR
|
|---|
| 38 | Q
|
|---|
