Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Routine: ORRHCT

ORRHCT.m

Go to the documentation of this file.
  1. ORRHCT ; SLC/KCM - CPRS Query Tools - TIU ; [4/4/02 2:07pm]
  1. ;;3.0;ORDER ENTRY/RESULTS REPORTING;**153**;Dec 17, 1997
  1. ;
  1. NXT() ; Increment ILST
  1. S ILST=ILST+1
  1. Q ILST
  1. ;
  1. DOCSTS(LST) ; List document statuses
  1. N ILST,X,IEN S ILST=0
  1. S X="" F S X=$O(^TIU(8925.6,"B",X)) Q:X="" D
  1. . S IEN=0 F S IEN=$O(^TIU(8925.6,"B",X,IEN)) Q:'IEN D
  1. . . S LST($$NXT)=IEN_U_X
  1. Q
  1. DOCCLS(Y) ; Return a list of document classes
  1. ; NEED TO GET A TIU RPC
  1. N IEN,I,X,IDX
  1. S IEN=$O(^TIU(8925.1,"B","CLINICAL DOCUMENTS",0)),I=0,IDX=0
  1. F S I=$O(^TIU(8925.1,IEN,10,I)) Q:'I D
  1. . S X=^TIU(8925.1,IEN,10,I,0)
  1. . Q:$P(X,U,4)="Addendum"
  1. . S IDX=IDX+1,Y(IDX)=$P(X,U,1)_U_$P(X,U,4)
  1. Q