1 | ORWGAPIR ; SLC/STAFF - Graph API Router ;8/21/06 07:52
|
---|
2 | ;;3.0;ORDER ENTRY/RESULTS REPORTING;**215,260,243**;Dec 17, 1997;Build 242
|
---|
3 | ;
|
---|
4 | DATA(DATA,ITEM,FILE,START,DFN,CNT,TMP,BACKTO) ; from ORWGAPI
|
---|
5 | S DFN=+$G(DFN) I 'DFN Q
|
---|
6 | S FILE=$G(FILE) I '$L(FILE) Q
|
---|
7 | S ITEM=$G(ITEM) I '$L(ITEM) Q
|
---|
8 | S BACKTO=+$G(BACKTO)
|
---|
9 | I FILE=52 D OUTRX^ORWGAPI7(.DATA,ITEM,START,DFN,.CNT,TMP,BACKTO) Q
|
---|
10 | I FILE=53.79 D BCMA^ORWGAPI7(.DATA,ITEM,START,DFN,.CNT,TMP,BACKTO) Q
|
---|
11 | I FILE=55 D INRX^ORWGAPI7(.DATA,ITEM,START,DFN,.CNT,TMP,BACKTO) Q
|
---|
12 | I FILE="55NVA" D NVA^ORWGAPI7(.DATA,ITEM,START,DFN,.CNT,TMP,BACKTO) Q
|
---|
13 | I FILE=63 D LAB^ORWGAPI3(.DATA,ITEM,START,DFN,.CNT,TMP,BACKTO) Q
|
---|
14 | I FILE="63AP" D LAB^ORWGAPI3(.DATA,ITEM,START,DFN,.CNT,TMP,BACKTO) Q
|
---|
15 | ;I FILE="63BB" D BBDATA^ORWGAPIB(.DATA,ITEM,START,DFN,.CNT,TMP,BACKTO) Q
|
---|
16 | I FILE="63MI" D LAB^ORWGAPI3(.DATA,ITEM,START,DFN,.CNT,TMP,BACKTO) Q
|
---|
17 | I FILE=70 D RAD^ORWGAPI3(.DATA,ITEM,START,DFN,.CNT,TMP,BACKTO) Q
|
---|
18 | I FILE=100 D ORDER^ORWGAPI3(.DATA,ITEM,START,DFN,.CNT,TMP,BACKTO) Q
|
---|
19 | I FILE=120.5 D VITAL^ORWGAPI4(.DATA,ITEM,START,DFN,.CNT,TMP,BACKTO) Q
|
---|
20 | I FILE=120.8 D ADVERSE^ORWGAPI3(.DATA,ITEM,START,DFN,.CNT,TMP,BACKTO) Q
|
---|
21 | I FILE=601.2 D MH^ORWGAPI4(.DATA,ITEM,START,DFN,.CNT,TMP,BACKTO) Q
|
---|
22 | I FILE=9000010.07 D POV^ORWGAPI4(.DATA,ITEM,START,DFN,.CNT,TMP,BACKTO) Q
|
---|
23 | I FILE=9000010.11 D IMM^ORWGAPI4(.DATA,ITEM,START,DFN,.CNT,TMP,BACKTO) Q
|
---|
24 | I FILE=9000010.12 D SKIN^ORWGAPI4(.DATA,ITEM,START,DFN,.CNT,TMP,BACKTO) Q
|
---|
25 | I FILE=9000010.13 D EXAM^ORWGAPI4(.DATA,ITEM,START,DFN,.CNT,TMP,BACKTO) Q
|
---|
26 | I FILE=9000010.16 D EDU^ORWGAPI4(.DATA,ITEM,START,DFN,.CNT,TMP,BACKTO) Q
|
---|
27 | I FILE=9000010.18 D PROC^ORWGAPI4(.DATA,ITEM,START,DFN,.CNT,TMP,BACKTO) Q
|
---|
28 | I FILE=9000010.23 D HF^ORWGAPI4(.DATA,ITEM,START,DFN,.CNT,TMP,BACKTO) Q
|
---|
29 | I FILE=9000011 D PROB^ORWGAPI4(.DATA,ITEM,START,DFN,.CNT,TMP,BACKTO) Q
|
---|
30 | I FILE=9999911 D PROBX^ORWGAPI4(.DATA,ITEM,START,DFN,.CNT,TMP,BACKTO) Q
|
---|
31 | I FILE="45OP" D OP^ORWGAPI4(.DATA,ITEM,START,DFN,.CNT,TMP,BACKTO) Q
|
---|
32 | I FILE="45DX" D DX^ORWGAPI3(.DATA,ITEM,START,DFN,.CNT,TMP,BACKTO) Q
|
---|
33 | I FILE=9000010 D VISIT^ORWGAPI8(.DATA,ITEM,START,DFN,.CNT,TMP,BACKTO) Q
|
---|
34 | I FILE=405 D ADMIT^ORWGAPI8(.DATA,ITEM,START,DFN,.CNT,TMP,BACKTO) Q
|
---|
35 | I FILE=130 D SURG^ORWGAPI8(.DATA,ITEM,START,DFN,.CNT,TMP,BACKTO) Q
|
---|
36 | I FILE=8925 D NOTE^ORWGAPI3(.DATA,ITEM,START,DFN,.CNT,TMP,BACKTO) Q
|
---|
37 | I FILE=690 D MED^ORWGAPI3(.DATA,ITEM,START,DFN,.CNT,TMP,BACKTO) Q
|
---|
38 | Q
|
---|
39 | ;
|
---|
40 | ITEMS(ITEMS,DFN,TYPE,FMT,OLDEST,NEWEST,CNT,TMP) ; from ORWGAPI
|
---|
41 | S FMT=$G(FMT,3),OLDEST=+$G(OLDEST),NEWEST=+$G(NEWEST),CNT=+$G(CNT)
|
---|
42 | I (TYPE=70)!(TYPE=100)!(TYPE=120.5)!(TYPE=601.2) D STD(.ITEMS,DFN,TYPE,FMT,OLDEST,NEWEST,.CNT,TMP) Q
|
---|
43 | I (TYPE=9000010.11)!(TYPE=9000010.12)!(TYPE=9000010.13) D STD(.ITEMS,DFN,TYPE,FMT,OLDEST,NEWEST,.CNT,TMP) Q
|
---|
44 | I (TYPE=9000010.16)!(TYPE=9000010.23) D STD(.ITEMS,DFN,TYPE,FMT,OLDEST,NEWEST,.CNT,TMP) Q
|
---|
45 | I (TYPE=9000010.07)!(TYPE=9000010.18) D STD1(.ITEMS,DFN,TYPE,FMT,OLDEST,NEWEST,.CNT,TMP) Q
|
---|
46 | I (TYPE=52)!(TYPE=55) D STD2(.ITEMS,DFN,TYPE,FMT,OLDEST,NEWEST,.CNT,TMP) Q
|
---|
47 | I TYPE=63 D LAB^ORWGAPI1(.ITEMS,DFN,FMT,OLDEST,NEWEST,.CNT,TMP) Q
|
---|
48 | I TYPE=9000010 D VISITS^ORWGAPI6(.ITEMS,DFN,FMT,OLDEST,NEWEST,.CNT,TMP) Q
|
---|
49 | I TYPE=9000011 D PL^ORWGAPI2(.ITEMS,DFN,FMT,OLDEST,NEWEST,.CNT,TMP) Q
|
---|
50 | I TYPE=9999911 D PLX^ORWGAPI2(.ITEMS,DFN,FMT,OLDEST,NEWEST,.CNT,TMP) Q
|
---|
51 | I TYPE=405 D ADMITS^ORWGAPI6(.ITEMS,DFN,FMT,OLDEST,NEWEST,.CNT,TMP) Q
|
---|
52 | I TYPE=50.605 D DC^ORWGAPI5(.ITEMS,DFN,FMT,OLDEST,NEWEST,.CNT,TMP) Q
|
---|
53 | I TYPE=68 D AA^ORWGAPI1(.ITEMS,DFN,FMT,OLDEST,NEWEST,.CNT,TMP) Q
|
---|
54 | I TYPE=8925.1 D TITLE^ORWGAPI1(.ITEMS,DFN,FMT,OLDEST,NEWEST,.CNT,TMP) Q
|
---|
55 | I TYPE=53.79 D BCMA^ORWGAPI5(.ITEMS,DFN,FMT,OLDEST,NEWEST,.CNT,TMP) Q
|
---|
56 | I TYPE=120.8 D ADVERSE^ORWGAPI2(.ITEMS,DFN,FMT,OLDEST,NEWEST,.CNT,TMP) Q
|
---|
57 | I TYPE=130 D SURGERY^ORWGAPI6(.ITEMS,DFN,FMT,OLDEST,NEWEST,.CNT,TMP) Q
|
---|
58 | I TYPE=8925 D NOTES^ORWGAPI1(.ITEMS,DFN,FMT,OLDEST,NEWEST,.CNT,TMP) Q
|
---|
59 | I TYPE=690 D MED^ORWGAPI1(.ITEMS,DFN,FMT,OLDEST,NEWEST,.CNT,TMP) Q
|
---|
60 | S TYPE=$$UP^ORWGAPIX(TYPE)
|
---|
61 | I $E(TYPE,1,2)=45 D REG^ORWGAPI2(.ITEMS,DFN,TYPE,FMT,OLDEST,NEWEST,.CNT,TMP) Q
|
---|
62 | I TYPE="55NVA" D NVA^ORWGAPI5(.ITEMS,DFN,FMT,OLDEST,NEWEST,.CNT,TMP) Q
|
---|
63 | I TYPE="63AP" D AP^ORWGAPI1(.ITEMS,DFN,FMT,OLDEST,NEWEST,.CNT,TMP) Q
|
---|
64 | I TYPE="63BB" D BBITEM^ORWGAPIB(.ITEMS,DFN,FMT,OLDEST,NEWEST,.CNT,TMP) Q
|
---|
65 | I TYPE="63MI" D MI^ORWGAPI1(.ITEMS,DFN,FMT,OLDEST,NEWEST,.CNT,TMP) Q
|
---|
66 | Q
|
---|
67 | ;
|
---|
68 | STD(ITEMS,DFN,FILE,FMT,OLDEST,NEWEST,CNT,TMP) ;
|
---|
69 | N DATE,ITEM,OK,RESULT
|
---|
70 | S ITEM=""
|
---|
71 | F S ITEM=$O(^PXRMINDX(FILE,"PI",DFN,ITEM)) Q:ITEM="" D
|
---|
72 | . S OK=0
|
---|
73 | . I FMT=6 D
|
---|
74 | .. S DATE=OLDEST
|
---|
75 | .. F S DATE=$O(^PXRMINDX(FILE,"PI",DFN,ITEM,DATE)) Q:DATE="" Q:DATE>NEWEST D Q:OK
|
---|
76 | ... S CNT=CNT+1
|
---|
77 | ... S OK=1
|
---|
78 | ... S RESULT=FILE_U_ITEM
|
---|
79 | . I FMT=3 D
|
---|
80 | .. S DATE=$O(^PXRMINDX(FILE,"PI",DFN,ITEM,""),-1)
|
---|
81 | .. I 'DATE Q
|
---|
82 | .. S CNT=CNT+1
|
---|
83 | .. S OK=1
|
---|
84 | .. S RESULT=FILE_U_ITEM_"^^"_$$EVALUE^ORWGAPIU(ITEM,FILE,.01)_"^^"_DATE
|
---|
85 | .. I FILE=100 S RESULT=RESULT_U_$$OGROUP^ORWGAPIW(ITEM)
|
---|
86 | . I FMT=0 D
|
---|
87 | .. S CNT=CNT+1
|
---|
88 | .. S OK=1
|
---|
89 | .. S RESULT=FILE_U_ITEM_U_$$EVALUE^ORWGAPIU(ITEM,FILE,.01)
|
---|
90 | . I OK D SETUP^ORWGAPIW(.ITEMS,RESULT,TMP,.CNT)
|
---|
91 | I FILE=120.5 D BMIITEMS^ORWGAPIX(.ITEMS,.CNT,TMP) Q
|
---|
92 | Q
|
---|
93 | ;
|
---|
94 | STD1(ITEMS,DFN,FILE,FMT,OLDEST,NEWEST,CNT,TMP) ;
|
---|
95 | N DATE,ITEM,OK,RESULT,TYPE
|
---|
96 | K ^TMP("ORWGRPC TEMP",$J)
|
---|
97 | S TYPE=""
|
---|
98 | F S TYPE=$O(^PXRMINDX(FILE,"PPI",DFN,TYPE)) Q:TYPE="" D
|
---|
99 | . S ITEM=""
|
---|
100 | . F S ITEM=$O(^PXRMINDX(FILE,"PPI",DFN,TYPE,ITEM)) Q:ITEM="" D
|
---|
101 | .. S OK=0
|
---|
102 | .. I FMT=6 D
|
---|
103 | ... S DATE=OLDEST
|
---|
104 | ... F S DATE=$O(^PXRMINDX(FILE,"PPI",DFN,TYPE,ITEM,DATE)) Q:DATE="" Q:DATE>NEWEST D Q:OK
|
---|
105 | .... S CNT=CNT+1
|
---|
106 | .... S OK=1
|
---|
107 | .... S RESULT=FILE_U_ITEM
|
---|
108 | .. I FMT=3 D
|
---|
109 | ... S DATE=$O(^PXRMINDX(FILE,"PPI",DFN,TYPE,ITEM,""),-1)
|
---|
110 | ... I DATE S ^TMP("ORWGRPC TEMP",$J,ITEM,DATE)=""
|
---|
111 | .. I FMT=0 D
|
---|
112 | ... S CNT=CNT+1
|
---|
113 | ... S OK=1
|
---|
114 | ... S RESULT=FILE_U_ITEM_U_$$EVALUE^ORWGAPIU(ITEM,FILE,.01)
|
---|
115 | .. I OK D SETUP^ORWGAPIW(.ITEMS,RESULT,TMP,.CNT)
|
---|
116 | I FMT=3 D
|
---|
117 | . S ITEM=""
|
---|
118 | . F S ITEM=$O(^TMP("ORWGRPC TEMP",$J,ITEM)) Q:ITEM="" D
|
---|
119 | .. S DATE=$O(^TMP("ORWGRPC TEMP",$J,ITEM,""),-1)
|
---|
120 | .. I 'DATE Q
|
---|
121 | .. S CNT=CNT+1
|
---|
122 | .. S RESULT=FILE_U_ITEM_"^^"_$$EVALUE^ORWGAPIU(ITEM,FILE,.01)_"^^"_DATE
|
---|
123 | .. D SETUP^ORWGAPIW(.ITEMS,RESULT,TMP,.CNT)
|
---|
124 | K ^TMP("ORWGRPC TEMP",$J)
|
---|
125 | Q
|
---|
126 | ;
|
---|
127 | STD2(ITEMS,DFN,FILE,FMT,OLDEST,NEWEST,CNT,TMP) ;
|
---|
128 | N DATE,DATE2,ITEM,OK,RESULT
|
---|
129 | S ITEM=""
|
---|
130 | F S ITEM=$O(^PXRMINDX(FILE,"PI",DFN,ITEM)) Q:ITEM="" D
|
---|
131 | . S OK=0
|
---|
132 | . I FMT=6 D
|
---|
133 | .. S DATE=0
|
---|
134 | .. F S DATE=$O(^PXRMINDX(FILE,"PI",DFN,ITEM,DATE)) Q:DATE="" Q:DATE>NEWEST D Q:OK
|
---|
135 | ... S DATE2=""
|
---|
136 | ... F S DATE2=$O(^PXRMINDX(FILE,"PI",DFN,ITEM,DATE,DATE2)) Q:DATE2="" D
|
---|
137 | .... I DATE2<OLDEST Q
|
---|
138 | .... S CNT=CNT+1
|
---|
139 | .... S OK=1
|
---|
140 | .... S RESULT=FILE_U_ITEM
|
---|
141 | . I FMT=3 D
|
---|
142 | .. S DATE=$O(^PXRMINDX(FILE,"PI",DFN,ITEM,""),-1)
|
---|
143 | .. I 'DATE Q
|
---|
144 | .. S CNT=CNT+1
|
---|
145 | .. S OK=1
|
---|
146 | .. S RESULT=FILE_U_ITEM_"^^"_$$EVALUE^ORWGAPIU(ITEM,FILE,.01)_"^^"_DATE
|
---|
147 | .. S RESULT=RESULT_U_$$DRGCLASS^ORWGAPIC(ITEM)
|
---|
148 | . I FMT=0 D
|
---|
149 | .. S CNT=CNT+1
|
---|
150 | .. S OK=1
|
---|
151 | .. S RESULT=FILE_U_ITEM_U_$$EVALUE^ORWGAPIU(ITEM,FILE,.01)
|
---|
152 | .. S RESULT=RESULT_U_$$DRGCLASS^ORWGAPIC(ITEM)
|
---|
153 | . I OK D SETUP^ORWGAPIW(.ITEMS,RESULT,TMP,.CNT)
|
---|
154 | Q
|
---|
155 | ;
|
---|