ECXLARP ;BIR/CML/PTD/JRC-Print DSS Lab Tests Names Datasheet (LAR) ; 6/9/05 7:49pm
;;3.0;DSS EXTRACTS;**8,51,84**;Dec 22, 1997
EN ;entry point from option
;Init variables and sort array
N QFLG,SORT
;
S QFLG=1
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"
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."
;
;If no data in file (#727.2) quit
I '$O(^ECX(727.2,0)) W !!,"The DSS LAB TEST file (#727.2) does not exist on your system!" Q
;
;Get sort
D GETSORT Q:'QFLG
;
W !!,"** REPORT REQUIRES 132 COLUMNS TO PRINT CORRECTLY **",!!
;
;Print report using fileman sort and print templates
N L,DIC,FLDS,DHD,BY,FR,TO,DIOBEG
S L=0,DIC="^ECX(727.2,"
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"
D EN1^DIP
Q
;
GETSORT ;Prompt for sorting order for report
N DIR,X,Y,DIRUT
S DIR(0)="SC^1:DSS LAB TEST NAME;2:LOCAL LAB TEST NAME;3:RESULT TEST ID NUMBER"
S DIR("A")="Select sort for DSS LAB TEST DATASHEET report"
D ^DIR
I $D(DIRUT) S QFLG="" Q
S SORT=Y
Q
;
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HECXLARP 1444 printed Nov 22, 2024@17:03:03 Page 2
ECXLARP ;BIR/CML/PTD/JRC-Print DSS Lab Tests Names Datasheet (LAR) ; 6/9/05 7:49pm
+1 ;;3.0;DSS EXTRACTS;**8,51,84**;Dec 22, 1997
EN ;entry point from option
+1 ;Init variables and sort array
+2 NEW QFLG,SORT
+3 ;
+4 SET QFLG=1
+5 WRITE !!,"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"
+6 WRITE !,"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."
+7 ;
+8 ;If no data in file (#727.2) quit
+9 IF '$ORDER(^ECX(727.2,0))
WRITE !!,"The DSS LAB TEST file (#727.2) does not exist on your system!"
QUIT
+10 ;
+11 ;Get sort
+12 DO GETSORT
if 'QFLG
QUIT
+13 ;
+14 WRITE !!,"** REPORT REQUIRES 132 COLUMNS TO PRINT CORRECTLY **",!!
+15 ;
+16 ;Print report using fileman sort and print templates
+17 NEW L,DIC,FLDS,DHD,BY,FR,TO,DIOBEG
+18 SET L=0
SET DIC="^ECX(727.2,"
+19 SET FLDS="[ECX LAB TEST PRINT]"
SET BY=$SELECT(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]")
SET FR=""
SET TO=""
SET DHD="[ECX LAB TEST HEADER]"
SET DIOBEG="I $E(IOST,1,2)=""C-"" W @IOF"
+20 DO EN1^DIP
+21 QUIT
+22 ;
GETSORT ;Prompt for sorting order for report
+1 NEW DIR,X,Y,DIRUT
+2 SET DIR(0)="SC^1:DSS LAB TEST NAME;2:LOCAL LAB TEST NAME;3:RESULT TEST ID NUMBER"
+3 SET DIR("A")="Select sort for DSS LAB TEST DATASHEET report"
+4 DO ^DIR
+5 IF $DATA(DIRUT)
SET QFLG=""
QUIT
+6 SET SORT=Y
+7 QUIT
+8 ;
