| [613] | 1 | ORLPR ; slc/CLA - Report formatter for patient lists ;11/27/91 [7/20/00 10:33am]
|
|---|
| 2 | ;;3.0;ORDER ENTRY/RESULTS REPORTING;**9,63,82**;Dec 17, 1997
|
|---|
| 3 | INQ ;called by option ORLP EXAMINE/PRINT - Inquire to review/print lists
|
|---|
| 4 | N ORLIST,SORT,TL
|
|---|
| 5 | K IO("Q")
|
|---|
| 6 | W @IOF
|
|---|
| 7 | S SORT=$$GET^XPAR("USR.`"_DUZ,"ORLP DEFAULT LIST ORDER",1,"I") I SORT']"" S SORT="A"
|
|---|
| 8 | K DIC S DIC="^OR(100.21,",DIC(0)="AEQMZ"
|
|---|
| 9 | S DIC("A")="Select LIST to examine/print: "
|
|---|
| 10 | D GETDEF^ORLPL
|
|---|
| 11 | D ^DIC K DIC,DTOUT,DUOUT I Y<1 Q
|
|---|
| 12 | ;make list the default if type=team, contains users and current user belongs (else kill the default list to prevent confusion)
|
|---|
| 13 | S TL=$P(Y(0),U,2)
|
|---|
| 14 | I TL["T",$D(^OR(100.21,+Y,1,0))#2,$D(^(DUZ)) S ^TMP("ORLP",$J,"TLIST")=+Y
|
|---|
| 15 | ; Next line added by PKS - 3/2000; modified on 7/2000 for patch 82:
|
|---|
| 16 | I ((SORT'="R")&(SORT'="T")) S SORT="A" ; Only A, R, or T work here.
|
|---|
| 17 | E K ^TMP("ORLP",$J,"TLIST")
|
|---|
| 18 | S ORLIST=Y
|
|---|
| 19 | D Q:$D(DTOUT)!$D(DUOUT)
|
|---|
| 20 | . N DIR S DIR(0)="SO^A:ALPHABETIC;R:ROOM/BED;T:TERMINAL DIGIT",DIR("B")=SORT,DIR("A")="Sort by"
|
|---|
| 21 | . D ^DIR S SORT=Y
|
|---|
| 22 | S %ZIS="PQ",ZTSAVE("ORLIST")="",ZTSAVE("SORT")="",ZTSAVE("^TMP(""ORLP"",$J,""LIST"",")="",ZTSAVE("TL")="",ZTRTN="OUTPUT^ORLPR0",ZTDESC="OERR Patient/Team List Report"
|
|---|
| 23 | D IO^ORUTL1,END^ORLPR0 ;queue output then end
|
|---|
| 24 | Q
|
|---|
