84. EPMO Open Source Coordination Office Redaction File Detail Report

Produced by Araxis Merge on 10/26/2017 10:43:14 PM Eastern Daylight Time. See www.araxis.com for information about Merge. This report uses XHTML and CSS2, and is best viewed with a modern standards-compliant browser. For optimum results when printing this report, use landscape orientation and enable printing of background images and colours in your browser.

84.1 Files compared

#	Location	File	Last Modified
1	OSCIF_BMS_v2_iter 2_September_2017.zip\BMS_Cand\BMS_Build_C72898\BMS_Source-BuildC72898.zip\C72898\Source\Sources\CACHE Classes	PATIENTMOVEMENT.xml	Wed Oct 23 12:51:06 2013 UTC
2	OSCIF_BMS_v2_iter 2_September_2017.zip\BMS_Cand\BMS_Build_C72898\BMS_Source-BuildC72898.zip\C72898\Source\Sources\CACHE Classes	PATIENTMOVEMENT.xml	Wed Oct 25 22:21:07 2017 UTC

84.2 Comparison summary

Description	Between Files 1 and 2
Description	Text Blocks	Lines
Unchanged	2	2398
Changed	1	2
Inserted	0	0
Removed	0	0

84.3 Comparison options

Whitespace
Character case	Differences in character case are significant
Line endings	Differences in line endings (`CR` and `LF` characters) are ignored
CR/LF characters	Not shown in the comparison detail

84.4 Active regular expressions

No regular expressions were active.

