Routine: GMRCCP

Information

GMRCCP ;SLC/JFR - utilities for clinical procedures; 10/07/04 15:24

Source file <GMRCCP.m>

Name	Comments	DBIA/ICR reference
CPLIST(GMRCPT,GMRCPR,GMRCRET)	;return list of patient CP requests ; Input: ; GMRCPT = patient DFN (required) ; GMRCPR = ien from file 702.01 (optional) ; if just one procedure ; desired; defaults to all ; GMRCRET= global array in which to (required) ; return results
LOADAR(IEN,GMRCAR,CNT)	;set up array and return data for given file 123 ien
CPROC(PROC)	;is orderable procedure mapped to Clinical Procedures
CPLINK(PROC)	;check "AC" x-ref to see if PROC is linked to entry in 123.3 ; PROC - ien from 702.01
CPLINKS(NAMES,PROC)	;return list of procedure names linked to a CP ; Input ; PROC - ien from PROCEDURE DEFINITION (#702.01) - (required) ; Output: ; NAMES - passed by reference ; returned as array of GMRC PROCEDUREs linked to PROC ; in format; ; NAMES(x)=GMRC PROCEDURE name^GMRC PROCEDURE ien ; NAMES(1)="EKG^21" ; NAMES(2)="EKG PORTABLE^32" ; if not currently linked, returned as: ; NAMES(1)="-1^not currently linked"
CPDOC(GMRCDA,TIUDA,ACTION)	;update file 123 entry with CLIN PROC DOC ; Input: ; GMRCDA = ien from file 123 ; TIUDA = ien from file 8925 ; ACTION = 1 - associate stub record ; = 2 - partial results ready ; = 3 - retract record
CPACTM(GMRCDA)	;return actions available for a CP request
CPINTERP(GMRCTIU,GMRCUSER)	;is user an interpreter for TIU doc GMRCTIU
CPPAT(GMRCDA,GMRCDFN)	;is patient object of given request? ; Input: ; GMRCDA = ien from file 123 ; GMRCDFN = patient DFN
MCCNVT(GMRCMOD,GMRCMC,GMRCTIU)	;convert MC pointer to TIU pointer in file 123