| 1 | ORCDADT ;SLC/MKB-Utility functions for ADT dialogs ;9/13/02 08:31 [9/25/02 4:28pm]
|
|---|
| 2 | ;;3.0;ORDER ENTRY/RESULTS REPORTING;**142,141**;Dec 17, 1997
|
|---|
| 3 | ;DBIA reference section
|
|---|
| 4 | ;10015- DIQ
|
|---|
| 5 | ;
|
|---|
| 6 | ENTS(EVT) ; -- Get list of specialties from EVT (#100.5)
|
|---|
| 7 | Q:$G(ORDIALOG(PROMPT,"LIST")) Q:'$G(EVT)
|
|---|
| 8 | N I,CNT,IEN,X,Y S (I,CNT)=0
|
|---|
| 9 | S IEN=$S($P($G(^ORD(100.5,+EVT,0)),U,12):+$P(^(0),U,12),1:+EVT)
|
|---|
| 10 | F S I=$O(^ORD(100.5,IEN,"TS",I)) Q:I<1 S X=+$G(^(I,0)) D
|
|---|
| 11 | . S Y=$$GET1^DIQ(45.7,X_",",.01)
|
|---|
| 12 | . S CNT=CNT+1,ORDIALOG(PROMPT,"LIST",CNT)=X_U_Y
|
|---|
| 13 | . S ORDIALOG(PROMPT,"LIST","B",Y)=X
|
|---|
| 14 | S:CNT ORDIALOG(PROMPT,"LIST")=CNT_"^1"
|
|---|
| 15 | Q
|
|---|
| 16 | ;
|
|---|
| 17 | DEFTS(EVT) ; -- Return default specialty for EVT (#100.5)
|
|---|
| 18 | N I,Y,IEN S Y=""
|
|---|
| 19 | ;If child event then get parent event for default:
|
|---|
| 20 | S IEN=$S($P($G(^ORD(100.5,+$G(EVT),0)),U,12):+$P(^(0),U,12),1:+$G(EVT))
|
|---|
| 21 | S I=+$O(^ORD(100.5,IEN,"TS","DEF",1,0))
|
|---|
| 22 | S:I Y=+$G(^ORD(100.5,IEN,"TS",I,0)) ;default selection
|
|---|
| 23 | Q Y
|
|---|
| 24 | ;
|
|---|
| 25 | XHELP(PTR) ; -- Xecutable help
|
|---|
| 26 | I $D(ORDIALOG(PTR,"LIST")),X="?"!$P(ORDIALOG(PTR,"LIST"),U,2) D LIST^ORCD Q
|
|---|
| 27 | D P^ORCDLGH ; ??-help
|
|---|
| 28 | Q
|
|---|
