Routine: GMRVXPRE

Package	Total	Call Graph
VA FileMan	4	($$GET1,FIELD)^DID (,FILE)^DIE ^DIK $$GET1^DIQ
General Medical Record - Vitals	1	EN^GMRVXCH0
Kernel	1	($$VERSION,BMES)^XPDUTL

Entry Points

Name	Comments	DBIA/ICR reference
EN1	; PRE-INITIALIZATION FOR THE VITALS PACKAGE
FILES	;;Old File Name;New File Name
52	;;GMRV VITAL SITE;GMRV VITAL QUALIFIER
53	;;GMRV VITAL QUALITY;GMRV VITAL CATEGORY
DELXREF(GMRVFILE,GMRVFLD,GMRVIX)	; This procedure will delete the ; cross-refernce for specified file and field. ; Input variables: GMRVFILE=file number ; GMRVFLD=field number ; GMRVIX=xref name

Name	Line Occurrences (* Changed, ! Killed)
^DD(	EN1+38!, DELXREF+8, DELXREF+9, DELXREF+14!, DELXREF+15!
^GMRD(120.51 - [#120.51]	EN1+6, EN1+7
^TMP("DIERR"	EN1+10, EN1+14!

Name	Line Occurrences
DELXREF	EN1+26, EN1+27, EN1+28

Name	Field # of Occurrence
DA	EN1+4, EN1+22!, EN1+23, EN1+43!
DA(1	EN1+4*
DIE	EN1+22!, EN1+23*, EN1+43!
DIK	EN1+4*, EN1+43!
DR	EN1+22!, EN1+23*, EN1+43!
GMRV1	DELXREF+6~, DELXREF+7, DELXREF+10, DELXREF+11
GMRVACC	EN1+35*, EN1+36, EN1+37, EN1+43!
GMRVC	EN1+6, EN1+10, EN1+11, EN1+43!
GMRVDA	EN1+6*, EN1+7, EN1+9, EN1+43!
GMRVDD	EN1+29, EN1+30, EN1+31, EN1+32, EN1+34, EN1+35, EN1+38, EN1+43!
GMRVER	EN1+1*!, EN1+43!
GMRVFDA	EN1+9!, EN1+43!
GMRVFDA(99	EN1+9*
GMRVFILE	EN1+16, EN1+17, EN1+21, EN1+23, EN1+33, EN1+34, EN1+36, EN1+37, EN1+38, EN1+43! , DELXREF~, DELXREF+8, DELXREF+9, DELXREF+12, DELXREF+14, DELXREF+15
GMRVFINF	EN1+18*, EN1+19, EN1+20, EN1+44!
GMRVFLD	EN1+29!, EN1+34*, EN1+36, EN1+37, EN1+38, EN1+44!, DELXREF~, DELXREF+8, DELXREF+9, DELXREF+12 , DELXREF+14, DELXREF+15
GMRVFLD(	EN1+33, EN1+34, EN1+36
GMRVFNM	EN1+17, EN1+19, EN1+20, EN1+21, EN1+44!
GMRVHELP	EN1+7, EN1+8, EN1+9, EN1+44!
GMRVIX	DELXREF~, DELXREF+9, DELXREF+12, DELXREF+14
GMRVIXDA	DELXREF+6~, DELXREF+7, DELXREF+8, DELXREF+9, DELXREF+15

Name	Field # of Occurrence
$T(@$PIECE^2;4(5)	EN1+18