Global: ^QA(741.7

Information

FileMan FileNo	FileMan Filename	Package
741.7	QA OCCURRENCE ACTION	Occurrence Screen

Contains a list of standardized actions to be taken as a result of the review findings. This file arrives populated.

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

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)`

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)

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

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)