Global: ^QA(741.4

FileMan FileNo	FileMan Filename	Package
741.4	QA OCCURRENCE CLINICAL REFERRAL	Occurrence Screen

FileMan FileNo

FileMan Filename

Package

741.4

QA OCCURRENCE CLINICAL REFERRAL

Package	Total	Routines
Occurrence Screen	3	QAOSCNV8 QAOSCREE QAOSERCR

Package	Total	FileMan Files
Occurrence Screen	1	QA OCCURRENCE SCREEN(#741)[#741.01(3)]

Package	Total	FileMan Files
Occurrence Screen	1	QA OCCURRENCE SCREEN CRITERIA(#741.1)[2]

Field #	Name	Loc	Type	Details
.01	REASON (SCREEN CODE)	0;1	FREE TEXT	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `K:X[""""!($A(X)=45) X I $D(X) K:$L(X)>3!($L(X)<1)!(X'?1.2N.1U) X` LAST EDITED: `FEB 02, 1990` HELP-PROMPT: `Answer must be 1-3 characters in length.` DESCRIPTION: `This is a short code used to identify the reason for clinical referral. It must be one to two digits and it may be followed by one upper case letter, e.g., 4, 12, 1B, 23X, etc.` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER` CROSS-REFERENCE: `741.4^B` `1)= S ^QA(741.4,"B",$E(X,1,30),DA)=""` `2)= K ^QA(741.4,"B",$E(X,1,30),DA)` CROSS-REFERENCE: `741.4^AC1^MUMPS` `1)= S QA=$S($D(^QA(741.4,DA,1))#2:$P(^(1),"^",2),1:"") S:QA]"" ^QA(741.4,"AC",QA,+X+($A(X,$L(X))/100),DA)="" K QA` `2)= S QA=$S($D(^QA(741.4,DA,1))#2:$P(^(1),"^",2),1:"") K:QA]"" ^QA(741.4,"AC",QA,+X+($A(X,$L(X))/100),DA) K QA`
1	REASON - EXPANDED	1;1	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>225!($L(X)<1) X` LAST EDITED: `FEB 02, 1990` HELP-PROMPT: `Answer must be 1-225 characters in length.` DESCRIPTION: `This is the long version of the reason for clinical referral.`
2	SCREEN	1;2	POINTER TO QA OCCURRENCE SCREEN CRITERIA FILE (#741.1)	QA OCCURRENCE SCREEN CRITERIA(#741.1) LAST EDITED: `FEB 02, 1990` DESCRIPTION: `This is the screen that this reason for clinical referral is associated with.` CROSS-REFERENCE: `741.4^AC^MUMPS` `1)= S QA=$P(^QA(741.4,DA,0),"^"),^QA(741.4,"AC",X,+QA+($A(QA,$L(QA))/100),DA)="" K QA` `2)= S QA=$P(^QA(741.4,DA,0),"^") K ^QA(741.4,"AC",X,+QA+($A(QA,$L(QA))/100),DA),QA`
3	REASON - SHORT	2;1	FREE TEXT	INPUT TRANSFORM: `K:X[""""!($A(X)=45) X I $D(X) K:$L(X)>111!($L(X)<1) X` LAST EDITED: `FEB 02, 1990` HELP-PROMPT: `Answer must be 1-111 characters in length.` DESCRIPTION: `This is the shortened version of the reason for clinical referral.` CROSS-REFERENCE: `741.4^C` `1)= S ^QA(741.4,"C",$E(X,1,30),DA)=""` `2)= K ^QA(741.4,"C",$E(X,1,30),DA)`

Entry: 1	Entry: 2	Entry: 3	Entry: 4	Entry: 5	Entry: 6	Entry: 7	Entry: 8
Entry: 9	REASON (SCREEN CODE): 1A	REASON (SCREEN CODE): 1B	REASON (SCREEN CODE): 1C	REASON (SCREEN CODE): 1D	REASON (SCREEN CODE): 1E	REASON (SCREEN CODE): 1I	REASON (SCREEN CODE): 1G
REASON (SCREEN CODE): 1H	REASON (SCREEN CODE): 1J	Entry: 19	Entry: 20	Entry: 21	Entry: 22	Entry: 23	Entry: 24
Entry: 25	Entry: 26	Entry: 27	Entry: 28	Entry: 29	Entry: 30	REASON (SCREEN CODE): 10A	REASON (SCREEN CODE): 10B
REASON (SCREEN CODE): 10C	REASON (SCREEN CODE): 10D	REASON (SCREEN CODE): 10E	REASON (SCREEN CODE): 10F	Entry: 37	Entry: 38	Entry: 39	Entry: 40
Entry: 41	Entry: 42	Entry: 43	REASON (SCREEN CODE): 7A	REASON (SCREEN CODE): 7B	REASON (SCREEN CODE): 7C	REASON (SCREEN CODE): 7D	REASON (SCREEN CODE): 7E
Entry: 49	Entry: 50	Entry: 51	Entry: 52	Entry: 53	Entry: 54	Entry: 55	REASON (SCREEN CODE): 7A
REASON (SCREEN CODE): 7B	REASON (SCREEN CODE): 7C	REASON (SCREEN CODE): 7D	REASON (SCREEN CODE): 7E	Entry: 61	Entry: 62	Entry: 63	Entry: 64
Entry: 65	Entry: 66	Entry: 67	Entry: 68	Entry: 69	Entry: 70	Entry: 71	Entry: 72
Entry: 73	Entry: 74	Entry: 75	Entry: 76	Entry: 77	Entry: 78	Entry: 79	Entry: 80
Entry: 81	Entry: 82	Entry: 83	Entry: 84	Entry: 86	Entry: 87	Entry: 88	Entry: 89
Entry: 90	Entry: 91	Entry: 92	Entry: 93	Entry: 94	Entry: 95	Entry: 96	Entry: 97
Entry: 98	Entry: 99	Entry: 100	Entry: 101	Entry: 102	Entry: 103	Entry: 104	Entry: 105
Entry: 106	Entry: 107	Entry: 108	Entry: 109	Entry: 110	Entry: 111	Entry: 112	Entry: 113
Entry: 114	Entry: 115	Entry: 116	Entry: 117	Entry: 118	Entry: 119	Entry: 120	Entry: 121
REASON (SCREEN CODE): 7A	REASON (SCREEN CODE): 7B	REASON (SCREEN CODE): 7C	REASON (SCREEN CODE): 7D	REASON (SCREEN CODE): 7E	Entry: 127	Entry: 128	Entry: 129
Entry: 130	Entry: 131	Entry: 132	Entry: 133	Entry: 134	REASON (SCREEN CODE): 7A	REASON (SCREEN CODE): 7B	REASON (SCREEN CODE): 7C
REASON (SCREEN CODE): 7D	REASON (SCREEN CODE): 7E	Entry: 140	Entry: 141	Entry: 142	Entry: 143	Entry: 144	Entry: 145
Entry: 146	Entry: 147	Entry: 148	Entry: 149	Entry: 150	Entry: 151	Entry: 152	REASON (SCREEN CODE): 1K
REASON (SCREEN CODE): 1F	Entry: 155	Entry: 156

Customize PDF page

Package: Occurrence Screen

Global: ^QA(741.4

Information

Description

Accessed By FileMan Db Calls, Total: 3

Pointed To By FileMan Files, Total: 1

Pointer To FileMan Files, Total: 1

Fields, Total: 4

Found Entries, Total: 155