| [613] | 1 | LRMITSES ;SLC/STAFF - MICRO TREND ENTRY SELECTIONS ;10/18/92 16:03
|
|---|
| 2 | ;;5.2;LAB SERVICE;**96,257**;Sep 27, 1994
|
|---|
| 3 | ; from LRMITSE
|
|---|
| 4 | ;
|
|---|
| 5 | D SELECT K D,DIC,DIR,DFN,LRASK,LRDFN,LRDPF,LRPROMPT,LRPX,PNM,SSN,X,Y
|
|---|
| 6 | Q
|
|---|
| 7 | SELECT W !!!?10,"Types of reports to be generated."
|
|---|
| 8 | ; go thru the report types
|
|---|
| 9 | F LRASK="O","S","L","D","P","C" D Q:LREND
|
|---|
| 10 | .; if specific organisms are used on all reports, prompt only to print report
|
|---|
| 11 | .I $D(LRSORG),LRASK="O" D Q
|
|---|
| 12 | ..W ! K DIR S DIR(0)="Y",DIR("A")="Include report for organisms",DIR("B")="YES"
|
|---|
| 13 | ..S DIR("?")="Enter 'Y'es or 'N'o",DIR("??")=LRHELP
|
|---|
| 14 | ..S DIR("?",1)="You have already selected organisms for all report types."
|
|---|
| 15 | ..S DIR("?",2)="You may select whether or not to include a report grouped by organisms."
|
|---|
| 16 | ..D ^DIR I $D(DIRUT) S LREND=1 Q
|
|---|
| 17 | ..I 'Y K LRM("O")
|
|---|
| 18 | .S LRPROMPT=$S(LRASK="L":"Location",LRASK="O":"Organism",LRASK="D":"Physician",LRASK="P":"Patient",LRASK="C":"Col Samp",1:"Site/Spec") W !!,"Report by: ",LRPROMPT
|
|---|
| 19 | .S LRPX=$S($D(LRM(LRASK,"A")):"All",1:"No") K DIC,DIR,LRM(LRASK)
|
|---|
| 20 | .S DIR(0)="SAM^A:All;S:Selected;N:No",DIR("A")="(A)ll "_LRPROMPT_"s, (S)elected "_LRPROMPT_"s, or (N)o "_LRPROMPT_" Report? ",DIR("B")=LRPX
|
|---|
| 21 | .S DIR("?")="Enter 'A'll, 'S'elected, or 'N'o.",DIR("??")=LRHELP
|
|---|
| 22 | .S DIR("?",1)="Select 'A' to obtain a report grouped by all "_LRPROMPT_"s."
|
|---|
| 23 | .S DIR("?",2)="Select 'S' to obtain a report grouped for selected "_LRPROMPT_"s."
|
|---|
| 24 | .S DIR("?",3)="Select 'N' if you DO NOT want a report grouped by "_LRPROMPT_"."
|
|---|
| 25 | .S DIR("?",4)="Enter '^' to exit."
|
|---|
| 26 | .D ^DIR I $D(DIRUT) S LREND=1 Q
|
|---|
| 27 | .I Y="A" S LRM(LRASK,"A")=""
|
|---|
| 28 | .; if specific values are requested, obtain selections
|
|---|
| 29 | .I Y="S" D
|
|---|
| 30 | ..I LRASK="L" S DIC=44,DIC(0)="AEMOQ",DIC("A")="Select Location: " F D ^DIC Q:Y<1 S LRM(LRASK,"S",+Y)=$P(Y,U,2)
|
|---|
| 31 | ..I LRASK="O" S DIC=61.2,DIC(0)="AEMOQ",DIC("A")="Select Organism: ",DIC("S")="I $L($P(^(0),U,5)),$D(LROTYPE($P(^(0),U,5)))" F D ^DIC K DIC Q:Y<1 S LRM(LRASK,"S",+Y)=$P(Y,U,2)
|
|---|
| 32 | ..I LRASK="D" F S DIC=200,DIC(0)="AEQ",DIC("A")="Select Physician: ",D="AK.PROVIDER" D IX^DIC Q:Y<1 S LRM(LRASK,"S",+Y)=$P(Y,U,2)
|
|---|
| 33 | ..I LRASK="S" S DIC=61,DIC(0)="AEMOQ",DIC("A")="Select Site/Specimen: " F D ^DIC Q:Y<1 S LRM(LRASK,"S",+Y)=$P(Y,U,2)
|
|---|
| 34 | ..I LRASK="P" F D ^LRDPA Q:LRDFN=-1!$D(DUOUT)!$D(DTOUT) S LRM(LRASK,"S",DFN)=PNM_U_LRDFN
|
|---|
| 35 | ..I LRASK="C" S DIC=62,DIC(0)="AEMOQ",DIC("A")="Select Collection Sample: " F D ^DIC Q:Y<1 S LRM(LRASK,"S",+Y)=$P(Y,U,2)
|
|---|
| 36 | Q
|
|---|
