source: FOIAVistA/trunk/r/ORDER_ENTRY_RESULTS_REPORTING-OR-OCX--ORRC--ORRJ/OCXBDTD.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: 2.6 KB
Line 
1OCXBDTD ;SLC/RJS,CLA - BUILD OCX PACKAGE DIAGNOSTIC ROUTINES (DD and DIC interface) ;8/04/98 13:21
2 ;;3.0;ORDER ENTRY/RESULTS REPORTING;**32**;Dec 17,1997
3 ;; ;;ORDER CHECK EXPERT version 1.01 released OCT 29,1998
4 ;
5 Q
6 ;
7DATE(Y) X ^DD("DD") Q Y
8 ;
9FIELD(OCXD,OCXF,OCXAT) ;
10 ;
11 N OCXTGT,OCXMESS
12 Q:'$G(OCXD) "" Q:'$G(OCXF) "" Q:'$L($G(OCXAT)) ""
13 S OCXTGT(1)="",OCXMESS(1)=""
14 D FIELD^DID(+OCXD,+OCXF,"N",OCXAT,"OCXTGT(1)","OCXMESS(1)")
15 Q $G(OCXTGT(1,OCXAT))
16 ;
17FILE(OCXD,OCXAT) ;
18 ;
19 N OCXTGT,OCXMESS
20 Q:'$G(OCXD) "" Q:'$L($G(OCXAT)) ""
21 S OCXTGT(1)="",OCXMESS(1)=""
22 D FILE^DID(+OCXD,"N",OCXAT,"OCXTGT(1)","OCXMESS(1)")
23 Q $G(OCXTGT(1,OCXAT))
24 ;
25FILENAME(OCXSUB) ;
26 ;
27 Q:'$G(OCXSUB) ""
28 N LINE,TEXT,NAME
29 S NAME=""
30 F LINE=1:1:9999 S TEXT=$T(FDATA+LINE) Q:($P(TEXT,";",2)) D Q:$L(NAME)
31 .I (+$P(TEXT,";;",2)=OCXSUB) S NAME=$P(TEXT,"^",2)
32 S:'$L(NAME) NAME=$$FILE(OCXSUB,"NAME")
33 Q NAME
34 ;
35FILEHDR(OCXSUB) ;
36 ;
37 Q:'$G(OCXSUB) ""
38 N LINE,TEXT,HEADER
39 S HEADER=""
40 F LINE=1:1:9999 S TEXT=$T(FDATA+LINE) Q:($P(TEXT,";",2)) D Q:$L(HEADER)
41 .I (+$P(TEXT,";;",2)=OCXSUB) S HEADER=$P($P(TEXT,";;",2),"^",1)
42 Q HEADER
43FDATA ;
44 ;;860.1^ORDER CHECK PATIENT ACTIVE DATA
45 ;;860.11^ACTIVE ELEMENT
46 ;;860.111P^ELEMENT DATA
47 ;;860.12D^SCHEDULED EVENT
48 ;;860.121P^RULE
49 ;;860.2^ORDER CHECK RULE
50 ;;860.21I^TRUTH ELEMENTS
51 ;;860.22I^RELATION ACTIONS
52 ;;860.3^ORDER CHECK ELEMENT
53 ;;860.31^CONDITIONAL EXPRESSION
54 ;;860.4^ORDER CHECK DATA FIELD
55 ;;860.41P^DATA SOURCES
56 ;;860.5^ORDER CHECK DATA SOURCE
57 ;;860.6^ORDER CHECK DATA CONTEXT
58 ;;860.7^ORDER CHECK PATIENT RULE EVENT
59 ;;860.71P^RULE EVENT
60 ;;860.712^RELATION
61 ;;860.7122P^ELEMENTS
62 ;;860.71223P^DATA FIELDS
63 ;;860.8^ORDER CHECK COMPILER FUNCTIONS
64 ;;860.801^CODE
65 ;;860.81^DESCRIPTION
66 ;;860.9^ORDER CHECK LOCAL TERM
67 ;;860.91IA^LOCAL TERM TEXT
68 ;;861^ORDER CHECK RAW DATA LOG
69 ;;861.01^DATA
70 ;;863^OCX MDD CLASS
71 ;;863.01P^PARAMETER
72 ;;863.02^DESCRIPTION
73 ;;863.1^OCX MDD APPLICATION
74 ;;863.11P^PARAMETER
75 ;;863.12^SYNONYM
76 ;;863.13P^PRIMARY SUBJECT
77 ;;863.2^OCX MDD SUBJECT
78 ;;863.21P^PARAMETER
79 ;;863.22^SYNONYM
80 ;;863.3^OCX MDD LINK
81 ;;863.31^SYNONYMS
82 ;;863.32P^PARAMETER
83 ;;863.4^OCX MDD ATTRIBUTE
84 ;;863.41PI^PARAMETER
85 ;;863.5^OCX MDD VALUES
86 ;;863.51^VALUES
87 ;;863.52^CONTEXT
88 ;;863.54^LONG DESCRIPTION
89 ;;863.55P^PARAMETER
90 ;;863.6^OCX MDD METHOD
91 ;;863.61^DESCRIPTION
92 ;;863.63P^PARAMETER
93 ;;863.7^OCX MDD PUBLIC FUNCTION
94 ;;863.72^LONG DESCRIPTION
95 ;;863.74P^PARAMETER
96 ;;863.8^OCX MDD PARAMETER
97 ;;863.81^DESCRIPTION
98 ;;863.84P^PARAMETER ATTRIBUTE
99 ;;863.9^OCX MDD CONDITION/FUNCTION
100 ;;863.91^PARAMETER
101 ;;863.92^SYNONYM
102 ;;864^OCX MDD SITE PREFERENCES
103 ;;864.1^OCX MDD DATATYPE
104 ;;864.11P^PARAMETER
105 ;1;
106 ;
Note: See TracBrowser for help on using the repository browser.