source: WorldVistAEHR/trunk/r/ICR_IMMUNOLOGY_CASE_REGISTRY-IMR/IMRCLEAN.m@ 724

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

initial load of WorldVistAEHR

File size: 1.2 KB
Line 
1IMRCLEAN ;HCIOFO/FAI-CLEAN UP ERRONEOUS VALUES IN BASIC PATIENT DATA ;04/05/01 11:49;
2 ;;2.1;IMMUNOLOGY CASE REGISTRY;**5,13**;Feb 09, 1998
3 ;
4BEGIN D EMPTY,KILL
5 Q
6EMPTY S VAL="" F S VAL=$O(^IMR(158,"B",VAL)),IMRVAL="" Q:VAL="" F S IMRVAL=$O(^IMR(158,"B",VAL,IMRVAL)) Q:IMRVAL="" D CD4,HGB,HCT,MCV,CATEG
7 Q
8CD4 S $P(^IMR(158,IMRVAL,102),U,5)="",$P(^IMR(158,IMRVAL,102),U,6)="",$P(^IMR(158,IMRVAL,102),U,1)="",$P(^IMR(158,IMRVAL,102),U,2)="",$P(^IMR(158,IMRVAL,112),U,9)="",$P(^IMR(158,IMRVAL,112),U,10)=""
9 Q
10HGB S IFN="" F S IFN=$O(^IMR(158,IMRVAL,113,"B",3,IFN)) Q:IFN="" S DA(1)=IMRVAL,DA=IFN,DIK="^IMR(158,"_IMRVAL_",113," D ^DIK K DA,DIK
11 Q
12HCT S IEN="" F S IEN=$O(^IMR(158,IMRVAL,113,"B",4,IEN)) Q:IEN="" S DA(1)=IMRVAL,DA=IEN,DIK="^IMR(158,"_IMRVAL_",113," D ^DIK K DA,DIK
13 Q
14MCV S IEN="" F S IEN=$O(^IMR(158,IMRVAL,113,"B",5,IEN)) Q:IEN="" S DA(1)=IMRVAL,DA=IEN,DIK="^IMR(158,"_IMRVAL_",113," D ^DIK K DA,DIK
15 Q
16CATEG S IMRCAT=$P($G(^IMR(158,IMRVAL,0)),U,42)
17 Q:IMRCAT=4
18 S $P(^IMR(158,IMRVAL,0),U,42)="",$P(^IMR(158,IMRVAL,0),U,35)="",$P(^IMR(158,IMRVAL,0),U,36)="",$P(^IMR(158,IMRVAL,0),U,44)=""
19 Q
20KILL ; kill variables
21 K IMRCAT,IMRVAL,FIN,IEN,IFN,NUM,VAL
22 Q
Note: See TracBrowser for help on using the repository browser.