Global: ^VPS(853.8

FileMan FileNo	FileMan Filename	Package
853.8	VPS CLINICAL SURVEY	VA Point of Service

FileMan FileNo

FileMan Filename

Package

853.8

VPS CLINICAL SURVEY

This is the Clinical Survey Questionnaire data file for VA Point of Service (VPS) Kiosk application. VetLink (patient-facing or staff-facing) uses Remote Procedure Call (RPC) APIs to store Survey Questionnaire question-patient responses pairs. The data stored in this file is sorted by patient and by survey. Each patient will have multiple surveys and each survey contains multiple questions and responses. APPLICATION GROUP(S): GMTS

Package	Total	Routines
VA Point of Service	2	VPSCSQ1 VPSSRVY4

Package

Total

Routines

VPSCSQ1 VPSSRVY4

Package	Total	FileMan Files
Kernel	1	NEW PERSON(#200)[#853.81(.02), #853.81(4), #853.81(12)]
Registration	1	PATIENT(#2)[.01]
VA Point of Service	1	VPS QUESTIONNAIRE IDENTIFIERS(#853.85)[#853.805(.01), #853.81(11)]

Package

Total

FileMan Files

Fields, Total: 2

Field # Name Loc Type Details

Field #	Name	Loc	Type	Details
.01	PATIENT	0;1	POINTER TO PATIENT FILE (#2)	**********************REQUIRED FIELD********************** PATIENT(#2) INPUT TRANSFORM: `S DINUM=X Q` LAST EDITED: `AUG 24, 2015` HELP-PROMPT: `Select the patient who entered the questionnaire.` DESCRIPTION: `This is the patient who entered the questionnaire.` TECHNICAL DESCR: `Since this value is DINUM, this field represents the root IEN for this file as well.` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER` CROSS-REFERENCE: `853.8^B` `1)= S ^VPS(853.8,"B",$E(X,1,30),DA)=""` `2)= K ^VPS(853.8,"B",$E(X,1,30),DA)` FIELD INDEX: `H (#1342) REGULAR IR LOOKUP & SORTING` `Short Descr: Index for Patient Identifier` `Set Logic: S ^VPS(853.8,"H",X,DA)=""` `Kill Logic: K ^VPS(853.8,"H",X,DA)` `Whole Kill: K ^VPS(853.8,"H")` `X(1): PATIENT (853.8,.01) (Subscr 1) (forwards)`
1	QUESTIONNAIRE IDENTIFIER	1;0	POINTER Multiple #853.805	853.805 LAST EDITED: `NOV 12, 2014` DESCRIPTION: `This multiple stores all the patient's questionnaire identification information.`

PATIENT

0;1

POINTER TO PATIENT FILE (#2)

************************REQUIRED FIELD************************

INPUT TRANSFORM: S DINUM=X Q
LAST EDITED: AUG 24, 2015
HELP-PROMPT: Select the patient who entered the questionnaire.
DESCRIPTION:
This is the patient who entered the questionnaire.
TECHNICAL DESCR:
Since this value is DINUM, this field represents the root IEN for this file as well.
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
CROSS-REFERENCE: 853.8^B
1)= S ^VPS(853.8,"B",$E(X,1,30),DA)=""
2)= K ^VPS(853.8,"B",$E(X,1,30),DA)
FIELD INDEX: H (#1342) REGULAR IR LOOKUP & SORTING
Short Descr: Index for Patient Identifier
Set Logic: S ^VPS(853.8,"H",X,DA)=""
Kill Logic: K ^VPS(853.8,"H",X,DA)
Whole Kill: K ^VPS(853.8,"H")
X(1): PATIENT (853.8,.01) (Subscr 1) (forwards)

QUESTIONNAIRE IDENTIFIER

1;0

POINTER Multiple #853.805

LAST EDITED: NOV 12, 2014
DESCRIPTION:
This multiple stores all the patient's questionnaire identification information.