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: ^VAT(408

Package: Registration

Global: ^VAT(408

Information

FileMan FileNo	FileMan Filename	Package
408	DISCRETIONARY WORKLOAD	Registration

Description

This file holds the discretionary workload reports.

Directly Accessed By Routines, Total: 2

Accessed By FileMan Db Calls, Total: 2

Pointer To FileMan Files, Total: 2

Fields, Total: 15

Field #	Name	Loc	Type	Details
.01	RUN DATE	0;1	DATE	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `S %DT="ESTXR" D ^%DT S X=Y K:Y<1 X S DINUM=X` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER` CROSS-REFERENCE: `408^B` 1)= S ^VAT(408,"B",$E(X,1,30),DA)="" 2)= K ^VAT(408,"B",$E(X,1,30),DA)
1	REPORT MONTH/YR	0;2	DATE	INPUT TRANSFORM: `S %DT="E" D ^%DT S X=Y K:Y<1 X` CROSS-REFERENCE: `408^C` 1)= S ^VAT(408,"C",$E(X,1,30),DA)="" 2)= K ^VAT(408,"C",$E(X,1,30),DA)
1.5	REPORT RANGE	0;10	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>15!($L(X)<1) X` LAST EDITED: `JUL 10, 1989` HELP-PROMPT: `ANSWER MUST BE 1-15 CHARACTERS IN LENGTH` DESCRIPTION: This field is not used by Medical Centers, it only applies to the Q-DWL collection queue.
2	SITE CODE	0;3	FREE TEXT	INPUT TRANSFORM: `K:X[""""!($A(X)=45) X I $D(X) K:$L(X)>15!($L(X)<3) X` HELP-PROMPT: `Answer must be 3-15 characters in length.` CROSS-REFERENCE: `408^AC` 1)= S ^VAT(408,"AC",$E(X,1,30),DA)="" 2)= K ^VAT(408,"AC",$E(X,1,30),DA)
3	INSTITUTION	0;4	POINTER TO INSTITUTION FILE (#4)	INSTITUTION(#4)
4	REPORT TYPE	0;5	SET	'1' FOR OPC VISITS; '2' FOR DISCHARGES; '3' FOR OPC RESEARCH; '4' FOR OPC 10/10 VISITS; CROSS-REFERENCE: `408^AE^MUMPS` 1)= S ^VAT(408,"AE",$P(^VAT(408,DA,0),U,2),$P(^(0),U,3),$E(X,1,30),DA)="" 2)= K ^VAT(408,"AE",$P(^VAT(408,DA,0),U,2),$P(^(0),U,3),$E(X,1,30),DA)
5	*TRANSMISSION	0;6	SET	'0' FOR NO; '1' FOR YES; CROSS-REFERENCE: `408^AD` 1)= S ^VAT(408,"AD",$E(X,1,30),DA)="" 2)= K ^VAT(408,"AD",$E(X,1,30),DA)
6	ELAPSED TIME	0;7	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>15!($L(X)<3) X` HELP-PROMPT: `Answer must be 3-15 characters in length.`
7	MESSAGE DATE	0;8	DATE	INPUT TRANSFORM: `S %DT="ESTX" D ^%DT S X=Y K:Y<1 X`
7.5	MESSAGE ID	2;1	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>100000000)!(X<0)!(X?.E1"."1N.N) X` LAST EDITED: `JUL 10, 1989` HELP-PROMPT: `Type a Number between 0 and 100000000, 0 Decimal Digits` DESCRIPTION: This field is not used by Medical Centers, it only applies to the Q-DWL collection queue.
7.7	REMOTE MESSAGE ID	2;2	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>45!($L(X)<2) X` LAST EDITED: `JUL 10, 1989` HELP-PROMPT: `ANSWER MUST BE 2-45 CHARACTERS IN LENGTH` DESCRIPTION: This field is not used by Medical Centers, it only applies to the Q-DWL collection queue.
8	ELIGIBILITY	1;0	SET Multiple #408.08	408.08
9	PTS REMAINING	0;9	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>9999999)!(X<0)!(X?.E1"."1N.N) X` HELP-PROMPT: `Type a Number between 0 and 9999999, 0 Decimal Digits`
10	DUZ	2;3	POINTER TO NEW PERSON FILE (#200)	NEW PERSON(#200) LAST EDITED: `OCT 06, 1990` DESCRIPTION: This field is not used by Medical Centers, it only applies to the Q-DWL collection queue.
11	COMPLETED?	2;4	SET	'0' FOR PENDING; '1' FOR COMPLETE; '2' FOR NEW; LAST EDITED: `JUL 10, 1989` DESCRIPTION: This field is not used by Medical Centers, it only applies to the Q-DWL collection queue.

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