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

Pointed To By FileMan Files, Total: 3

Pointer To FileMan Files, Total: 1

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

ICR, Total: 1

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