Home Package List Routine Alphabetical List Global Alphabetical List FileMan Files List FileMan Sub-Files List Package Component Lists Package-Namespace Mapping

Info | Desc | Accessed By FileMan Db Calls | Pointed To By FileMan Files | Pointer To FileMan Files | Fields | ICR | Found Entries | All

Print Page as PDF

Global: ^QA(741.1

Package: Occurrence Screen

Global: ^QA(741.1

Information

FileMan FileNo	FileMan Filename	Package
741.1	QA OCCURRENCE SCREEN CRITERIA	Occurrence Screen

Description

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.

Accessed By FileMan Db Calls, Total: 4

Package	Total	Routines
Occurrence Screen	3	QAOSCREE QAOSENTR QAOSERCR
Interim Management Support	1	ECTQSCR

Pointed To By FileMan Files, Total: 3

Package	Total	FileMan Files
Occurrence Screen	3	QA OCCURRENCE SCREEN(#741)[3] QA OCCURRENCE CLINICAL REFERRAL(#741.4)[2] QA OCCURRENCE EXCEPTION(#741.5)[1]

Pointer To FileMan Files, Total: 1

Package	Total	FileMan Files
Clinical Monitoring System	1	QA MONITOR(#743)[200]

Fields, Total: 5

Field #	Name	Loc	Type	Details
.01	CODE	0;1	FREE TEXT	**********************REQUIRED FIELD********************** 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)`
1	SCREEN	0;2	FREE 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`
2	EXPANDED SCREEN	0;3	FREE 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)`
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.`
200	ASSOCIATED MONITOR	0;5	POINTER TO QA MONITOR FILE (#743)	QA MONITOR(#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)`

Found Entries, Total: 14

CODE: 101	CODE: 101.1	CODE: 102	CODE: 103	CODE: 104.1	CODE: 104.2	CODE: 105.1	CODE: 105.2
CODE: 106.1	CODE: 106.2	CODE: 107	CODE: 108	CODE: 109	CODE: 199

ICR, Total: 1

ICR LINK	Subscribing Package(s)	Fields Referenced	Description
ICR #621	QUALITY IMPROVEMENT CHECKLIST

Info | Desc | Accessed By FileMan Db Calls | Pointed To By FileMan Files | Pointer To FileMan Files | Fields | ICR | Found Entries | All