source: FOIAVistA/trunk/r/ORDER_ENTRY_RESULTS_REPORTING-OR-OCX--ORRC--ORRJ/ORRHCT.m@ 794

Last change on this file since 794 was 628, checked in by George Lilly, 15 years ago

initial load of FOIAVistA 6/30/08 version

File size: 668 bytes
Line 
1ORRHCT ; SLC/KCM - CPRS Query Tools - TIU ; [4/4/02 2:07pm]
2 ;;3.0;ORDER ENTRY/RESULTS REPORTING;**153**;Dec 17, 1997
3 ;
4NXT() ; Increment ILST
5 S ILST=ILST+1
6 Q ILST
7 ;
8DOCSTS(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
14DOCCLS(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.