Global: ^EHRM(1610

Information

FileMan FileNo	FileMan Filename	Package
1610	EHRM ACTIVE CLINIC	Electronic Health Modernization

This file stores the VistA clinics that are active on a site after it is converted to Millennium. The file is used by the automated clinic inactivation tool (included with EHM*1*10) so the clinics are left active.

Package	Total	Routines
Electronic Health Modernization	7	EHMAPPTZ ^EHRM(1610 EHMAPPT EHMAPPT0 EHMAPPT1 EHMAPPT3 EHMAPPTZ0

Package	Total	FileMan Files
Scheduling	1	HOSPITAL LOCATION(#44)[.01]

Field # Name Loc Type Details

Field #	Name	Loc	Type	Details
.01	CLINIC	0;1	POINTER TO HOSPITAL LOCATION FILE (#44)	**********************REQUIRED FIELD********************** HOSPITAL LOCATION(#44) LAST EDITED: `MAR 22, 2024` HELP-PROMPT: `Select a clinic to mark active on this converted site.` DESCRIPTION: `This field identifies the VistA clinics that are active on a site after it is converted to Millennium. The field is used by the automated clinic inactivation tool (included with EHM110) so the clinic is left active.` CROSS-REFERENCE: `1610^B` `1)= S ^EHRM(1610,"B",$E(X,1,30),DA)=""` `2)= K ^EHRM(1610,"B",$E(X,1,30),DA)`

CLINIC

0;1

POINTER TO HOSPITAL LOCATION FILE (#44)

************************REQUIRED FIELD************************

LAST EDITED: MAR 22, 2024
HELP-PROMPT: Select a clinic to mark active on this converted site.
DESCRIPTION:
This field identifies the VistA clinics that are active on a site after it is converted to Millennium. The field is used by the automated clinic inactivation tool (included with EHM*1*10) so the clinic is left active.
CROSS-REFERENCE: 1610^B
1)= S ^EHRM(1610,"B",$E(X,1,30),DA)=""
2)= K ^EHRM(1610,"B",$E(X,1,30),DA)

Name	Line Occurrences (* Changed, ! Killed)
^DG(43 - [#43]	\|opt
^DGPM - [#405]	\|inpt
^DIC(19 - [#19]	\|opt
^DISV(	\|inpt*
^DPT - [#2]	\|opt
^EHMHL7(1609.1 - [#1609.1]	\|dd1609.1*!
^EHRM(1610 - [#1610]	.01(XREF 1S), .01(XREF 1K), \|dd1610*!
^PS(55 - [#55]	\|sort
^PXRMXT(810.3 - [#810.3]	\|opt
^SC - [#44]	\|sort
^TIU(8925 - [#8925]	\|opt
^TMP("DGPFLMT"	\|opt
^TMP("ORLP"	\|opt!
^TMP("TIUFMOVE"	\|opt!
^VA(200 - [#200]	\|opt
^XUTL("OR"	\|opt!

Name	Field # of Occurrence
%	\|opt*!
%X	\|opt!
%Y	\|opt!
%ZISI	\|opt!
>> ACTIVE	\|opt*
B	\|opt!
C	\|opt!
D0	\|opt!, \|sort
>> D1	\|sort
>> DA	.01(XREF 1S), .01(XREF 1K), \|dd1609.1, \|dd1610, \|inpt, \|opt!, \|opt!
>> DEATH	\|opt*
>> DGPMN	\|inpt
>> DGPMP	\|inpt
>> DGPMY	\|inpt
DI	\|opt!
DIC	\|opt!, \|opt!
DIC("S"	\|opt*
DIC(0	\|opt*
DIDEL	\|opt*!
DIE	\|opt!, \|opt!
DIJ	\|opt!
DIK	\|opt!
>> DISX(1	\|sort*
>> DISX(2	\|sort*
>> DISX(3	\|sort*
DISYS	\|opt!
DLAYGO	\|opt*!
DP	\|opt!
DQ	\|opt!
DR	\|opt!, \|opt!
DT	\|opt
DTIME	\|opt
DUZ	\|inpt, \|opt
DUZ(0	\|opt*
>> EHMIEN	\|opt*
>> ENDDATE	\|opt*
GMPLMGR	\|opt*!
GMRANGE	\|opt*!
>> GMRCCTRL	\|opt*
GMRCIS	\|opt*!
GMRCREMP	\|opt*!
GMRCRF	\|opt*!
>> GMRCSTAT	\|opt*
>> GMRPEN	\|opt*
GMTSMGR	\|opt!
GMTSPXGO	\|opt*!
IOF	\|opt, \|opt, \|opt
IOM	\|opt
LIST	\|opt!
MAIN	\|opt!
ORCNT	\|opt*!
ORLST	\|opt*!
ORTAB	\|opt*!
ORVP	\|opt!, \|opt!
P	\|opt!
>> PXRRCNUM	\|opt*
>> PXRRDEMG	\|opt*
>> R2DUZ	\|opt*
SDSCEDIT	\|opt*!
SETFOR	\|opt~
TIUEDT	\|opt!
TIUFPRIV	\|opt*!
TIUFWHO	\|opt*~
>> TIUFZZ8	\|opt
TIULDT	\|opt!
TIUQUIK	\|opt*!
TIUX	\|opt!
U	\|opt, \|sort
>> USRLTMPL	\|opt*
V	\|opt!
VALMY	\|opt!
W	\|opt!
>> X	.01(XREF 1S), .01(XREF 1K), \|dd1609.1!, \|dd1610, \|inpt, \|opt, \|sort
X1	\|opt!
>> XQH	\|opt*
>> XQUIT	\|opt*
>> Y	\|inpt*, \|opt
>> Y(1	\|sort*

Name	Field # of Occurrence
$T(VERSION^OCXOCMP	\|opt