Routine: ORRHCQ

Information

ORRHCQ ; SLC/KCM/JLI - CPRS Query Tools - Utilities ;2/1/03 11:10

Source file <ORRHCQ.m>

Name	Comments	DBIA/ICR reference
SETUP(ITR,QRY)	; Setup the query ; use ^TMP("ORRHCQ",$J,"QRY") for the query ; use ^TMP("ORRHCQ",$J,"COL") for the columns ; use ^TMP("ORRHCQD",$J) for the query data
ADDTO(IEN,CLINDT)	;Add active location to lst
WCFDIV(DIVLST)	;Get wards/clinics for division
DODIV	; find Wards/Clinics for divisions
CLEAR(OK)	; Clear/Cancel the query
NXTITER(X)	; Return the iterator for the next patient ; ITER=Subscript;DFN;Item#
NXTDFN(SUB,ITM)	; Return the next patient^item within a subscript
SETPTS(SUB)	; Set up to iterate through a patient list
QRYITR(VAL,ORRITR)	; Do query for the current iterator ; VAL=PtSearched^RecordsFound^Iterator
PTSCRN(PATID)	; Return 1 if should continue with this patient
QRYPT(PATID)	; Search for records and return the number found
SORTBY(SEQ,FNM,FWD)	; Sort by a particular field
SUBDTA(LST,FIRST,LAST)	; Return name-value pairs for subset of query data
DETAIL(REF,ID)	; Return results of order identified by ID
PTINFO(VAL,ID)	; Return patient info given an order, consult, or note
RNGFM(ORY,RNG)