Global: ^QA(741.7

FileMan FileNo	FileMan Filename	Package
741.7	QA OCCURRENCE ACTION	Occurrence Screen

Directly Accessed By Routines, Total: 14

Package	Total	Routines
Occurrence Screen	14	QAOEDT0 QAOEDT1 QAOSDDUT QAOSPCL1 QAOSPDQ0 QAOSPMG0 QAOSPPR0 QAOSPRS0 QAOSPRS1 QAOSPSM0 ^QA(741.7 QAOSPTR0 ^QA(741.99 QAOSPRS2

Pointed To By FileMan Files, Total: 1

Package	Total	FileMan Files
Occurrence Screen	1	QA OCCURRENCE SCREEN(#741)[#741.15(.01)]

Fields, Total: 3

Field # Name Loc Type Details

Field #	Name	Loc	Type	Details
.01	CODE	0;1	NUMBER	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `K:+X'=X!(X>22)!(X<1)!(X?.E1"."2N.N) X` LAST EDITED: `MAY 02, 1991` HELP-PROMPT: `Type a Number between 1 and 22, 1 Decimal Digit` DESCRIPTION: `This field contains the code number associated with the action.` `UNEDITABLE` CROSS-REFERENCE: `741.7^B` `1)= S ^QA(741.7,"B",$E(X,1,30),DA)=""` `2)= K ^QA(741.7,"B",$E(X,1,30),DA)`
1	TYPE	0;2	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>3!($L(X)<1) X D:$D(X)#2 EN1^QAOSDDUT("123")` LAST EDITED: `OCT 20, 1992` HELP-PROMPT: `Enter 1 for Clinical Reviewer, 2 for Peer Reviewer, 3 for Management Reviewer, or a combination of these codes.` DESCRIPTION: `This field defines which review levels may choose which actions. Valid entries for this field are: 1 (Clinical review), 2 (Peer review), 3 (Management review). This field may contain any non-repeating combination of` `these codes.` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER`
2	ACTION	0;3	FREE TEXT	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `K:X[""""!($A(X)=45) X I $D(X) K:$L(X)>100!($L(X)<1) X` LAST EDITED: `JUN 16, 1989` HELP-PROMPT: `Answer must be 1-100 characters in length.` DESCRIPTION: `This field contains the text of the action.` `UNEDITABLE` CROSS-REFERENCE: `741.7^C` `1)= S ^QA(741.7,"C",$E(X,1,30),DA)=""` `2)= K ^QA(741.7,"C",$E(X,1,30),DA)`

.01

CODE

0;1

NUMBER

************************REQUIRED FIELD************************

INPUT TRANSFORM: K:+X'=X!(X>22)!(X<1)!(X?.E1"."2N.N) X
LAST EDITED: MAY 02, 1991
HELP-PROMPT: Type a Number between 1 and 22, 1 Decimal Digit
DESCRIPTION:
This field contains the code number associated with the action.
UNEDITABLE
CROSS-REFERENCE: 741.7^B
1)= S ^QA(741.7,"B",$E(X,1,30),DA)=""
2)= K ^QA(741.7,"B",$E(X,1,30),DA)

1

TYPE

0;2

FREE TEXT

INPUT TRANSFORM: K:$L(X)>3!($L(X)<1) X D:$D(X)#2 EN1^QAOSDDUT("123")
LAST EDITED: OCT 20, 1992
HELP-PROMPT: Enter 1 for Clinical Reviewer, 2 for Peer Reviewer, 3 for Management Reviewer, or a combination of these codes.
DESCRIPTION: This field defines which review levels may choose which actions. Valid entries for this field are: 1 (Clinical review), 2 (Peer review), 3 (Management review). This field may contain any non-repeating combination of
these codes.
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER

2

ACTION

0;3

FREE TEXT

************************REQUIRED FIELD************************

INPUT TRANSFORM: K:X[""""!($A(X)=45) X I $D(X) K:$L(X)>100!($L(X)<1) X
LAST EDITED: JUN 16, 1989
HELP-PROMPT: Answer must be 1-100 characters in length.
DESCRIPTION:
This field contains the text of the action.
UNEDITABLE
CROSS-REFERENCE: 741.7^C
1)= S ^QA(741.7,"C",$E(X,1,30),DA)=""
2)= K ^QA(741.7,"C",$E(X,1,30),DA)

Found Entries, Total: 23

CODE: 1	CODE: 2	CODE: 3	CODE: 4	CODE: 5	CODE: 6	CODE: 7	CODE: 8
CODE: 9	CODE: 10	CODE: 11	CODE: 12	CODE: 13	CODE: 16	CODE: 17	CODE: 18
CODE: 19	CODE: 20	CODE: 21	CODE: 22	CODE: 1.1	CODE: 14	CODE: 15

External References

Name	Field # of Occurrence
EN1^QAOSDDUT	1+1

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^QA(741.7 - [#741.7]	.01(XREF 1S), .01(XREF 1K), 2(XREF 1S), 2(XREF 1K)

Naked Globals

Name	Field # of Occurrence
^(0	ID2+1

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> DA	.01(XREF 1S), .01(XREF 1K), 2(XREF 1S), 2(XREF 1K)
U	ID2+1
X	.01+1!, .01(XREF 1S), .01(XREF 1K), 1+1!, 2+1!, 2(XREF 1S), 2(XREF 1K)

Customize PDF page

Package: Occurrence Screen