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
|
FileNo | Call Tags |
---|---|
^ORD(100.01 - [#100.01] | GET1^DIQ |
^ORD(101 - [#101] | GET1^DIQ |
^MDS(702.01 - [#702.01] | GET1^DIQ |
^TIU(8925 - [#8925] | GET1^DIQ |