Global: ^QA(741.99

FileMan FileNo	FileMan Filename	Package
741.99	QA OCCURRENCE AUTO RUN DATES	Occurrence Screen

Package	Total	Routines
Occurrence Screen	3	^QA(741.99 QAOSPAU0 QAOSPURG

Package	Total	Routines
Occurrence Screen	2	QAOSPURG QAOSSFR0

Fields, Total: 16

Field #	Name	Loc	Type	Details
.01	AUTO ENROLL RUN DATE	0;1	DATE	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `S %DT="EST" D ^%DT S X=Y K:Y<1 X` LAST EDITED: `FEB 08, 1993` HELP-PROMPT: `This field contains the date auto enroll ran.` DESCRIPTION: `This field contains the date that auto enroll ran.` CROSS-REFERENCE: `741.99^B` `1)= S ^QA(741.99,"B",$E(X,1,30),DA)=""` `2)= K ^QA(741.99,"B",$E(X,1,30),DA)`
1	*TOTAL 101	0;2	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>9999)!(X<0)!(X?.E1"."1N.N) X` LAST EDITED: `JUL 01, 1991` HELP-PROMPT: `Type a Number between 0 and 9999, 0 Decimal Digits` DESCRIPTION: `This field contains the total number of screen 101 records auto enrolled.`
1.1	TOTAL 101.1	0;14	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>9999)!(X<0)!(X?.E1"."1N.N) X` LAST EDITED: `JUL 01, 1991` HELP-PROMPT: `Type a Number between 0 and 9999, 0 Decimal Digits` DESCRIPTION: `This field contains the total number of screen 101.1 records auto enrolled.`
2	TOTAL 102	0;3	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>9999)!(X<0)!(X?.E1"."1N.N) X` HELP-PROMPT: `Type a Number between 0 and 9999, 0 Decimal Digits` DESCRIPTION: `This field contains the total number of screen 102 records auto enrolled.`
3	*TOTAL 103	0;4	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>9999)!(X<0)!(X?.E1"."1N.N) X` LAST EDITED: `JUN 18, 1991` HELP-PROMPT: `Type a Number between 0 and 9999, 0 Decimal Digits` DESCRIPTION: `This field contains the total number of screen 103 records auto enrolled.`
4.1	*TOTAL 104.1	0;5	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>9999)!(X<0)!(X?.E1"."1N.N) X` LAST EDITED: `JUN 18, 1991` HELP-PROMPT: `Type a Number between 0 and 9999, 0 Decimal Digits` DESCRIPTION: `This field contains the total number of screen 104.1 records auto enrolled.`
4.2	*TOTAL 104.2	0;6	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>9999)!(X<0)!(X?.E1"."1N.N) X` LAST EDITED: `JUN 18, 1991` HELP-PROMPT: `Type a Number between 0 and 9999, 0 Decimal Digits` DESCRIPTION: `This field contains the total number of screen 104.2 records auto enrolled.`
5.1	*TOTAL 105.1	0;7	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>9999)!(X<0)!(X?.E1"."1N.N) X` LAST EDITED: `JUN 18, 1991` HELP-PROMPT: `Type a Number between 0 and 9999, 0 Decimal Digits` DESCRIPTION: `This field contains the total number of screen 105.1 records auto enrolled.`
5.2	*TOTAL 105.2	0;8	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>9999)!(X<0)!(X?.E1"."1N.N) X` LAST EDITED: `JUN 18, 1991` HELP-PROMPT: `Type a Number between 0 and 9999, 0 Decimal Digits` DESCRIPTION: `This field contains the total number of screen 105.2 records auto enrolled.`
6.1	TOTAL 106.1	0;9	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>9999)!(X<0)!(X?.E1"."1N.N) X` HELP-PROMPT: `Type a Number between 0 and 9999, 0 Decimal Digits` DESCRIPTION: `This field contains the total number of screen 106.1 records auto enrolled.`
6.2	*TOTAL 106.2	0;10	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>9999)!(X<0)!(X?.E1"."1N.N) X` LAST EDITED: `JUN 18, 1991` HELP-PROMPT: `Type a Number between 0 and 9999, 0 Decimal Digits` DESCRIPTION: `This field contains the total number of screen 106.2 records auto enrolled.`
7	TOTAL 107	0;11	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>9999)!(X<0)!(X?.E1"."1N.N) X` HELP-PROMPT: `Type a Number between 0 and 9999, 0 Decimal Digits` DESCRIPTION: `This field contains the total number of screen 107 records auto enrolled.`
8	TOTAL 108	0;12	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>9999)!(X<0)!(X?.E1"."1N.N) X` HELP-PROMPT: `Type a Number between 0 and 9999, 0 Decimal Digits` DESCRIPTION: `This field contains the total number of screen 108 records auto enrolled.`
9	TOTAL 109	0;13	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>9999)!(X<0)!(X?.E1"."1N.N) X` HELP-PROMPT: `Type a Number between 0 and 9999, 0 Decimal Digits` DESCRIPTION: `This field contains the total number of screen 109 records auto enrolled.`
10	TOTAL PATIENTS AUTO ENROLLED		COMPUTED	MUMPS CODE: `X ^DD(741.99,10,9.3) S X=X+$P(Y(741.99,10,1),U,12)+$P(Y(741.99,10,1),U,13)+$P(Y(741.99,10,1),U,15) S X=$J(X,0,0)` `9.2 = S Y(741.99,10,1)=$S($D(^QA(741.99,D0,0)):^(0),1:"") S X=$P(Y(741.99,10,1),U,2)+$P(Y(741.99,10,1),U,14)+$P(Y(741.99,10,1),U,3)+$P(Y(741.99,10,1),U,4)+$P(Y(741.99,10,1),U,5)` `9.3 = X ^DD(741.99,10,9.2) S X=X+$P(Y(741.99,10,1),U,6)+$P(Y(741.99,10,1),U,7)+$P(Y(741.99,10,1),U,8)+$P(Y(741.99,10,1),U,9)+$P(Y(741.99,10,1),U,10)+$P(Y(741.99,10,1),U,11)` ALGORITHM: `#1+#1.1+#2+#3+#4.1+#4.2+#5.1+#5.2+#6.1+#6.2+#7+#8+#9+#99 (ALWAYS 0 DECIMAL DIGITS)` DESCRIPTION: `This field computes the sum of all the 'TOTAL #' fields in the file.`
99	TOTAL 199	0;15	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>9999)!(X<0)!(X?.E1"."1N.N) X` LAST EDITED: `AUG 12, 1992` HELP-PROMPT: `Type a Number between 0 and 9999, 0 Decimal Digits` DESCRIPTION: `This field contains the total number of screen 199 records auto enrolled.`

Name	Line Occurrences (* Changed, ! Killed)
^DD(741.1	\|dd741.4, \|dd741.5
^DD(741.99	10+1, 10OF9.3+1, \|dd741.99
^DPT - [#2]	\|sort
^QA(741 - [#741]	\|sort
^QA(741.1 - [#741.1]	\|dd741.1*!, \|dd741.4, \|dd741.5, \|sort
^QA(741.2 - [#741.2]	\|dd741.2*!
^QA(741.3 - [#741.3]	\|dd741.3*!
^QA(741.4 - [#741.4]	\|dd741.4*!
^QA(741.5 - [#741.5]	\|dd741.5*!
^QA(741.6 - [#741.6]	\|dd741.6*!
^QA(741.7 - [#741.7]	\|dd741.7*!
^QA(741.8 - [#741.8]	\|dd741.8*!
^QA(741.9 - [#741.9]	\|dd741.9*!
^QA(741.93 - [#741.93]	\|dd741.93*!
^QA(741.95 - [#741.95]	\|dd741.95*!
^QA(741.97 - [#741.97]	\|dd741.97*!
^QA(741.99 - [#741.99]	.01(XREF 1S), .01(XREF 1K), 10OF9.2+1, \|dd741.99*!

Name	Field # of Occurrence
^("SCRN"	\|sort
^(0	10OF9.2+1, \|dd741.1, \|dd741.2, \|dd741.4, \|dd741.5, \|dd741.6, \|dd741.7, \|dd741.8, \|dd741.95, \|dd741.97 , \|dd741.99, \|sort
^(1	\|dd741.4
^(2	\|dd741.4

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %DT	.01+1, \|dd741.95, \|dd741.99*
>> %DT(0	\|dd741.95*!
%H	\|opt!
%I	\|dd741.4!, \|dd741.5!
%W	\|opt!
%X	\|opt!
%Y	\|opt!
C	\|dd741.4, \|dd741.5, \|opt!
>> D0	10OF9.2+1, \|dd741.99, \|sort
>> DA	.01(XREF 1S), .01(XREF 1K), \|dd741.1, \|dd741.2, \|dd741.3, \|dd741.4, \|dd741.5, \|dd741.6, \|dd741.7, \|dd741.8 , \|dd741.9, \|dd741.93, \|dd741.95, \|dd741.97, \|dd741.99
DI	\|opt!
>> DIC	\|dd741.4, \|dd741.5, \|dd741.9
>> DIC("S"	\|dd741.1*
DIDEL	\|opt*!
>> DINUM	\|dd741.1*
DLAYGO	\|opt*!
DQ	\|opt!
QA	\|dd741.4*!, \|dd741.95!
QA(1	\|dd741.95*
QA(2	\|dd741.95*
>> QAQINST	\|dd741.1
U	10+1, 10OF9.2+1, 10OF9.3+1, \|dd741.1, \|dd741.2, \|dd741.4, \|dd741.5, \|dd741.6, \|dd741.7, \|dd741.8 , \|dd741.95, \|dd741.97, \|dd741.99, \|sort
V	\|opt!
W	\|opt!
X	.01+1!, .01(XREF 1S), .01(XREF 1K), 1+1!, 1.1+1!, 2+1!, 3+1!, 4.1+1!, 4.2+1!, 5.1+1! , 5.2+1!, 6.1+1!, 6.2+1!, 7+1!, 8+1!, 9+1!, 10+1, 10OF9.2+1, 10OF9.3+1, 99+1! , \|dd741.1!, \|dd741.2!, \|dd741.3, \|dd741.4!, \|dd741.5!, \|dd741.6!, \|dd741.7!, \|dd741.8!, \|dd741.9, \|dd741.93! , \|dd741.95!, \|dd741.97!, \|dd741.99!, \|opt!, \|sort*
X(1	\|sort*
X(3	\|sort*
>> Y	.01+1, \|dd741.4, \|dd741.5, \|dd741.95, \|dd741.99, \|opt!
>> Y(	10+1, 10OF9.2+1, 10OF9.3+1, \|dd741.99
Y(1	\|sort*
Z	\|opt!

Customize PDF page

Package: Occurrence Screen

Global: ^QA(741.99

Information

Description

Directly Accessed By Routines, Total: 4

Accessed By FileMan Db Calls, Total: 2

Fields, Total: 16

External References

Global Variables Directly Accessed

Naked Globals

Local Variables

Legend: