| 1 | ECXLARP ;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
|
|---|
| 3 | EN ;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 | ;
|
|---|
| 26 | GETSORT ;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 | ;
|
|---|
