source: WorldVistAEHR/trunk/r/DSS_EXTRACTS-ECX/ECXLARP.m@ 701

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

initial load of WorldVistAEHR

File size: 1.4 KB
Line 
1ECXLARP ;BIR/CML/PTD/JRC-Print DSS Lab Tests Names Datasheet (LAR) ; 6/9/05 7:49pm
2 ;;3.0;DSS EXTRACTS;**8,51,84**;Dec 22, 1997
3EN ;entry point from option
4 ;Init variables and sort array
5 N QFLG,SORT
6 ;
7 S QFLG=1
8 W !!,"This option prints a list of the DSS Lab Tests and associated LMIP workload",!,"codes used for the Lab Results Extract (LAR). It will display the local lab"
9 W !,"data names associated with each DSS Lab test name. If there are LMIP workload",!,"codes they will be linked to the appropriate DSS lab test name or local lab",!,"test name."
10 ;
11 ;If no data in file (#727.2) quit
12 I '$O(^ECX(727.2,0)) W !!,"The DSS LAB TEST file (#727.2) does not exist on your system!" Q
13 ;
14 ;Get sort
15 D GETSORT Q:'QFLG
16 ;
17 W !!,"** REPORT REQUIRES 132 COLUMNS TO PRINT CORRECTLY **",!!
18 ;
19 ;Print report using fileman sort and print templates
20 N L,DIC,FLDS,DHD,BY,FR,TO,DIOBEG
21 S L=0,DIC="^ECX(727.2,"
22 S FLDS="[ECX LAB TEST PRINT]",BY=$S(SORT=1:"[ECX LAB TEST SORT BY DSS NAME]",SORT=2:"[ECX LAB TEST SORT BY LOCAL]",SORT=3:"[ECX LAB TEST SORT BY NUMBER]"),FR="",TO="",DHD="[ECX LAB TEST HEADER]",DIOBEG="I $E(IOST,1,2)=""C-"" W @IOF"
23 D EN1^DIP
24 Q
25 ;
26GETSORT ;Prompt for sorting order for report
27 N DIR,X,Y,DIRUT
28 S DIR(0)="SC^1:DSS LAB TEST NAME;2:LOCAL LAB TEST NAME;3:RESULT TEST ID NUMBER"
29 S DIR("A")="Select sort for DSS LAB TEST DATASHEET report"
30 D ^DIR
31 I $D(DIRUT) S QFLG="" Q
32 S SORT=Y
33 Q
34 ;
Note: See TracBrowser for help on using the repository browser.