|
Last change
on this file since 1801 was 628, checked in by George Lilly, 15 years ago |
|
initial load of FOIAVistA 6/30/08 version
|
|
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.
