Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Entry Points |  FileMan Files Accessed Via FileMan Db Call
Print Page as PDF
Routine: GMRCCP

Package: Consult Request Tracking

Routine: GMRCCP


Information

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

Source Information

Source file <GMRCCP.m>

Entry Points

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

FileMan Files Accessed Via FileMan Db Call

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
Info |  Source |  Entry Points |  FileMan Files Accessed Via FileMan Db Call