84.5 Comparison detail

	1	<?xml
	2	version="1 .0"
	3	encoding=" UTF-8"
	4	?>
	5	<Export
	6	generator= "Cache"
	7	version="2 5"
	8	zv="Cache for Window s (x86-64) 2011.1 (B uild 532)"
	9	ts="2012-0 2-09 13:00 :38"
	10	>
	11	<Class
	12	name="BMS. PATIENTMOV EMENT"
	13	>
	14	<Descripti on>
	15	Generated class for FileMan Fi le Number: '405' Fi le Name: ' PATIENT MO VEMENT' Class gene rated by % fm2class v ersion '2. 03'
	16	This file holds the data for a ll admissi ons, trans fers, disc harges,
	17	treating s pecialty c hanges, an d lodger m ovements. These ent ries must not
	18	be edited through fi leman. In stead, the appropria te bed con trol optio ns
	19	should be executed t o insure d ata consis tency.
	20
	21	The follow ing cross- references exist on this file:
	22	^DGPM("AT ID"_TT,DFN ,Inverse d ate_AS,DA) =""
	23	^DGPM("AT T"_TT,Date _AS,DA)=""
	24	^DGPM("AP ID",DFN,In verse Date _AS,DA)=""
	25	^DGPM("AP TT"_TT,DFN ,Date_AS,D A)=""
	26	^DGPM("AP CA",DFN,Co rrespondin g Admissio n,Date_AS, DA)=""
	27	^DGPM("AP MV",DFN,Co rrespondin g Admissio n,Inverse Date_AS,DA )=""
	28	^DGPM("AP RD",DFN,Da te_AS,DA)= ""
	29	^DGPM("AM V"_TT,Date _AS,DFN,DA )=""
	30	^DGPM("AT S",DFN,Cor responding Admission ,Inverse D ate_AS,Tre ating Spec ialty,DA)= ""
	31	^DGPM("CN ",External Format of Ward,DA)= "" * inpatient s only*
	32	^DGPM("LD ",External Format of Ward,DA)= "" * lodgers o nly*
	33	^DGPM("AR M",IFN of Room-bed,D A)=1 or 0 [ 1 indicate s lodger, 0 indicate s non-lodg er]
	34	^DGPM("B" ,Date,DA)= ""
	35	^DGPM("C" ,DFN,DA)=" "
	36	^DGPM("CA ",Correspo nding Admi ssion,DA)= ""
	37
	38	where: TT=Transa ction type where cho ices are a s follows:
	39	1=ad mission 4=c heck-in lo dger
	40	2=tr ansfer 5=c heck-out l odger
	41	3=di scharge 6=s pecialty c hange
	42
	43	AS=ASIH S equencewhe re choices are as fo llows:
	44	1=tr ansfer to hospital A SIH
	45	2=Ad mission to hospital (automatic ally gener ated by mo dule)
	46	or 1=dis charge fro m hospital within 30 days of AS IH stay
	47	2=tr ansfer to or dischar ge from NH CU/DOM (au tomaticall y generate d by modul e)
	48	[NOTE: T his value is 0 for n on-ASIH mo vements or ASIH move ments wher e there ar e not 2 mo vements at the same date/time]
	49
	50	</Descript ion>
	51	<ClassType >
	52	persistent
	53	</ClassTyp e>
	54	<Owner>
	55	UnknownUse r
	56	</Owner>
	57	<Procedure Block>
	58	0
	59	</Procedur eBlock>
	60	<SqlRowIdN ame>
	61	RowId
	62	</SqlRowId Name>
	63	<SqlTableN ame>
	64	PATIENT_MO VEMENT
	65	</SqlTable Name>
	66	<StorageSt rategy>
	67	SQLStorage
	68	</StorageS trategy>
	69	<Super>
	70	%Library.P ersistent
	71	</Super>
	72	<TimeChang ed>
	73	62481,5389 8.491797
	74	</TimeChan ged>
	75	<TimeCreat ed>
	76	62481,5389 2.8073
	77	</TimeCrea ted>
	78
	79	<Parameter
	80	name="FILE MANFILENAM E"
	81	>
	82	<Default>
	83	PATIENT MO VEMENT
	84	</Default>
	85	</Paramete r>
	86
	87	<Parameter
	88	name="FILE MANFILENUM BER"
	89	>
	90	<Default>
	91	405
	92	</Default>
	93	</Paramete r>
	94
	95	<Parameter
	96	name="FM2C LASSVERSIO N"
	97	>
	98	<Default>
	99	2.03
	100	</Default>
	101	</Paramete r>
	102
	103	<Index
	104	name="IDKe yIndex"
	105	>
	106	<IdKey>
	107	1
	108	</IdKey>
	109	<PrimaryKe y>
	110	1
	111	</PrimaryK ey>
	112	<Propertie s>
	113	IEN
	114	</Properti es>
	115	<Unique>
	116	1
	117	</Unique>
	118	</Index>
	119
	120	<ForeignKe y
	121	name="FKey ADMISSIONC HECKINMOVE MENT"
	122	>
	123	<Descripti on>
	124	<![CDATA[
	125	Foriegn Ke y constrai nt for Poi nter refer ence field ADMISSION CHECKIN_MO VEMENT->PA TIENT_MOVE MENT]]>
	126	</Descript ion>
	127	<Propertie s>
	128	ADMISSIONC HECKINMOVE MENT
	129	</Properti es>
	130	<Reference dClass>
	131	BMS.PATIEN TMOVEMENT
	132	</Referenc edClass>
	133	<SqlName>
	134	FKey_ADMIS SIONCHECKI N_MOVEMENT
	135	</SqlName>
	136	</ForeignK ey>
	137
	138	<ForeignKe y
	139	name="FKey ENTEREDBY"
	140	>
	141	<Descripti on>
	142	<![CDATA[
	143	Foriegn Ke y constrai nt for Poi nter refer ence field ENTERED_B Y->NEW_PER SON]]>
	144	</Descript ion>
	145	<Propertie s>
	146	ENTEREDBY
	147	</Properti es>
	148	<Reference dClass>
	149	BMS.NEWPER SON
	150	</Referenc edClass>
	151	<SqlName>
	152	FKey_ENTER ED_BY
	153	</SqlName>
	154	</ForeignK ey>
	155
	156	<ForeignKe y
	157	name="FKey MASMOVEMEN TTYPE"
	158	>
	159	<Descripti on>
	160	<![CDATA[
	161	Foriegn Ke y constrai nt for Poi nter refer ence field MAS_MOVEM ENT_TYPE-> MAS_MOVEME NT_TYPE]]>
	162	</Descript ion>
	163	<Propertie s>
	164	MASMOVEMEN TTYPE
	165	</Properti es>
	166	<Reference dClass>
	167	BMS.MASMOV EMENTTYPE
	168	</Referenc edClass>
	169	<SqlName>
	170	FKey_MAS_M OVEMENT_TY PE
	171	</SqlName>
	172	</ForeignK ey>
	173
	174	<ForeignKe y
	175	name="FKey PATIENT"
	176	>
	177	<Descripti on>
	178	<![CDATA[
	179	Foriegn Ke y constrai nt for Poi nter refer ence field PATIENT-> PATIENT]]>
	180	</Descript ion>
	181	<Propertie s>
	182	PATIENT
	183	</Properti es>
	184	<Reference dClass>
	185	BMS.PATIEN T
	186	</Referenc edClass>
	187	<SqlName>
	188	FKey_PATIE NT
	189	</SqlName>
	190	</ForeignK ey>
	191
	192	<ForeignKe y
	193	name="FKey ROOMBED"
	194	>
	195	<Descripti on>
	196	<![CDATA[
	197	Foriegn Ke y constrai nt for Poi nter refer ence field ROOMBED-> ROOMBED]]>
	198	</Descript ion>
	199	<Propertie s>
	200	ROOMBED
	201	</Properti es>
	202	<Reference dClass>
	203	BMS.ROOMBE D
	204	</Referenc edClass>
	205	<SqlName>
	206	FKey_ROOMB ED
	207	</SqlName>
	208	</ForeignK ey>
	209
	210	<ForeignKe y
	211	name="FKey TRANSACTIO N02"
	212	>
	213	<Descripti on>
	214	<![CDATA[
	215	Foriegn Ke y constrai nt for Poi nter refer ence field TRANSACTI ON_02->MAS _MOVEMENT_ TRANSACTIO N_TYPE]]>
	216	</Descript ion>
	217	<Propertie s>
	218	TRANSACTIO N02
	219	</Properti es>
	220	<Reference dClass>
	221	BMS.MASMOV EMENTTRANS ACTIONTYPE
	222	</Referenc edClass>
	223	<SqlName>
	224	FKey_TRANS ACTION_02
	225	</SqlName>
	226	</ForeignK ey>
	227
	228	<ForeignKe y
	229	name="FKey TYPEOFMOVE MENT"
	230	>
	231	<Descripti on>
	232	<![CDATA[
	233	Foriegn Ke y constrai nt for Poi nter refer ence field TYPE_OF_M OVEMENT->F ACILITY_MO VEMENT_TYP E]]>
	234	</Descript ion>
	235	<Propertie s>
	236	TYPEOFMOVE MENT
	237	</Properti es>
	238	<Reference dClass>
	239	BMS.FACILI TYMOVEMENT TYPE
	240	</Referenc edClass>
	241	<SqlName>
	242	FKey_TYPE_ OF_MOVEMEN T
	243	</SqlName>
	244	</ForeignK ey>
	245
	246	<ForeignKe y
	247	name="FKey WARDLOCATI ON"
	248	>
	249	<Descripti on>
	250	<![CDATA[
	251	Foriegn Ke y constrai nt for Poi nter refer ence field WARD_LOCA TION->WARD _LOCATION] ]>
	252	</Descript ion>
	253	<Propertie s>
	254	WARDLOCATI ON
	255	</Properti es>
	256	<Reference dClass>
	257	BMS.WARDLO CATION
	258	</Referenc edClass>
	259	<SqlName>
	260	FKey_WARD_ LOCATION
	261	</SqlName>
	262	</ForeignK ey>
	263
	264	<Property
	265	name="ADMI SSIONCHECK INMOVEMENT "
	266	>
	267	<Descripti on>
	268	FileMan Fi eld Label: 'ADMISSIO N/CHECK-IN MOVEMENT' FileMan Field Numb er: '.14'
	269	This field is a poin ter to the admission or check- in lodger movement w hich
	270	is associa ted with t he transac tion being entered.
	271	</Descript ion>
	272	<Type>
	273	BMS.PATIEN TMOVEMENT
	274	</Type>
	275	<Required>
	276	1
	277	</Required >
	278	<SqlColumn Number>
	279	9
	280	</SqlColum nNumber>
	281	<SqlFieldN ame>
	282	ADMISSIONC HECKIN_MOV EMENT
	283	</SqlField Name>
	284	</Property >
	285
	286	<Property
	287	name="ADMI SSIONCHECK INMOVEMENT DATETIM"
	288	>
	289	<Descripti on>
	290	<![CDATA[
	291	Expanded P ointer Fie ld for ADM ISSIONCHEC KIN_MOVEME NT->NAME
	292	MOVEMENT D ATE/TIME
	293	Enter in t his field the date/t ime of the movement (admission , transfer ,
	294	discharge, treating specialty transfer, lodger che ck-in, or lodger che ck-
	295	out). Tim e must be included.] ]>
	296	</Descript ion>
	297	<Type>
	298	%Library.S tring
	299	</Type>
	300	<SqlComput eCode>
	301	<![CDATA[ new id,%ROWCOU NT,%ROWID, SQLCODE,va l set id={ %%ID}
	302	&s ql(select ADMISSIONC HECKIN_MOV EMENT->DAT ETIME into :val from BMS.PATIE NT_MOVEMEN T where %I D=:id)
	303	se t {ADMISSI ONCHECKIN_ MOVEMENT_D ATETIME}=$ select(SQL CODE=0:val ,1:"")]]>
	304	</SqlCompu teCode>
	305	<SqlComput ed>
	306	1
	307	</SqlCompu ted>
	308	<SqlFieldN ame>
	309	ADMISSIONC HECKIN_MOV EMENT_DATE TIME
	310	</SqlField Name>
	311	<Transient >
	312	1
	313	</Transien t>
	314	<ReadOnly>
	315	1
	316	</ReadOnly >
	317	</Property >
	318
	319	<Property
	320	name="DATE TIME"
	321	>
	322	<Descripti on>
	323	FileMan Fi eld Label: 'DATE/TIM E' FileMa n Field Nu mber: '.01 '
	324	MOVEMENT D ATE/TIME
	325	Enter in t his field the date/t ime of the movement (admission , transfer ,
	326	discharge, treating specialty transfer, lodger che ck-in, or lodger che ck-
	327	out). Tim e must be included.
	328	</Descript ion>
	329	<Type>
	330	%Library.F ilemanTime Stamp
	331	</Type>
	332	<Required>
	333	1
	334	</Required >
	335	<SqlColumn Number>
	336	3
	337	</SqlColum nNumber>
	338	<SqlFieldN ame>
	339	DATETIME
	340	</SqlField Name>
	341	</Property >
	342
	343	<Property
	344	name="ENTE REDBY"
	345	>
	346	<Descripti on>
	347	FileMan Fi eld Label: 'ENTERED BY' FileM an Field N umber: '10 0'
	348	This field stores th e name of the user e ntering th is patient movement.
	349	</Descript ion>
	350	<Type>
	351	BMS.NEWPER SON
	352	</Type>
	353	<SqlColumn Number>
	354	11
	355	</SqlColum nNumber>
	356	<SqlFieldN ame>
	357	ENTERED_BY
	358	</SqlField Name>
	359	</Property >
	360
	361	<Property
	362	name="ENTE REDBYNAME"
	363	>
	364	<Descripti on>
	365	<![CDATA[
	366	Expanded P ointer Fie ld for ENT ERED_BY->N AME
	367
	368	Enter only data that is actual ly part of the perso n's name. Do not
	369	include ex tra titles , identifi cation, fl ags, local informati on, etc.
	370	Enter the person's n ame in 'LA ST,FIRST M IDDLE SUFF IX' format .
	371	This value must be 3 -35 charac ters in le ngth and m ay contain only
	372	uppercase alpha char acters, sp aces, apos trophes, h yphens and one comma .
	373	All other characters and paren thetical t ext will b e removed. ]]>
	374	</Descript ion>
	375	<Type>
	376	%Library.S tring
	377	</Type>
	378	<SqlComput eCode>
	379	<![CDATA[ new id,%ROWCOU NT,%ROWID, SQLCODE,va l set id={ %%ID}
	380	&s ql(select ENTERED_BY ->NAME int o :val fro m BMS.PATI ENT_MOVEME NT where % ID=:id)
	381	se t {ENTERED _BY_NAME}= $select(SQ LCODE=0:va l,1:"")]]>
	382	</SqlCompu teCode>
	383	<SqlComput ed>
	384	1
	385	</SqlCompu ted>
	386	<SqlFieldN ame>
	387	ENTERED_BY _NAME
	388	</SqlField Name>
	389	<Transient >
	390	1
	391	</Transien t>
	392	<ReadOnly>
	393	1
	394	</ReadOnly >
	395	</Property >
	396	<Property
	397	name="DIAG NOSISSHORT "
	398	>
	399	<Descripti on>
	400	FileMan Fi eld Label: 'DIAGNOSI S [SHORT]' FileMan Field Numb er: '.1'
	401	When admit ting a pat ient, you will be as ked to pro vide a bri ef descipt ion
	402	of the dia gnosis of this patie nt upon ad mission.
	403	</Descript ion>
	404	<Type>
	405	%Library.S tring
	406	</Type>
	407	<SqlColumn Number>
	408	13
	409	</SqlColum nNumber>
	410	<SqlFieldN ame>
	411	DIAGNOSIS_ SHORT
	412	</SqlField Name>
	413	<Parameter
	414	name="COLL ATION"
	415	value="EXA CT"
	416	/>
	417	<Parameter
	418	name="MAXL EN"
	419	value="30"
	420	/>
	421	<Parameter
	422	name="MINL EN"
	423	value="3"
	424	/>
	425	<Parameter
	426	name="TRUN CATE"
	427	value="0"
	428	/>
	429	</Property >
	430	<Property
	431	name="ENTE REDON"
	432	>
	433	<Descripti on>
	434	FileMan Fi eld Label: 'ENTERED ON' FileM an Field N umber: '10 1'
	435	This field stores th e date/tim e on which this PATI ENT MOVEME NT FILE
	436	entry was initially entered.
	437	</Descript ion>
	438	<Type>
	439	%Library.F ilemanTime Stamp
	440	</Type>
	441	<SqlColumn Number>
	442	12
	443	</SqlColum nNumber>
	444	<SqlFieldN ame>
	445	ENTERED_ON
	446	</SqlField Name>
	447	</Property >
	448
	449	<Property
	450	name="IEN"
	451	>
	452	<Descripti on>
	453	Internal E ntry Numbe r
	454	</Descript ion>
	455	<Type>
	456	%Library.S tring
	457	</Type>
	458	<InitialEx pression>
	459	$$next^%ap iSQL("$p(^ DGPM(0),"" ^"",3)")
	460	</InitialE xpression>
	461	<Required>
	462	1
	463	</Required >
	464	<SqlColumn Number>
	465	2
	466	</SqlColum nNumber>
	467	<SqlFieldN ame>
	468	IEN
	469	</SqlField Name>
	470	<Parameter
	471	name="COLL ATION"
	472	value="EXA CT"
	473	/>
	474	<Parameter
	475	name="TRUN CATE"
	476	value="0"
	477	/>
	478	</Property >
	479
	480	<Property
	481	name="MASM OVEMENTTYP E"
	482	>
	483	<Descripti on>
	484	FileMan Fi eld Label: 'MAS MOVE MENT TYPE' FileMan Field Numb er: '.18'
	485	This field is intern ally set b y the modu le. When you enter a FACILITY
	486	MOVEMENT T YPE (field .04 of th is file), this field will auto matically be
	487	set to the internal number of the MAS-di stributed movement t ype to whi ch
	488	this FACIL ITY MOVEME NT TYPE po ints. Thi s internal number is used
	489	throughout the code of MAS and various o ther packa ges to det ermine the
	490	flow of pr ocessing t hat should occur.
	491	</Descript ion>
	492	<Type>
	493	BMS.MASMOV EMENTTYPE
	494	</Type>
	495	<SqlColumn Number>
	496	10
	497	</SqlColum nNumber>
	498	<SqlFieldN ame>
	499	MAS_MOVEME NT_TYPE
	500	</SqlField Name>
	501	</Property >
	502
	503	<Property
	504	name="MASM OVEMENTTYP ENAME"
	505	>
	506	<Descripti on>
	507	<![CDATA[
	508	Expanded P ointer Fie ld for MAS _MOVEMENT_ TYPE->NAME
	509	This field contains the name o f the move ment type as distrib uted by th e
	510	MAS packag e under th e directio n of MAS DNS and the MA S SIUG. Entries
	511	in this fi le must no t be edite d locally, and will be maintai ned via
	512	frequent M AS softwar e upgrades . Changes to this f ile could severely
	513	impact ope rations at your site .]]>
	514	</Descript ion>
	515	<Type>
	516	%Library.S tring
	517	</Type>
	518	<SqlComput eCode>
	519	<![CDATA[ new id,%ROWCOU NT,%ROWID, SQLCODE,va l set id={ %%ID}
	520	&s ql(select MAS_MOVEME NT_TYPE->N AME into : val from B MS.PATIENT _MOVEMENT where %ID= :id)
	521	se t {MAS_MOV EMENT_TYPE _NAME}=$se lect(SQLCO DE=0:val,1 :"")]]>
	522	</SqlCompu teCode>
	523	<SqlComput ed>
	524	1
	525	</SqlCompu ted>
	526	<SqlFieldN ame>
	527	MAS_MOVEME NT_TYPE_NA ME
	528	</SqlField Name>
	529	<Transient >
	530	1
	531	</Transien t>
	532	<ReadOnly>
	533	1
	534	</ReadOnly >
	535	</Property >
	536
	537	<Property
	538	name="PATI ENT"
	539	>
	540	<Descripti on>
	541	FileMan Fi eld Label: 'PATIENT' FileMan Field Numb er: '.03'
	542	Enter the patient fo r which th is movemen t occurred . This fi eld is a
	543	pointer to the PATIE NT file.
	544	</Descript ion>
	545	<Type>
	546	BMS.PATIEN T
	547	</Type>
	548	<Required>
	549	1
	550	</Required >
	551	<SqlColumn Number>
	552	5
	553	</SqlColum nNumber>
	554	<SqlFieldN ame>
	555	PATIENT
	556	</SqlField Name>
	557	</Property >
	558
	559	<Property
	560	name="PATI ENTNAME"
	561	>
	562	<Descripti on>
	563	<![CDATA[
	564	Expanded P ointer Fie ld for PAT IENT->NAME
	565
	566	Enter the patient's name in 'L AST,FIRST MIDDLE SUF FIX' forma t.
	567	This value must be 3 -30 charac ters in le ngth and m ay contain only uppe rcase
	568	alpha char acters, sp aces, apos trophes, h yphens and one comma . All oth er
	569	characters and paren thetical t ext will b e removed. ]]>
	570	</Descript ion>
	571	<Type>
	572	%Library.S tring
	573	</Type>
	574	<SqlComput eCode>
	575	<![CDATA[ new id,%ROWCOU NT,%ROWID, SQLCODE,va l set id={ %%ID}
	576	&s ql(select PATIENT->N AME into : val from B MS.PATIENT _MOVEMENT where %ID= :id)
	577	se t {PATIENT _NAME}=$se lect(SQLCO DE=0:val,1 :"")]]>
	578	</SqlCompu teCode>
	579	<SqlComput ed>
	580	1
	581	</SqlCompu ted>
	582	<SqlFieldN ame>
	583	PATIENT_NA ME
	584	</SqlField Name>
	585	<Transient >
	586	1
	587	</Transien t>
	588	<ReadOnly>
	589	1
	590	</ReadOnly >
	591	</Property >
	592
	593	<Property
	594	name="ROOM BED"
	595	>
	596	<Descripti on>
	597	FileMan Fi eld Label: 'ROOM-BED ' FileMan Field Num ber: '.07'
	598	Select the ROOM-BED to which y ou are adm itting or transferri ng this
	599	patient. Select fro m those AC TIVE beds in the ROO M-BED file which are
	600	assigned t o the WARD LOCATION chosen for this move ment.
	601	</Descript ion>
	602	<Type>
	603	BMS.ROOMBE D
	604	</Type>
	605	<SqlColumn Number>
	606	8
	607	</SqlColum nNumber>
	608	<SqlFieldN ame>
	609	ROOMBED
	610	</SqlField Name>
	611	</Property >
	612
	613	<Property
	614	name="ROOM BEDNAME"
	615	>
	616	<Descripti on>
	617	<![CDATA[
	618	Expanded P ointer Fie ld for ROO MBED->NAME
	619	Enter the name of th e room-bed you are a dding. Sh ould be in the forma t
	620	ROOM-BED.] ]>
	621	</Descript ion>
	622	<Type>
	623	%Library.S tring
	624	</Type>
	625	<SqlComput eCode>
	626	<![CDATA[ new id,%ROWCOU NT,%ROWID, SQLCODE,va l set id={ %%ID}
	627	&s ql(select ROOMBED->N AME into : val from B MS.PATIENT _MOVEMENT where %ID= :id)
	628	se t {ROOMBED _NAME}=$se lect(SQLCO DE=0:val,1 :"")]]>
	629	</SqlCompu teCode>
	630	<SqlComput ed>
	631	1
	632	</SqlCompu ted>
	633	<SqlFieldN ame>
	634	ROOMBED_NA ME
	635	</SqlField Name>
	636	<Transient >
	637	1
	638	</Transien t>
	639	<ReadOnly>
	640	1
	641	</ReadOnly >
	642	</Property >
	643
	644	<Property
	645	name="TRAN SACTION02"
	646	>
	647	<Descripti on>
	648	FileMan Fi eld Label: 'TRANSACT ION' File Man Field Number: '. 02'
	649	Enter in t his field the transa ction type of the mo vement. C hoose from :
	650	1 ADMISSION
	651	2 TRANSFER
	652	3 DISCHARGE
	653	4 CHECK-IN LODGER
	654	5 CHECK-OUT LODGER
	655	6 SPECIALTY TRANSFER
	656	</Descript ion>
	657	<Type>
	658	BMS.MASMOV EMENTTRANS ACTIONTYPE
	659	</Type>
	660	<Required>
	661	1
	662	</Required >
	663	<SqlColumn Number>
	664	4
	665	</SqlColum nNumber>
	666	<SqlFieldN ame>
	667	TRANSACTIO N_02
	668	</SqlField Name>
	669	</Property >
	670
	671	<Property
	672	name="TRAN SACTION02N AME"
	673	>
	674	<Descripti on>
	675	<![CDATA[
	676	Expanded P ointer Fie ld for TRA NSACTION_0 2->NAME
	677	Enter the type of tr ansaction that is ac ceptable b y the MAS package. This
	678	field must NOT be al tered as i t could se verely and adversely affect th e
	679	MAS packag e.]]>
	680	</Descript ion>
	681	<Type>
	682	%Library.S tring
	683	</Type>
	684	<SqlComput eCode>
	685	<![CDATA[ new id,%ROWCOU NT,%ROWID, SQLCODE,va l set id={ %%ID}
	686	&s ql(select TRANSACTIO N_02->NAME into :val from BMS. PATIENT_MO VEMENT whe re %ID=:id )
	687	se t {TRANSAC TION_02_NA ME}=$selec t(SQLCODE= 0:val,1:"" )]]>
	688	</SqlCompu teCode>
	689	<SqlComput ed>
	690	1
	691	</SqlCompu ted>
	692	<SqlFieldN ame>
	693	TRANSACTIO N_02_NAME
	694	</SqlField Name>
	695	<Transient >
	696	1
	697	</Transien t>
	698	<ReadOnly>
	699	1
	700	</ReadOnly >
	701	</Property >
	702
	703	<Property
	704	name="TYPE OFMOVEMENT "
	705	>
	706	<Descripti on>
	707	FileMan Fi eld Label: 'TYPE OF MOVEMENT' FileMan F ield Numbe r: '.04'
	708	Choose the type of m ovement th is patient had. You will be s electing f rom
	709	active FAC ILITY MOVE MENT TYPES for which the TRANS ACTION TYP E of this
	710	movement m atches the TRANSACTI ON TYPE of the FACIL ITY MOVEME NT TYPE. For
	711	example, i f you are admitting a patient, you will only be ab le to sele ct
	712	active adm ission typ es.
	713	</Descript ion>
	714	<Type>
	715	BMS.FACILI TYMOVEMENT TYPE
	716	</Type>
	717	<Required>
	718	1
	719	</Required >
	720	<SqlColumn Number>
	721	6
	722	</SqlColum nNumber>
	723	<SqlFieldN ame>
	724	TYPE_OF_MO VEMENT
	725	</SqlField Name>
	726	</Property >
	727
	728	<Property
	729	name="TYPE OFMOVEMENT NAME"
	730	>
	731	<Descripti on>
	732	<![CDATA[
	733	Expanded P ointer Fie ld for TYP E_OF_MOVEM ENT->NAME
	734	Enter the name of th e movement type. Th is name wi ll be disp layed on m any
	735	of the bed control o utputs.]]>
	736	</Descript ion>
	737	<Type>
	738	%Library.S tring
	739	</Type>
	740	<SqlComput eCode>
	741	<![CDATA[ new id,%ROWCOU NT,%ROWID, SQLCODE,va l set id={ %%ID}
	742	&s ql(select TYPE_OF_MO VEMENT->NA ME into :v al from BM S.PATIENT_ MOVEMENT w here %ID=: id)
	743	se t {TYPE_OF _MOVEMENT_ NAME}=$sel ect(SQLCOD E=0:val,1: "")]]>
	744	</SqlCompu teCode>
	745	<SqlComput ed>
	746	1
	747	</SqlCompu ted>
	748	<SqlFieldN ame>
	749	TYPE_OF_MO VEMENT_NAM E
	750	</SqlField Name>
	751	<Transient >
	752	1
	753	</Transien t>
	754	<ReadOnly>
	755	1
	756	</ReadOnly >
	757	</Property >
	758
	759	<Property
	760	name="WARD LOCATION"
	761	>
	762	<Descripti on>
	763	FileMan Fi eld Label: 'WARD LOC ATION' Fi leMan Fiel d Number: '.06'
	764	Enter in t his field the WARD t o which th is patient is being admitted o r
	765	transferre d to. Cho ose from A CTIVE entr ies in the WARD LOCA TION file.
	766	This field will only be prompt ed for mov ements to WARDS at t he home
	767	facility.
	768	</Descript ion>
	769	<Type>
	770	BMS.WARDLO CATION
	771	</Type>
	772	<SqlColumn Number>
	773	7
	774	</SqlColum nNumber>
	775	<SqlFieldN ame>
	776	WARD_LOCAT ION
	777	</SqlField Name>
	778	</Property >
	779
	780	<Property
	781	name="WARD LOCATIONNA ME"
	782	>
	783	<Descripti on>
	784	<![CDATA[
	785	Expanded P ointer Fie ld for WAR D_LOCATION ->NAME
	786	Enter in t his field the name o f the ward location as selecta ble using
	787	bed contro l options in MAS. M ixing ward names tha t are pure
	788	numbers (4 ,5,6...) w ith ward n ames that are alphab etic (A,B, C...) or
	789	with ward names tha t combine numbers wi th
	790	alphas (4A , 4B, 5C.. .) may yie ld unexpec ted result s when pri nting
	791	output sor ted by war d.]]>
	792	</Descript ion>
	793	<Type>
	794	%Library.S tring
	795	</Type>
	796	<SqlComput eCode>
	797	<![CDATA[ new id,%ROWCOU NT,%ROWID, SQLCODE,va l set id={ %%ID}
	798	&s ql(select WARD_LOCAT ION->NAME into :val from BMS.P ATIENT_MOV EMENT wher e %ID=:id)
	799	se t {WARD_LO CATION_NAM E}=$select (SQLCODE=0 :val,1:"") ]]>
	800	</SqlCompu teCode>
	801	<SqlComput ed>
	802	1
	803	</SqlCompu ted>
	804	<SqlFieldN ame>
	805	WARD_LOCAT ION_NAME
	806	</SqlField Name>
	807	<Transient >
	808	1
	809	</Transien t>
	810	<ReadOnly>
	811	1
	812	</ReadOnly >
	813	</Property >
	814
	815	<Trigger
	816	name="Befo reDeleteFi ling"
	817	>
	818	<Descripti on>
	819	BEFORE Tri gger to pe rform fili ng
	820	</Descript ion>
	821	<Code>
	822	ne w:'$data(D UZ) DISYS, DT,DTIME,D UZ new %,% H,DA,DIC,D IK,IO,U,X, Y d DTNOLF ^DICRW s D IK="^DGPM( " s DA={%% ID} d ^DIK s %SkipFi ling=1 q
	823	</Code>
	824	<Event>
	825	DELETE
	826	</Event>
	827	<SqlName>
	828	BeforeDele teFiling
	829	</SqlName>
	830	</Trigger>
	831
	832	<Trigger
	833	name="Befo reInsertFi ling"
	834	>
	835	<Descripti on>
	836	BEFORE INS ERT Trigge r to perfo rm filing
	837	</Descript ion>
	838	<Code>
	839	ne w:'$data(D UZ) DISYS, DT,DTIME,D UZ new FDA ,FDAIEN,IO ,U,wp s FD AIEN(1)={I EN}
	840	s: {DATETIME} '="" FDA(4 05,"+1,",. 01)={"DATE TIME"}
	841	s: {TRANSACTI ON_02}'="" FDA(405," +1,",.02)= {"TRANSACT ION_02"}
	842	s: {PATIENT}' ="" FDA(40 5,"+1,",.0 3)={"PATIE NT"}
	843	s: {TYPE_OF_M OVEMENT}'= "" FDA(405 ,"+1,",.04 )={"TYPE_O F_MOVEMENT "}
	844	s: {DIAGNOSIS _SHORT}'=" " FDA(405, "+1,",.1)= {"DIAGNOSI S_SHORT"}
	845	s: {WARD_LOCA TION}'="" FDA(405,"+ 1,",.06)={ "WARD_LOCA TION"}
	846	s: {ROOMBED}' ="" FDA(40 5,"+1,",.0 7)={"ROOMB ED"}
	847	s: {ADMISSION CHECKIN_MO VEMENT}'=" " FDA(405, "+1,",.14) ={"ADMISSI ONCHECKIN_ MOVEMENT"}
	848	s: {MAS_MOVEM ENT_TYPE}' ="" FDA(40 5,"+1,",.1 8)={"MAS_M OVEMENT_TY PE"}
	849	s: {ENTERED_B Y}'="" FDA (405,"+1," ,100)={"EN TERED_BY"}
	850	s: {ENTERED_O N}'="" FDA (405,"+1," ,101)={"EN TERED_ON"}
	851	d UPDATE^DIE ("","FDA", "FDAIEN"," %FMERR(405 )") s %Ski pFiling=1
	852	i $d(%FMERR( 405,"DIERR ")) { s U= "^" d MSG^ DIALOG("AT ",.err,327 68,,"%FMER R(405)") s %ok=0 f e rr=1:1:err { s $p(%m sg,$c(13,1 0),err)=$g (err(err)) } q }
	853	QU IT
	854	</Code>
	855	<Event>
	856	INSERT
	857	</Event>
	858	<SqlName>
	859	BeforeInse rtFiling
	860	</SqlName>
	861	</Trigger>
	862
	863	<Trigger
	864	name="Befo reUpdateFi ling"
	865	>
	866	<Descripti on>
	867	BEFORE UPD ATE Trigge r to perfo rm filing
	868	</Descript ion>
	869	<Code>
	870	ne w:'$data(D UZ) DISYS, DT,DTIME,D UZ new FDA ,IENS,IO,U ,wp,wproot s IENS={I EN}_","
	871	s: {DATETIME* C} FDA(405 ,IENS,.01) ={DATETIME }
	872	s: {TRANSACTI ON_02*C} F DA(405,IEN S,.02)={TR ANSACTION_ 02}
	873	s: {PATIENT*C } FDA(405, IENS,.03)= {PATIENT}
	874	s: {TYPE_OF_M OVEMENT*C} FDA(405,I ENS,.04)={ TYPE_OF_MO VEMENT}
	875	s: {DIAGNOSIS _SHORT*C} FDA(405,IE NS,.1)={DI AGNOSIS_SH ORT}
	876	s: {WARD_LOCA TION*C} FD A(405,IENS ,.06)={WAR D_LOCATION }
	877	s: {ROOMBED*C } FDA(405, IENS,.07)= {ROOMBED}
	878	s: {ADMISSION CHECKIN_MO VEMENT*C} FDA(405,IE NS,.14)={A DMISSIONCH ECKIN_MOVE MENT}
	879	s: {MAS_MOVEM ENT_TYPE*C } FDA(405, IENS,.18)= {MAS_MOVEM ENT_TYPE}
	880	s: {ENTERED_B Y*C} FDA(4 05,IENS,10 0)={ENTERE D_BY}
	881	s: {ENTERED_O N*C} FDA(4 05,IENS,10 1)={ENTERE D_ON}
	882	d: $d(FDA) UP DATE^DIE(" ","FDA",," %FMERR(405 )") s %Ski pFiling=1
	883	i $d(%FMERR( 405,"DIERR ")) { s U= "^" d MSG^ DIALOG("AT ",.err,327 68,,"%FMER R(405)") s %ok=0 f e rr=1:1:err { s $p(%m sg,$c(13,1 0),err)=$g (err(err)) } q }
	884	QU IT
	885	</Code>
	886	<Event>
	887	UPDATE
	888	</Event>
	889	<SqlName>
	890	BeforeUpda teFiling
	891	</SqlName>
	892	</Trigger>
	893
	894	<Storage
	895	name="SQLS torage"
	896	>
	897	<Type>
	898	%Library.C acheSQLSto rage
	899	</Type>
	900	<StreamLoc ation>
	901	^BMS.PATIE NTMOVEMENT S
	902	</StreamLo cation>
	903	<SQLMap
	904	name="ADMI SSIONCHECK INMOindexC A"
	905	>
	906	<Type>
	907	index
	908	</Type>
	909	<Global>
	910	^DGPM
	911	</Global>
	912	<Populatio nType>
	913	nonnull
	914	</Populati onType>
	915	<Subscript
	916	name="1"
	917	>
	918	<Expressio n>
	919	"CA"
	920	</Expressi on>
	921	</Subscrip t>
	922	<Subscript
	923	name="2"
	924	>
	925	<Expressio n>
	926	{ADMISSION CHECKIN_MO VEMENT}
	927	</Expressi on>
	928	</Subscrip t>
	929	<Subscript
	930	name="3"
	931	>
	932	<Expressio n>
	933	{IEN}
	934	</Expressi on>
	935	<Invalidco ndition
	936	name="1"
	937	>
	938	<Expressio n>
	939	<![CDATA[{ L3}'>0]]>
	940	</Expressi on>
	941	</Invalidc ondition>
	942	</Subscrip t>
	943	</SQLMap>
	944	<SQLMap
	945	name="DATE TIMEindexB "
	946	>
	947	<Type>
	948	index
	949	</Type>
	950	<Global>
	951	^DGPM
	952	</Global>
	953	<Populatio nType>
	954	nonnull
	955	</Populati onType>
	956	<Subscript
	957	name="1"
	958	>
	959	<Expressio n>
	960	"B"
	961	</Expressi on>
	962	</Subscrip t>
	963	<Subscript
	964	name="2"
	965	>
	966	<Expressio n>
	967	{DATETIME}
	968	</Expressi on>
	969	</Subscrip t>
	970	<Subscript
	971	name="3"
	972	>
	973	<Expressio n>
	974	{IEN}
	975	</Expressi on>
	976	<Invalidco ndition
	977	name="1"
	978	>
	979	<Expressio n>
	980	<![CDATA[{ L3}'>0]]>
	981	</Expressi on>
	982	</Invalidc ondition>
	983	</Subscrip t>
	984	</SQLMap>
	985	<SQLMap
	986	name="PATI ENTMOVEMEN TDataMap"
	987	>
	988	<Type>
	989	data
	990	</Type>
	991	<Global>
	992	^DGPM
	993	</Global>
	994	<Subscript
	995	name="1"
	996	>
	997	<Expressio n>
	998	{IEN}
	999	</Expressi on>
	1000	<NextCode>
	1001	s: {L1}="" {L 1}=0 s {L1 }=$o(^({L1 })) s:'{L1 } {L1}=""
	1002	;P REV
	1003	s: {L1}="" {L 1}=":" s { L1}=$o(^({ L1}),-1) s :'{L1} {L1 }=""
	1004	</NextCode >
	1005	<Invalidco ndition
	1006	name="1"
	1007	>
	1008	<Expressio n>
	1009	<![CDATA[{ L1}'>0]]>
	1010	</Expressi on>
	1011	</Invalidc ondition>
	1012	</Subscrip t>
	1013	<Data
	1014	name="ADMI SSIONCHECK IN_MOVEMEN T"
	1015	>
	1016	<Delimiter >
	1017	"^"
	1018	</Delimite r>
	1019	<Node>
	1020	0
	1021	</Node>
	1022	<Piece>
	1023	14
	1024	</Piece>
	1025	</Data>
	1026	<Data
	1027	name="DATE TIME"
	1028	>
	1029	<Delimiter >
	1030	"^"
	1031	</Delimite r>
	1032	<Node>
	1033	0
	1034	</Node>
	1035	<Piece>
	1036	1
	1037	</Piece>
	1038	</Data>
	1039	<Data
	1040	name="DIAG NOSIS_SHOR T"
	1041	>
	1042	<Delimiter >
	1043	"^"
	1044	</Delimite r>
	1045	<Node>
	1046	0
	1047	</Node>
	1048	<Piece>
	1049	10
	1050	</Piece>
	1051	</Data>
	1052	<Data
	1053	name="ENTE RED_BY"
	1054	>
	1055	<Delimiter >
	1056	"^"
	1057	</Delimite r>
	1058	<Node>
	1059	"USR"
	1060	</Node>
	1061	<Piece>
	1062	1
	1063	</Piece>
	1064	</Data>
	1065	<Data
	1066	name="ENTE RED_ON"
	1067	>
	1068	<Delimiter >
	1069	"^"
	1070	</Delimite r>
	1071	<Node>
	1072	"USR"
	1073	</Node>
	1074	<Piece>
	1075	2
	1076	</Piece>
	1077	</Data>
	1078	<Data
	1079	name="MAS_ MOVEMENT_T YPE"
	1080	>
	1081	<Delimiter >
	1082	"^"
	1083	</Delimite r>
	1084	<Node>
	1085	0
	1086	</Node>
	1087	<Piece>
	1088	18
	1089	</Piece>
	1090	</Data>
	1091	<Data
	1092	name="PATI ENT"
	1093	>
	1094	<Delimiter >
	1095	"^"
	1096	</Delimite r>
	1097	<Node>
	1098	0
	1099	</Node>
	1100	<Piece>
	1101	3
	1102	</Piece>
	1103	</Data>
	1104	<Data
	1105	name="ROOM BED"
	1106	>
	1107	<Delimiter >
	1108	"^"
	1109	</Delimite r>
	1110	<Node>
	1111	0
	1112	</Node>
	1113	<Piece>
	1114	7
	1115	</Piece>
	1116	</Data>
	1117	<Data
	1118	name="TRAN SACTION_02 "
	1119	>
	1120	<Delimiter >
	1121	"^"
	1122	</Delimite r>
	1123	<Node>
	1124	0
	1125	</Node>
	1126	<Piece>
	1127	2
	1128	</Piece>
	1129	</Data>
	1130	<Data
	1131	name="TYPE _OF_MOVEME NT"
	1132	>
	1133	<Delimiter >
	1134	"^"
	1135	</Delimite r>
	1136	<Node>
	1137	0
	1138	</Node>
	1139	<Piece>
	1140	4
	1141	</Piece>
	1142	</Data>
	1143	<Data
	1144	name="WARD _LOCATION"
	1145	>
	1146	<Delimiter >
	1147	"^"
	1148	</Delimite r>
	1149	<Node>
	1150	0
	1151	</Node>
	1152	<Piece>
	1153	6
	1154	</Piece>
	1155	</Data>
	1156	</SQLMap>
	1157	<SQLMap
	1158	name="PATI ENTindexC"
	1159	>
	1160	<Type>
	1161	index
	1162	</Type>
	1163	<Global>
	1164	^DGPM
	1165	</Global>
	1166	<Populatio nType>
	1167	nonnull
	1168	</Populati onType>
	1169	<Subscript
	1170	name="1"
	1171	>
	1172	<Expressio n>
	1173	"C"
	1174	</Expressi on>
	1175	</Subscrip t>
	1176	<Subscript
	1177	name="2"
	1178	>
	1179	<Expressio n>
	1180	{PATIENT}
	1181	</Expressi on>
	1182	</Subscrip t>
	1183	<Subscript
	1184	name="3"
	1185	>
	1186	<Expressio n>
	1187	{IEN}
	1188	</Expressi on>
	1189	<Invalidco ndition
	1190	name="1"
	1191	>
	1192	<Expressio n>
	1193	<![CDATA[{ L3}'>0]]>
	1194	</Expressi on>
	1195	</Invalidc ondition>
	1196	</Subscrip t>
	1197	</SQLMap>
	1198	</Storage>
	1199	</Class>
	1200	</Export>