Last change
on this file since 724 was 613, checked in by George Lilly, 15 years ago |
initial load of WorldVistAEHR
|
File size:
668 bytes
|
Line | |
---|
1 | ORRHCT ; SLC/KCM - CPRS Query Tools - TIU ; [4/4/02 2:07pm]
|
---|
2 | ;;3.0;ORDER ENTRY/RESULTS REPORTING;**153**;Dec 17, 1997
|
---|
3 | ;
|
---|
4 | NXT() ; Increment ILST
|
---|
5 | S ILST=ILST+1
|
---|
6 | Q ILST
|
---|
7 | ;
|
---|
8 | DOCSTS(LST) ; List document statuses
|
---|
9 | N ILST,X,IEN S ILST=0
|
---|
10 | S X="" F S X=$O(^TIU(8925.6,"B",X)) Q:X="" D
|
---|
11 | . S IEN=0 F S IEN=$O(^TIU(8925.6,"B",X,IEN)) Q:'IEN D
|
---|
12 | . . S LST($$NXT)=IEN_U_X
|
---|
13 | Q
|
---|
14 | DOCCLS(Y) ; Return a list of document classes
|
---|
15 | ; NEED TO GET A TIU RPC
|
---|
16 | N IEN,I,X,IDX
|
---|
17 | S IEN=$O(^TIU(8925.1,"B","CLINICAL DOCUMENTS",0)),I=0,IDX=0
|
---|
18 | F S I=$O(^TIU(8925.1,IEN,10,I)) Q:'I D
|
---|
19 | . S X=^TIU(8925.1,IEN,10,I,0)
|
---|
20 | . Q:$P(X,U,4)="Addendum"
|
---|
21 | . S IDX=IDX+1,Y(IDX)=$P(X,U,1)_U_$P(X,U,4)
|
---|
22 | Q
|
---|
Note:
See
TracBrowser
for help on using the repository browser.