Last change
on this file since 780 was 613, checked in by George Lilly, 15 years ago |
initial load of WorldVistAEHR
|
File size:
668 bytes
|
Rev | Line | |
---|
[613] | 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.