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 | Found Entries | All

Print Page as PDF

Global: ^AGTXMSG

Package: IHS Patient Registration

Global: ^AGTXMSG

Information

FileMan FileNo	FileMan Filename	Package
9009063.1	AG MESSAGE TRANSACTIONS	IHS Patient Registration

Description

Directly Accessed By Routines, Total: 2

Package	Total	Routines
IHS Patient Registration	1	AGHL7
Local Area Programs	1	AZAXDPM1

Accessed By FileMan Db Calls, Total: 1

Package	Total	Routines
IHS Patient Registration	1	AGHL7

Pointer To FileMan Files, Total: 1

Package	Total	FileMan Files
IHS Patient	1	PATIENT(#9000001)[.02]

Fields, Total: 8

Field #	Name	Loc	Type	Details
.01	DATE/TIME	0;1	DATE	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `S %DT="ESTX" D ^%DT S X=Y K:Y<1 X` LAST EDITED: `MAR 07, 2002` CROSS-REFERENCE: `9009063.1^B` 1)= S ^AGTXMSG("B",$E(X,1,30),DA)="" 2)= K ^AGTXMSG("B",$E(X,1,30),DA)
.02	PATIENT	0;2	POINTER TO PATIENT FILE (#9000001)	**********************REQUIRED FIELD********************** PATIENT(#9000001) LAST EDITED: `MAR 18, 2002` CROSS-REFERENCE: `9009063.1^C` 1)= S ^AGTXMSG("C",$E(X,1,30),DA)="" 2)= K ^AGTXMSG("C",$E(X,1,30),DA)
.03	CAUSE	0;3	SET	**********************REQUIRED FIELD********************** 'T' FOR TRIGGER; 'X' FOR REGULAR XPORT; 'R' FOR RE-XPORT; 'S' FOR USER SELECT; 'A' FOR ALL PATIENTS REGISTER; LAST EDITED: `MAR 15, 2002`
.04	MESSAGE SENT DATE/TIME	0;4	DATE	INPUT TRANSFORM: `S %DT="ESTX" D ^%DT S X=Y K:Y<1 X` LAST EDITED: `MAR 20, 2002` CROSS-REFERENCE: `9009063.1^D` 1)= S ^AGTXMSG("D",$E(X,1,30),DA)="" 2)= K ^AGTXMSG("D",$E(X,1,30),DA)
.05	ACK MESSAGE DATE/TIME	0;5	DATE	INPUT TRANSFORM: `S %DT="ESTX" D ^%DT S X=Y K:Y<1 X` LAST EDITED: `MAR 21, 2002` CROSS-REFERENCE: `9009063.1^E` 1)= S ^AGTXMSG("E",$E(X,1,30),DA)="" 2)= K ^AGTXMSG("E",$E(X,1,30),DA)
.06	MESSAGE STANDARD	0;6	SET	**********************REQUIRED FIELD********************** 'X' FOR X.12; 'H' FOR HL7; 'O' FOR OTHER; LAST EDITED: `MAR 18, 2002`
.07	MESSAGE TYPE	0;7	FREE TEXT	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `K:$L(X)>3!($L(X)<3) X` LAST EDITED: `MAR 18, 2002` HELP-PROMPT: `Answer must be 3 characters in length.`
.08	INHF VALUE MESSAGE ID	0;8	NUMBER	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `K:+X'=X!(X>999999999999999)!(X<1)!(X?.E1"."1N.N) X` LAST EDITED: `MAR 19, 2002` HELP-PROMPT: `Type a Number between 1 and 999999999999999, 0 Decimal Digits`

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