source: FOIAVistA/trunk/r/ORDER_ENTRY_RESULTS_REPORTING-OR-OCX--ORRC--ORRJ/ORCDADT.m@ 1757

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

initial load of FOIAVistA 6/30/08 version

File size: 1.0 KB
Line 
1ORCDADT ;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 ;
6ENTS(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 ;
17DEFTS(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 ;
25XHELP(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
Note: See TracBrowser for help on using the repository browser.