Home Package List Routine Alphabetical List Global Alphabetical List FileMan Files List FileMan Sub-Files List Package Component Lists Package-Namespace Mapping

Info | Desc | Directly Accessed By Routines | Accessed By FileMan Db Calls | Pointer To FileMan Files | Fields | All

Print Page as PDF

Global: ^AMER(2.3

Package: Emergency Room

Global: ^AMER(2.3

Information

FileMan FileNo	FileMan Filename	Package
9009082.3	ER INPUT MAP	Emergency Room

Description

Directly Accessed By Routines, Total: 7

Accessed By FileMan Db Calls, Total: 3

Pointer To FileMan Files, Total: 1

Fields, Total: 13

Field #	Name	Loc	Type	Details
.01	QUERY TAG	0;1	FREE TEXT	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `K:$L(X)>30!(X?.N)!($L(X)<3)!'(X'?1P.E) X` HELP-PROMPT: `NAME MUST BE 3-30 CHARACTERS, NOT NUMERIC OR STARTING WITH PUNCTUATION` CROSS-REFERENCE: `9009082.3^B` 1)= S ^AMER(2.3,"B",$E(X,1,30),DA)="" 2)= K ^AMER(2.3,"B",$E(X,1,30),DA) CROSS-REFERENCE: `^^TRIGGER^9009082.3^.02` 1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^AMER(2.3,D0,0)):^(0),1:"") S X=$P(Y(1),U,2),X=X S DIU=X K Y X ^DD(9009082.3,.01,1,2,1.1) X ^DD(9009082.3,.01,1,2,1.4) 1.1)= S X=DIV S X=DIV,Y(1)=X S X=2,X=$E(Y(1),X) 1.4)= S DIH=$S($D(^AMER(2.3,DIV(0),0)):^(0),1:""),DIV=X S $P(^(0),U,2)=DIV,DIH=9009082.3,DIG=.02 D ^DICR:$O(^DD(DIH,DIG,1,0))>0 2)= Q CREATE VALUE)= $E(QUERY TAG,2) DELETE VALUE)= NO EFFECT FIELD)= QUERY TYPE CROSS-REFERENCE: `^^TRIGGER^9009082.3^.03` 1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^AMER(2.3,D0,0)):^(0),1:"") S X=$P(Y(1),U,3),X=X S DIU=X K Y X ^DD(9009082.3,.01,1,3,1.1) X ^DD(9009082.3,.01,1,3,1.4) 1.1)= S X=DIV S X=DIV,Y(1)=X S X=3,Y(2)=X S X=99,X=$E(Y(1),Y(2),X) 1.4)= S DIH=$S($D(^AMER(2.3,DIV(0),0)):^(0),1:""),DIV=X S $P(^(0),U,3)=DIV,DIH=9009082.3,DIG=.03 D ^DICR:$O(^DD(DIH,DIG,1,0))>0 2)= Q CREATE VALUE)= $E(QUERY TAG,3,99) DELETE VALUE)= NO EFFECT FIELD)= QUERY ID CROSS-REFERENCE: `^^TRIGGER^9009082.3^.06` 1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^AMER(2.3,D0,0)):^(0),1:"") S X=$P(Y(1),U,6),X=X S DIU=X K Y S X=DIV S X=DIV,X=$E(X) X ^DD(9009082.3,.01,1,4,1.4) 1.4)= S DIH=$S($D(^AMER(2.3,DIV(0),0)):^(0),1:""),DIV=X S $P(^(0),U,6)=DIV,DIH=9009082.3,DIG=.06 D ^DICR:$O(^DD(DIH,DIG,1,0))>0 2)= Q CREATE VALUE)= $E(QUERY TAG) DELETE VALUE)= NO EFFECT FIELD)= QUERY MET
.02	QUERY TYPE	0;2	SET	'A' FOR ADMISSION; 'D' FOR DISCHARGE; LAST EDITED: `JAN 07, 1996` NOTES: `TRIGGERED by the QUERY TAG field of the ER INPUT MAP File` CROSS-REFERENCE: `9009082.3^AC` 1)= S ^AMER(2.3,"AC",$E(X,1,30),DA)="" 2)= K ^AMER(2.3,"AC",$E(X,1,30),DA)
.03	ID NUMBER	0;3	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>999)!(X<1)!(X?.E1"."1N.N) X` LAST EDITED: `JAN 11, 1996` HELP-PROMPT: `Type a Number between 1 and 999, 0 Decimal Digits` NOTES: `TRIGGERED by the QUERY TAG field of the ER INPUT MAP File`
.04	A FIELD	0;4	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>99)!(X<0)!(X?.E1"."3N.N) X` LAST EDITED: `JAN 07, 1996` HELP-PROMPT: `Type a Number between 0 and 99, 2 Decimal Digits`
.05	V FIELD	0;5	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>99)!(X<0)!(X?.E1"."3N.N) X` LAST EDITED: `JAN 07, 1996` HELP-PROMPT: `Type a Number between 0 and 99, 2 Decimal Digits`
.06	QUERY METHOD	0;6	SET	'Q' FOR QUERY; 'A' FOR AUTOMATIC; LAST EDITED: `JAN 07, 1996` NOTES: `TRIGGERED by the QUERY TAG field of the ER INPUT MAP File`
.07	V SUBFIELD	0;7	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>999999999.99999)!(X<0)!(X?.E1"."5N.N) X` LAST EDITED: `JAN 07, 1996` HELP-PROMPT: `Type a Number between 0 and 999999999.99999, 4 Decimal Digits`
.08	REPORT CATEGORY	0;8	POINTER TO ER CATEGORIES FILE (#9009082)	ER CATEGORIES(#9009082) LAST EDITED: `JAN 09, 1996` CROSS-REFERENCE: `9009082.3^AD` 1)= S ^AMER(2.3,"AD",$E(X,1,30),DA)="" 2)= K ^AMER(2.3,"AD",$E(X,1,30),DA)
.09	OUTPUT TRANSFORM	0;9	SET	'1' FOR DATE; '2' FOR ER OPTION; '3' FOR LOCATION; '4' FOR PATIENT; '5' FOR PERSON; '6' FOR YESNO; '7' FOR ICD DX; LAST EDITED: `JAN 11, 1996`
.11	NO LINE	0;11	SET	'1' FOR OMIT QUERY SEPARATOR LINE; '0' FOR PRINT QUERY SEPERATOR LINE; LAST EDITED: `JAN 12, 1996`
.12	OPTIONAL	0;12	SET	'1' FOR YES; '0' FOR NO; LAST EDITED: `FEB 06, 1996`
1	ATTRIBUTE		COMPUTED	MUMPS CODE: `N %,Z S %=^AMER(2.3,D0,0),Z=($P(%,U,2)=$C(65)),X=$P($G(^DD((9009080+Z),+$P(%,U,5-Z),0)),U)` ALGORITHM: `S X="HI MOM"`
2	PRINT HEADER	2;E1,245	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>240!($L(X)<1) X` LAST EDITED: `JAN 09, 1996` HELP-PROMPT: `Answer must be 1-240 characters in length.`

Info | Desc | Directly Accessed By Routines | Accessed By FileMan Db Calls | Pointer To FileMan Files | Fields | All