| 1 | ECXLABRS ;BIR/CML-Set Up the File to Control Extract of Lab Results; [ 02/26/97 2:56 PM ]
|
|---|
| 2 | ;;3.0;DSS EXTRACTS;**8,51**;Dec 22, 1997
|
|---|
| 3 | EN ;entry point from option
|
|---|
| 4 | W @IOF
|
|---|
| 5 | W !,"This option will assist in the steps that create the files necessary to"
|
|---|
| 6 | W !,"control the extract of lab results for DSS. This will probably require"
|
|---|
| 7 | W !,"a combined effort between DSS personnel and lab personnel."
|
|---|
| 8 | ;
|
|---|
| 9 | ASKTST ;loop on DSS lab tests multiple in 727.21 and the local lab data name subfile 727.211
|
|---|
| 10 | W !!!,"Step #1 - For each of the DSS lab tests, identify the tests as they"
|
|---|
| 11 | W !?10,"are named in your laboratory. There may be more than one"
|
|---|
| 12 | W !?10,"test in your laboratory to generate the results asked for,"
|
|---|
| 13 | W !?10,"in that case, you should enter all such tests."
|
|---|
| 14 | F W ! S DIC="^ECX(727.2,1,1,",DIC(0)="AEQM" D ^DIC Q:Y<0 S TST=+Y D
|
|---|
| 15 | .K EC,ECNM S ECNM=$P(^ECX(727.2,1,1,TST,0),U),EC=$P(^(0),U,2),EC=$S(EC="B":"BLOOD",EC="U":"URINE",1:"FECES")
|
|---|
| 16 | .W !,"(for ",ECNM,", select tests that use ",EC," as a specimen)"
|
|---|
| 17 | .W ! F K DA S DA(2)=1,DA(1)=TST,DIC="^ECX(727.2,"_DA(2)_",1,"_DA(1)_",""LOC"",",DIC(0)="QEAMOLZ" K ECXDD D FIELD^DID(727.21,1,,"SPECIFIER","ECXDD") S DIC("P")=ECXDD("SPECIFIER") K ECXDD D ^DIC K DIC Q:Y<0 S LOC=+Y D
|
|---|
| 18 | ..S DA(2)=1,DA(1)=TST,DA=LOC,DIE="^ECX(727.2,"_DA(2)_",1,"_DA(1)_",""LOC"",",DR=.01 D ^DIE K DIE
|
|---|
| 19 | ASKBLD ;loop on blood specimen multiple 727.22
|
|---|
| 20 | G:$D(DTOUT)!($D(DUOUT)) END
|
|---|
| 21 | W !!!,"Step #2 - Define all blood specimens used by your facility."
|
|---|
| 22 | W ! F S DA(1)=1,DIC="^ECX(727.2,"_DA(1)_",""BL"",",DIC(0)="QEAMOLZ" K ECXDD D FIELD^DID(727.2,2,,"SPECIFIER","ECXDD") S DIC("P")=ECXDD("SPECIFIER") K ECXDD D ^DIC K DIC Q:Y<0 D
|
|---|
| 23 | .S DA=+Y,DA(1)=1,DIE="^ECX(727.2,"_DA(1)_",""BL"",",DR=.01 D ^DIE K DIE
|
|---|
| 24 | ASKUR ;loop on urine specimen multiple 727.23
|
|---|
| 25 | G:$D(DTOUT)!($D(DUOUT)) END
|
|---|
| 26 | W !!!,"Step #3 - Define all urine specimens used by your facility."
|
|---|
| 27 | W ! F S DA(1)=1,DIC="^ECX(727.2,"_DA(1)_",""UR"",",DIC(0)="QEAMOLZ" K ECXDD D FIELD^DID(727.2,3,,"SPECIFIER","ECXDD") S DIC("P")=ECXDD("SPECIFIER") K ECXDD D ^DIC K DIC Q:Y<0 D
|
|---|
| 28 | .S DA=+Y,DA(1)=1,DIE="^ECX(727.2,"_DA(1)_",""UR"",",DR=.01 D ^DIE K DIE
|
|---|
| 29 | ASKFE ;loop on feces specimen multiple 727.24
|
|---|
| 30 | G:$D(DTOUT)!($D(DUOUT)) END
|
|---|
| 31 | W !!!,"Step #4 - Define all feces specimens used by your facility."
|
|---|
| 32 | W ! F S DA(1)=1,DIC="^ECX(727.2,"_DA(1)_",""FE"",",DIC(0)="QEAMOLZ" K ECXDD D FIELD^DID(727.2,4,,"SPECIFIER","ECXDD") S DIC("P")=ECXDD("SPECIFIER") K ECXDD D ^DIC K DIC Q:Y<0 D
|
|---|
| 33 | .S DA=+Y,DA(1)=1,DIE="^ECX(727.2,"_DA(1)_",""FE"",",DR=.01 D ^DIE K DIE
|
|---|
| 34 | END K DA,DIC,DIE,DR,EC,ECNM,ECXB,ECXS,J,LOC,TST,X,Y Q
|
|---|
