source: WorldVistAEHR/trunk/r/LAB_SERVICE-LR-LS/LRMITSES.m@ 1006

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

initial load of WorldVistAEHR

File size: 2.3 KB
Line 
1LRMITSES ;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
7SELECT 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
Note: See TracBrowser for help on using the repository browser.