Global: ^QA(745.4

Information

FileMan FileNo	FileMan Filename	Package
745.4	CONGRESSIONAL OFFICE	Patient Representative

Description

This file contains names of congressional offices or persons that made contact with the site concerning patient issues. Data is not exported with the file. Data in this file is only used for contacts that are congressional in nature.

Directly Accessed By Routines, Total: 5

Package	Total	Routines
Patient Representative	4	QACI2A ^QA(745.4 QACI20 QACNGRSS

Accessed By FileMan Db Calls, Total: 1

Package	Total	Routines
Patient Representative	1	QACNGRSS

Pointed To By FileMan Files, Total: 1

Package	Total	FileMan Files
Patient Representative	1	CONSUMER CONTACT(#745.1)[29]

Fields, Total: 2

Field # Name Loc Type Details

Field #	Name	Loc	Type	Details
.01	OFFICE/NAME	0;1	FREE TEXT	INPUT TRANSFORM: `K:X[""""!($A(X)=45) X I $D(X) K:$L(X)>60!($L(X)<3)!'(X'?1P.E) X` LAST EDITED: `DEC 01, 1994` HELP-PROMPT: `In 3-60 characters, enter the office or person who made the congressional contact.` DESCRIPTION: `This is the name of the congressional office or person that made the contact.` CROSS-REFERENCE: `745.4^B` `1)= S ^QA(745.4,"B",$E(X,1,30),DA)=""` `2)= K ^QA(745.4,"B",$E(X,1,30),DA)` CROSS-REFERENCE: `745.4^BU^MUMPS` `1)= S ^QA(745.4,"BU",$E($$UP^XLFSTR(X),1,60),DA)=""` `2)= K ^QA(745.4,"BU",$E($$UP^XLFSTR(X),1,60),DA)` `Uppercase cross-reference on the congressional office/name.`
1	INACTIVE	0;2	SET	'1' FOR YES; '0' FOR NO; LAST EDITED: `NOV 30, 1994` HELP-PROMPT: `Enter "Y"es or 1 if this congressional office or name is Inactive.` DESCRIPTION: `This field contains a "1" if this congressional office or name is no longer active.`

.01

OFFICE/NAME

0;1

FREE TEXT

INPUT TRANSFORM: K:X[""""!($A(X)=45) X I $D(X) K:$L(X)>60!($L(X)<3)!'(X'?1P.E) X
LAST EDITED: DEC 01, 1994
HELP-PROMPT: In 3-60 characters, enter the office or person who made the congressional contact.
DESCRIPTION:
This is the name of the congressional office or person that made the contact.
CROSS-REFERENCE: 745.4^B
1)= S ^QA(745.4,"B",$E(X,1,30),DA)=""
2)= K ^QA(745.4,"B",$E(X,1,30),DA)
CROSS-REFERENCE: 745.4^BU^MUMPS
1)= S ^QA(745.4,"BU",$E($$UP^XLFSTR(X),1,60),DA)=""
2)= K ^QA(745.4,"BU",$E($$UP^XLFSTR(X),1,60),DA)
Uppercase cross-reference on the congressional office/name.

INACTIVE

0;2

SET

'1' FOR YES;
'0' FOR NO;

LAST EDITED: NOV 30, 1994
HELP-PROMPT: Enter "Y"es or 1 if this congressional office or name is Inactive.
DESCRIPTION:
This field contains a "1" if this congressional office or name is no longer active.

External References

Name	Field # of Occurrence
$$UP^XLFSTR	.01(XREF 2S), .01(XREF 2K)

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DD(	\|dd745.1, \|dd745.1213, \|dd745.2
^DD(2	\|dd745.1
^DD(745.1	\|dd745.1
^DD(745.1213	\|dd745.1213
^DD(745.2	\|dd745.2
^DD(745.3	\|dd745.2
^DIC(49 - [#49]	\|sort
^DPT - [#2]	\|dd745.1
^QA(740 - [#740]	\|dd745.1, \|dd745.128
^QA(745.1 - [#745.1]	\|dd745.1!, \|dd745.1!, \|dd745.11!, \|dd745.115!, \|dd745.117!, \|dd745.118!, \|dd745.121!, \|dd745.1211!, \|dd745.1212!, \|dd745.1213! , \|dd745.124!, \|dd745.128!, \|inpt, \|prnt, \|sort
^QA(745.2 - [#745.2]	\|dd745.2*!, \|prnt
^QA(745.3 - [#745.3]	\|dd745.2, \|dd745.3*!
^QA(745.4 - [#745.4]	.01(XREF 1S), .01(XREF 1K), .01(XREF 2S), .01(XREF 2K), \|dd745.4*!
^QA(745.55 - [#745.55]	\|dd745.1213, \|sort
^XUSEC("QAC CONTACT"	\|dd745.1
^XUSEC("QAC EDIT"	\|inpt

Naked Globals

Name	Field # of Occurrence
^(0	\|dd745.1, \|dd745.1213, \|dd745.2*, \|sort
^(2	\|dd745.1
^(7	\|dd745.1*

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%	\|dd745.2~
>> %DT	\|dd745.1, \|dd745.2
>> %DT(0	\|dd745.1*!
%H	\|dd745.2~
%I	\|dd745.1!, \|dd745.2~
>> C	\|dd745.1, \|dd745.2
D	\|dd745.1*~
>> D0	\|dd745.1, \|dd745.1213, \|dd745.2, \|prnt, \|sort
>> D1	\|dd745.1213, \|prnt, \|sort
>> D2	\|dd745.1213, \|sort
>> DA	.01(XREF 1S), .01(XREF 1K), .01(XREF 2S), .01(XREF 2K), \|dd745.1, \|dd745.11, \|dd745.115, \|dd745.117, \|dd745.118, \|dd745.121 , \|dd745.1211, \|dd745.1212, \|dd745.1213, \|dd745.124, \|dd745.128, \|dd745.2, \|dd745.3, \|dd745.4, \|inpt
>> DA(1	\|dd745.11, \|dd745.115, \|dd745.117, \|dd745.118, \|dd745.121, \|dd745.1211, \|dd745.1212, \|dd745.1213, \|dd745.124, \|dd745.128
>> DA(2	\|dd745.1211, \|dd745.1212, \|dd745.1213
DIC	\|dd745.1!, \|dd745.121!, \|dd745.2*!
DIC("S"	\|dd745.1, \|dd745.121, \|dd745.2*
DIC(0	\|dd745.1*
>> DIE	\|dd745.1, \|dd745.121, \|dd745.2
>> DIG	\|dd745.1, \|dd745.1213, \|dd745.2*
>> DIH	\|dd745.1, \|dd745.1213, \|dd745.2*
>> DISX(1	\|sort*
>> DISX(2	\|sort*
>> DIU	\|dd745.1, \|dd745.1213, \|dd745.2*
DIV	\|dd745.1!, \|dd745.1213!, \|dd745.2*!
DIV(0	\|dd745.1, \|dd745.1213, \|dd745.2*
DIV(1	\|dd745.1213*
DIV(2	\|dd745.1213*
DO	\|dd745.1~
>> DPP(2	\|sort
DT	\|dd745.1
DUZ	\|inpt
>> I(0	\|dd745.1213, \|sort
>> I(1	\|dd745.1213, \|sort
>> I(2	\|dd745.1213, \|sort
>> QACALERT	\|dd745.1, \|dd745.128
>> QACDA	\|inpt*
>> QAQNBEG	\|prnt
>> QAQNEND	\|prnt
U	\|dd745.1, \|dd745.1213, \|dd745.128, \|dd745.2, \|inpt, \|prnt, \|sort
X	.01+1!, .01(XREF 1S), .01(XREF 1K), .01(XREF 2S), .01(XREF 2K), \|dd745.1!~, \|dd745.1!, \|dd745.11, \|dd745.115, \|dd745.117 , \|dd745.118!, \|dd745.121!, \|dd745.1211, \|dd745.1212, \|dd745.1213, \|dd745.124, \|dd745.128, \|dd745.2!, \|dd745.3!, \|dd745.4! , \|inpt, \|sort
>> X1	\|dd745.1*
>> X2	\|dd745.1*
Y	\|dd745.1!, \|dd745.121, \|dd745.1213!, \|dd745.2!, \|inpt, \|prnt*
Y(	\|dd745.1*
Y(0	\|dd745.1, \|dd745.121, \|dd745.2*
Y(1	\|dd745.1, \|dd745.1213, \|dd745.2, \|sort
Y(101	\|dd745.1213, \|sort
Y(102	\|dd745.1213*

Customize PDF page

Package: Patient Representative

Global: ^QA(745.4

Legend: