STANDARD DATA DICTIONARY #741.1 -- QA OCCURRENCE SCREEN CRITERIA FILE 9/29/25 PAGE 1
STORED IN ^QA(741.1, (14 ENTRIES) SITE: WWW.BMIRWIN.COM UCI: VISTA,VISTA (VERSION 3.0)
DATA NAME GLOBAL DATA
ELEMENT TITLE LOCATION TYPE
-----------------------------------------------------------------------------------------------------------------------------------
Contains the list of screens required by the Occurrence Screen circular, with their descriptions. This file arrives populated with
the standard screens. The site can add their own screens also.
DD ACCESS: @
DEL ACCESS: @
IDENTIFIED BY: SCREEN (#1)
POINTED TO BY: SCREEN field (#3) of the QA OCCURRENCE SCREEN File (#741)
SCREEN field (#2) of the QA OCCURRENCE CLINICAL REFERRAL File (#741.4)
SCREEN field (#1) of the QA OCCURRENCE EXCEPTION File (#741.5)
CROSS
REFERENCED BY: ASSOCIATED MONITOR(AM), CODE(B), CODE(BA), EXPANDED SCREEN(C)
741.1,.01 CODE 0;1 FREE TEXT (Required)
INPUT TRANSFORM: K:X[""""!($A(X)=45)!(X<(201-($D(QAQINST)#2*100))) X I $D(X) K:$L(X)>6!($L(X)<3)!((X'?3N)&(X'?3N1"."
1.2N))!(X'=+X) X S:$D(X) DINUM=X
LAST EDITED: JUL 08, 1993
HELP-PROMPT: Answer with a number from 201 to 999.99.
DESCRIPTION: VAMCs may enter their own screens (201 through 999.99), but may not change existing national
screens (101.1,102,107,109). Screens may not have any trailing zeros or decimal points.
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
CROSS-REFERENCE: 741.1^B
1)= S ^QA(741.1,"B",$E(X,1,30),DA)=""
2)= K ^QA(741.1,"B",$E(X,1,30),DA)
CROSS-REFERENCE: 741.1^BA^MUMPS
1)= S ^QA(741.1,"BA",X\1,DA)=""
2)= K ^QA(741.1,"BA",X\1,DA)
741.1,1 SCREEN 0;2 FREE TEXT
TEXT
INPUT TRANSFORM: K:+$L(X)>90!($L(X)<1) X
LAST EDITED: AUG 29, 1989
HELP-PROMPT: Answer must be 1-90 characters in length.
DESCRIPTION:
This is the short description of the screen.
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
741.1,2 EXPANDED SCREEN 0;3 FREE TEXT
EXPANDED TEXT
INPUT TRANSFORM: K:X[""""!($A(X)=45) X I $D(X) K:$L(X)>120!($L(X)<1) X
LAST EDITED: AUG 29, 1989
HELP-PROMPT: Answer must be 1-120 characters in length.
DESCRIPTION:
This is the long description of the screen.
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
CROSS-REFERENCE: 741.1^C
1)= S ^QA(741.1,"C",$E(X,1,30),DA)=""
2)= K ^QA(741.1,"C",$E(X,1,30),DA)
741.1,100 SCREEN STATUS 0;4 SET
'1' FOR INACTIVE;
'N' FOR NATIONAL;
'L' FOR LOCAL;
LAST EDITED: JUL 01, 1991
HELP-PROMPT: Enter the appropriate screen status.
DESCRIPTION: This field controls the auto enroll of the various screens. National and local screens will be
auto enrolled if possible. This field is also used by the semi-annual report, any combinations of
screen statuses may be included on the report.
SCREEN: S DIC("S")="I $S($P(^QA(741.1,D0,0),""^"",4)=""N"":0,Y=""N"":0,1:1)"
EXPLANATION: Nationally mandated screens may not be changed.
741.1,200 ASSOCIATED MONITOR 0;5 POINTER TO QA MONITOR FILE (#743)
LAST EDITED: MAR 02, 1992
HELP-PROMPT: Enter the monitor that is associated with this screen.
DESCRIPTION: This field is used to link the monitor and the screen for the purposes of the auto enroll
functions.
CROSS-REFERENCE: 741.1^AM
1)= S ^QA(741.1,"AM",$E(X,1,30),DA)=""
2)= K ^QA(741.1,"AM",$E(X,1,30),DA)
FILES POINTED TO FIELDS
QA MONITOR (#743) ASSOCIATED MONITOR (#200)
INPUT TEMPLATE(S):
PRINT TEMPLATE(S):
SORT TEMPLATE(S):
FORM(S)/BLOCK(S):