Routine: GMRCU

Information

GMRCU ;SLC/DLT - Consult/Request Utilities ;17-May-2010 14:43;PLS

Source file <GMRCU.m>

Package	Total	Caller Graph
Consult Request Tracking	19	GMRCAD31 GMRCAFRD GMRCALRT GMRCAR GMRCAU GMRCGUIA GMRCILKP GMRCITR GMRCP5A GMRCQCST GMRCR GMRCS GMRCSL GMRCSLDT GMRCSLM GMRCSLM1 GMRCSLM4 GMRCSRVS GMRCSTL2

Name	Comments	DBIA/ICR reference
REGDTM	;Receives X in internal date.time, and returns X in MM/DD/YY TT:TT
NAME	; Format names ;6/30/89 11:20 ; ; Recieves: FILE (3 for User, 16 for Person, 6 for Provider) ; IFN (Internal file # for above file), ; NML (Desired length for name to be returned) ; FNF (Flag to specify first name format: 0 for FI, 1 for FN) ; Returns: Lastname,First(name/initial) to specified length as NM
MD	; Format physician names ;4/4/89 11:39 ; ; Recieves: IFN for New Person file as PR and desired name length, as NML ; Returns: Lastname,FI to specified length as PR
REGDT	; Receives X in internal date.time, and returns X in MM/DD/YY format
SIDT	; Receives X as internal date/time and returns X in DD MMM YY
DEM	; Gets Demographic Data from VADPT ; Receives: DFN ; Returns: GMRCPNM,GMRCSN,GMRCHRCN,GMRCDOB,SEX,GMRCWARD,GMRCRB,GMRCAGE ; and GMRCWLI,GMRCHLI
HL7FMDTM	; Recieves X as CCYYMMDDHHMM and returns X as internal date/time
MTIM	;CONVERT TIME from X=2890313.1304 INTO X=13:04
PTRCLN	;Clean out subservice 'B' X-reference of deleted entries
FMHL7DTM	; Recieves X as internal date/time and returns X in CCYYMMDDHHMM

Name	Line Occurrences (* Changed, ! Killed)
^GMR(123.5 - [#123.5]	PTRCLN+1!, PTRCLN+2
^VA(200 - [#200]	MD+4

Name	Field # of Occurrence
^(	PTRCLN+1
^(0	MD+4, PTRCLN+2*

Name	Field # of Occurrence
CH	NAME+7~, NAME+10*
CNT	PTRCLN+2*, PTRCLN+3!
DATE	HL7FMDTM+1~, HL7FMDTM+2, HL7FMDTM+3
>> DFN	DEM+10
DIC	NAME+7~, NAME+8*
DIC(0	NAME+8*
DUZ(2	DEM+10
ENTRY	PTRCLN+1*, PTRCLN+3!
FA	NAME+7~, NAME+10*, NAME+11
FILE	NAME+8, NAME+14!
FN	NAME+7~, NAME+9, NAME+10, NAME+11, NAME+12*, NAME+13
FNF	NAME+12, NAME+14!
>> GMRCAGE	DEM+7*
>> GMRCDOB	DEM+9*
>> GMRCHRCN	DEM+10*
>> GMRCPNM	DEM+5*
>> GMRCRB	DEM+8*
>> GMRCSN	DEM+6*
>> GMRCWARD	DEM+8*
>> GMRCWLI	DEM+8*
I	PTRCLN+1*, PTRCLN+2, PTRCLN+3!
IFN	NAME+8, NAME+14!
J	PTRCLN+1*, PTRCLN+3!
LN	NAME+7~, NAME+9*, NAME+13
MM	SIDT+1~, SIDT+4*, SIDT+5
MON	SIDT+1~, SIDT+3*, SIDT+4
NI	NAME+7~, NAME+10*
>> NM	NAME+13*
NML	MD+5, NAME+13, NAME+14!
>> PR	MD+4, MD+6*
PRFI	MD+3~, MD+5*, MD+6
PRLN	MD+3~, MD+5*, MD+6
PRNM	MD+3~, MD+4*, MD+5, MD+6
RAWNM	NAME+7~, NAME+8*, NAME+9
>> SEX	DEM+7*
T	REGDTM+1~, REGDTM+2, FMHL7DTM+1~, FMHL7DTM+2, FMHL7DTM+3*, FMHL7DTM+4
TIME	HL7FMDTM+1~, HL7FMDTM+2*, HL7FMDTM+3
U	SIDT+4
VA	DEM+11!
VA("PID"	DEM+6
VADM	DEM+11!
VADM(1	DEM+5
VADM(2	DEM+6
VADM(3	DEM+9
VADM(4	DEM+7
VADM(5	DEM+7
VAERR	DEM+11!
VAHOW	DEM+4!
VAIN	DEM+11!
VAIN(4	DEM+8
VAIN(5	DEM+8
VAINDT	DEM+4!
X	MTIM+1, MTIM+2, REGDT+1, REGDTM+2, SIDT+2, SIDT+4, SIDT+5, FMHL7DTM+2, FMHL7DTM+4, HL7FMDTM+2 , HL7FMDTM+3, NAME+7~, NAME+8*
Y	NAME+7~
Y(0	NAME+8