1 | ORWGAPIU ; SLC/STAFF - Graph API Utilities ;3/17/08 10:27
|
---|
2 | ;;3.0;ORDER ENTRY/RESULTS REPORTING;**215,260,243**;Dec 17, 1997;Build 242
|
---|
3 | ;
|
---|
4 | EVALUE(VAL,FILE,FIELD) ; $$(internal value,file,field) -> external value or ""
|
---|
5 | ; from ORWGAPI1, ORWGAPI2, ORWGAPI3, ORWGAPI4, ORWGAPIP, ORWGAPIR
|
---|
6 | I VAL="" Q ""
|
---|
7 | S FIELD=$G(FIELD,.01)
|
---|
8 | I $E(FILE,1,2)=63 Q $$LABNAME^ORWGAPIC(VAL)
|
---|
9 | I FILE="63AP;I" Q $$ICD9^ORWGAPIA(VAL)
|
---|
10 | I FILE="45DX" Q $$ICD9^ORWGAPIA(VAL)
|
---|
11 | I FILE="45OP" Q $$ICD0^ORWGAPIA(VAL)
|
---|
12 | I FILE="45;ICD9" Q $$ICD9^ORWGAPIA(VAL)
|
---|
13 | I FILE="45;ICD0" Q $$ICD0^ORWGAPIA(VAL)
|
---|
14 | I FIELD=.01,'$L(VAL) Q ""
|
---|
15 | I FILE=9000010.07 Q $$ICD9^ORWGAPIA(VAL)
|
---|
16 | I FILE=9000010.18 Q $$ICPT^ORWGAPIA(VAL)
|
---|
17 | I FILE=9000011 Q $$ICD9^ORWGAPIA(VAL)
|
---|
18 | I FILE=9999911 Q $$ICD9^ORWGAPIA(VAL)
|
---|
19 | I FILE=130 Q $$ICPT^ORWGAPIA(VAL)
|
---|
20 | I FILE=120.8 Q $$ALLG^ORWGAPIA(VAL)
|
---|
21 | I FILE=50.605 Q $$DC^ORWGAPIC(VAL)
|
---|
22 | I FILE=68 Q $$AA^ORWGAPIC(VAL)
|
---|
23 | I FILE=811.2 Q $$TAX^ORWGAPIA(VAL)
|
---|
24 | D
|
---|
25 | . I FILE=52 S FIELD=6 Q
|
---|
26 | . I FILE=53.79 S FIELD=.08 Q
|
---|
27 | . I FILE=55 S FILE=55.07 Q
|
---|
28 | . I FILE="55NVA" S FILE=55.05 Q
|
---|
29 | . I FILE=70 S FILE=70.03,FIELD=2 Q
|
---|
30 | . I FILE=100 S FILE=100.001 Q
|
---|
31 | . I FILE=120.5 S FIELD=.03 Q
|
---|
32 | . I FILE=601.2 S FILE=601.21 Q
|
---|
33 | Q $$EXT^ORWGAPIX(VAL,FILE,FIELD)
|
---|
34 | ;
|
---|
35 | FILE(FILE,REF,XREF,SCREEN) ; from ORWGAPI
|
---|
36 | S REF="",SCREEN="I 1",XREF="B"
|
---|
37 | I FILE="" Q
|
---|
38 | D
|
---|
39 | . I FILE="45DX" S REF=$$GBLREF(80),XREF="AB" Q
|
---|
40 | . I FILE="45OP" S REF=$$GBLREF(80.1),XREF="AB" Q
|
---|
41 | . I FILE=50.605 S REF=$$GBLREF(50.605),XREF="C" Q
|
---|
42 | . I FILE=52 S REF=$$GBLREF(50) Q
|
---|
43 | . I FILE=53.79 S REF=$$GBLREF(50.7),SCREEN="I $P(ZERO,U,10)'=1" Q
|
---|
44 | . I FILE=55 S REF=$$GBLREF(50) Q
|
---|
45 | . I FILE="55NVA" S REF=$$GBLREF(50.7),SCREEN="I $P(ZERO,U,10)=1" Q
|
---|
46 | . I FILE=63 S REF=$$GBLREF(60),SCREEN="I $L($P(ZERO,U,5)),""BO""[$P(ZERO,U,3),$P(ZERO,U,4)=""CH""" Q
|
---|
47 | . I FILE="63AP" S REF=$$GBLREF(60),SCREEN="I 0" Q
|
---|
48 | . I FILE="63AP;D" S REF=$$GBLREF(61.4) Q
|
---|
49 | . I FILE="63AP;E" S REF=$$GBLREF(61.2) Q
|
---|
50 | . I FILE="63AP;F" S REF=$$GBLREF(61.3) Q
|
---|
51 | . I FILE="63AP;I" S REF=$$GBLREF(80),XREF="AB" Q
|
---|
52 | . I FILE="63AP;M" S REF=$$GBLREF(61.1) Q
|
---|
53 | . I FILE="63AP;O" S REF=$$GBLREF(61) Q
|
---|
54 | . I FILE="63AP;P" S REF=$$GBLREF(61.5) Q
|
---|
55 | . I FILE="63AP;T" S REF=$$GBLREF(60),SCREEN="I ""BO""[$P(ZERO,U,3),(($P(ZERO,U,4)=""CY"")!($P(ZERO,U,4)=""SP"")!($P(ZERO,U,4)=""EM"")!($P(ZERO,U,4)=""AU""))" Q
|
---|
56 | . I FILE="63BB" S REF=$$GBLREF(66),SCREEN="I $P(ZERO,U,15)=1" Q
|
---|
57 | . I FILE="63MI" S REF=$$GBLREF(60),SCREEN="I 0" Q
|
---|
58 | . I FILE="63MI;A" S REF=$$GBLREF(62.06) Q
|
---|
59 | . I FILE="63MI;M" S REF=$$GBLREF(60) Q ; mycobacteria not currently used
|
---|
60 | . I FILE="63MI;O" S REF=$$GBLREF(61.2),SCREEN="I $L($P(ZERO,U,5)),""BFPMV""[$P(ZERO,U,5)" Q
|
---|
61 | . I FILE="63MI;S" S REF=$$GBLREF(61) Q
|
---|
62 | . I FILE="63MI;T" S REF=$$GBLREF(60),SCREEN="I ""BO""[$P(ZERO,U,3),$P(ZERO,U,4)=""MI""" Q
|
---|
63 | . I FILE=70 S REF=$$GBLREF(71) Q
|
---|
64 | . I FILE=100 S REF=$$GBLREF(101.43) Q
|
---|
65 | . I FILE=120.5 S REF=$$GBLREF(120.51),SCREEN="I ""BP^P^T^R^P^HT^WT^CVP^CG^PO2^PN""[$P(ZERO,U,2)" Q
|
---|
66 | . ;I FILE=120.8 S REF=$$GBLREF(120.83) Q
|
---|
67 | . I FILE=130 S REF=$$GBLREF(81),SCREEN="I '$P(ZERO,U,4)" Q
|
---|
68 | . I FILE=405 S REF=$$GBLREF(44),SCREEN="I 0" Q
|
---|
69 | . I FILE=601.2 S REF=$$GBLREF(601) Q
|
---|
70 | . I FILE=690 S REF=$$GBLREF(697.2),XREF="BA" Q
|
---|
71 | . I FILE=811.2 S REF=$$GBLREF(811.2),SCREEN="I $P(ZERO,U,6)'=1" Q
|
---|
72 | . I FILE=8925 S REF=$$GBLREF(8925.1),SCREEN="I $P(ZERO,U,4)=""DOC""" Q
|
---|
73 | . I FILE=9000010 S REF=$$GBLREF(44) Q
|
---|
74 | . I FILE=9000010.07 S REF=$$GBLREF(80),XREF="AB" Q
|
---|
75 | . I FILE=9000010.11 S REF=$$GBLREF(9999999.14),SCREEN="I $P(ZERO,U,7)'=1" Q
|
---|
76 | . I FILE=9000010.12 S REF=$$GBLREF(9999999.28),SCREEN="I $P(ZERO,U,3)'=1" Q
|
---|
77 | . I FILE=9000010.13 S REF=$$GBLREF(9999999.15),SCREEN="I $P(ZERO,U,4)'=1" Q
|
---|
78 | . I FILE=9000010.16 S REF=$$GBLREF(9999999.09),SCREEN="I $P(ZERO,U,3)'=1" Q
|
---|
79 | . I FILE=9000010.18 S REF=$$GBLREF(81),XREF="BA",SCREEN="I '$P(ZERO,U,4)" Q
|
---|
80 | . I FILE=9000010.23 S REF=$$GBLREF(9999999.64),SCREEN="I $P(ZERO,U,10)=""F"",$P(ZERO,U,11)'=1" Q
|
---|
81 | . I FILE=9000011 S REF=$$GBLREF(80),XREF="AB",SCREEN="I $E(ZERO)'=""E"",'$L($P(ZERO,U,9))" Q
|
---|
82 | . I FILE=9999911 S REF=$$GBLREF(80),XREF="AB",SCREEN="I $E(ZERO)'=""E"",'$L($P(ZERO,U,9))" Q
|
---|
83 | I $E(REF)'="^" S REF=""
|
---|
84 | S REF=REF ;_""""_XREF_""")"
|
---|
85 | Q
|
---|
86 | ;
|
---|
87 | GBLREF(FN) ; $$(file#) -> global reference
|
---|
88 | Q $$GBLREF^ORWGAPIX($G(FN))
|
---|
89 | ;
|
---|
90 | INISET ; postinit, set initial public graph setting - from ORY215, ORY243
|
---|
91 | D INISET^ORWGAPIP
|
---|
92 | D RESOURCE^ORWGTASK
|
---|
93 | Q
|
---|
94 | ;
|
---|
95 | ITEMPRFX(ITEM) ; $$(item) -> item prefix - from ORWGAPI1
|
---|
96 | N ABBREV,PREFIX
|
---|
97 | S PREFIX=""
|
---|
98 | S ABBREV=$P(ITEM,";",2)
|
---|
99 | I $E(ITEM)="A" D Q PREFIX
|
---|
100 | . I ABBREV="T" S PREFIX="TEST" Q
|
---|
101 | . I ABBREV="S" S PREFIX="SPECIMEN" Q
|
---|
102 | . I ABBREV="O" S PREFIX="ORGAN" Q
|
---|
103 | . I ABBREV="M" S PREFIX="MORPHOLOGY" Q
|
---|
104 | . I ABBREV="E" S PREFIX="ETIOLOGY" Q
|
---|
105 | . I ABBREV="D" S PREFIX="DISEASE" Q
|
---|
106 | . I ABBREV="P" S PREFIX="PROCEDURE" Q
|
---|
107 | . I ABBREV="F" S PREFIX="FUNCTION" Q
|
---|
108 | . I ABBREV="I" S PREFIX="ICD9" Q
|
---|
109 | I $E(ITEM)="B" Q "BLOOD COMPONENT"
|
---|
110 | I $E(ITEM)="M" D Q PREFIX
|
---|
111 | . I ABBREV="T" S PREFIX="TEST" Q
|
---|
112 | . I ABBREV="S" S PREFIX="SPECIMEN" Q
|
---|
113 | . I ABBREV="O" S PREFIX="ORGANISM" Q
|
---|
114 | . I ABBREV="A" S PREFIX="ANTIBIOTIC" Q
|
---|
115 | . I ABBREV="M" S PREFIX="TB ANTIBIOTIC" Q
|
---|
116 | Q PREFIX
|
---|
117 | ;
|
---|