Routine: VPSCSQ1

Package	Total	Call Graph
VA FileMan	4	(UPDATE,WP)^DIE IXALL^DIK ($$GET1,GETS)^DIQ EN^DIU2

Entry Points

Name	Comments	DBIA/ICR reference
EN	; Entry point for calling both tags to save off existing VPS information
EN0	; entry point for saving off existing VPS QUESTIONNAIRE INTERNAL NAME (File: 853.85, Field 3)
EN1	; entry point for saving off existing VPS CSQ data ; ; Save off existing VPS CSQ data into TMP global
UPDATE	;
EN2	; Entry point for moving VPS QUESTIONNAIRE INTERNAL NAME into its word processing field
EN3	; Entry point for moving previous CSQ information into the new CSQ data structure
CSQ8	;Obtain DFN
CSQ81	;
CSQ811	;
STORE	;
DONE	;
ADDDFN(VPSDFN)	;Add Survey (patient level)
ADDQST(VPSDFN,SURVEY)	;add (QUESTIONNAIRE IDENTIFIER level)
ADDSRVY(VPSDFN,TID,TRNDT,SURVEY)	;add survey (questionnaire level)
ADDRES(VPSDFN,TID,TRNDT,DTT,DTLM,CS,PS,IA)	;add questionnaire response
ADDQUEST(VPSDFN,TID,TRNDT,DTLM,QNUM,QCV,QUEST,ANS)	;add question
ADDANS(SUBS,I,VPSDFN,TID,TRNDT,ANS,DTLM)	;add ANSWER
ERROR(FDAERR)	;return error text
LOCK(VPSDFN)	;Lock this process
UNLOCK(VPSDFN)	;Unlock this process

Name	Field # of Occurrence
UPDATE^DIE	ADDDFN+5, ADDQST+10, ADDSRVY+12, ADDRES+12, ADDQUEST+13, ADDANS+17
WP^DIE	EN2+4, ADDQUEST+18, ADDANS+22
IXALL^DIK	EN2+10
$$GET1^DIQ	EN0+5, CSQ81+8
GETS^DIQ	EN1+7
EN^DIU2	EN1+13

FileNo	Call Tags
^VA(200 - [#200]	GET1^DIQ
^VPS(853.8 - [#853.8]	GETS^DIQ
^VPS(853.85 - [#853.85]	Classic Fileman Calls, GET1^DIQ, WP^DIE

Name	Line Occurrences (* Changed, ! Killed)
^DD(853.81133	EN+1
^TMP("CSQ CON"	ADDQUEST+14!, ADDQUEST+15, ADDANS+18!, ADDANS+19
^TMP("VPS 1*14"	EN+1*, UPDATE+1
^TMP("VPSSRVY1"	LOCK+1, UNLOCK+1
^VPS(853.8 - [#853.8]	EN1+7, ADDDFN+1
^VPS(853.85 - [#853.85]	EN0+5, EN2+9!

Name	Line Occurrences
$$ERROR	ADDDFN+6, ADDQST+11, ADDSRVY+13, ADDRES+14, ADDQUEST+28, ADDANS+24
ADDANS	ADDQUEST+21, ADDQUEST+24, ADDQUEST+25
ADDDFN	STORE+3
ADDQST	STORE+4
ADDQUEST	STORE+7
ADDRES	STORE+6
ADDSRVY	STORE+5
CSQ8	CSQ81+2
CSQ81	CSQ81+3, STORE+8
CSQ811	CSQ811+3, CSQ811+4, CSQ811+10
DONE	CSQ8+2
EN0	EN+2
EN1	EN+2
EN2	UPDATE+2
EN3	UPDATE+2
STORE	CSQ811+2

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
A	EN0+1~, EN0+2, EN0+5, EN2+1~, EN2+2, EN2+4
ANS	EN3+4~, CSQ81+29!, STORE+7, ADDQUEST~, ADDQUEST+21, ADDANS~
ANS(	CSQ811+8*, ADDQUEST+20, ADDQUEST+24, ADDQUEST+25, ADDANS+7, ADDANS+19
ARR	ADDQUEST+23~, ADDQUEST+24, ADDQUEST+25
ARR(	ADDQUEST+24, ADDQUEST+25
CNT	EN3+4~, CSQ81+28, CSQ811+5, CSQ811+6, CSQ811+7, CSQ811+8, CSQ811+9
CREATOR	EN3+3~, CSQ81+25*, STORE+5
CS	EN3+3~, CSQ81+10, CSQ81+12, CSQ81+13*, STORE+6, ADDRES~, ADDRES+9
CSQARR	EN1+3~, EN1+4, EN1+5, EN1+7, EN3+2~, EN3+6, CSQ8+1, CSQ8+3, CSQ81+1, CSQ81+4 , CSQ81+5, CSQ81+6, CSQ81+7, CSQ81+9, CSQ81+10, CSQ81+14, CSQ81+19, CSQ81+24, CSQ81+25, CSQ811+1 , CSQ811+6, CSQ811+7, CSQ811+8, CSQ811+9
DAT	EN3+3~, CSQ81+7*, CSQ81+8
DFN	EN1+3~, EN1+6, EN1+7, EN3+2~, CSQ8+3*, CSQ81+3, CSQ811+3, STORE+3, STORE+4, STORE+5 , STORE+6, STORE+7
DIK	EN2+1~, EN2+10*
>> DIU	EN1+13*
>> DIU(0	EN1+13*
DTLM	EN3+3~, CSQ81+6*, STORE+6, STORE+7, ADDRES~, ADDRES+8, ADDQUEST~, ADDQUEST+21, ADDQUEST+24, ADDQUEST+25 , ADDANS~, ADDANS+13
DTS	EN3+3~, CSQ81+4*, CSQ811+4, STORE+5, STORE+6, STORE+7
DTT	EN3+3~, CSQ81+5*, STORE+6, ADDRES~, ADDRES+7
ERRNUM	ERROR+2~, ERROR+3, ERROR+5
ERRTXT	ERROR+4~, ERROR+5, ERROR+6
FDA	ADDDFN+4~, ADDQST+4~, ADDSRVY+4~, ADDRES+4~, ADDQUEST+4~, ADDANS+3~
FDA(	ADDDFN+4, ADDQST+7, ADDSRVY+8, ADDRES+6, ADDRES+7, ADDRES+8, ADDRES+9, ADDRES+10, ADDRES+11, ADDQUEST+11 , ADDQUEST+12, ADDANS+10, ADDANS+11, ADDANS+12, ADDANS+13, ADDANS+14, ADDANS+15, ADDANS+16
FDAERR	EN2+1~, EN2+4, ADDDFN+5~, ADDDFN+6, ADDQST+4~, ADDQST+11, ADDSRVY+4~, ADDSRVY+13, ADDRES+4~, ADDRES+14 , ADDQUEST+4~, ADDQUEST+28, ADDANS+3~, ADDANS+24, ERROR~, ERROR+1
FDAERR("DIERR"	ERROR+3, ERROR+5
FIL	ADDDFN+2~, ADDDFN+4, ADDQST+1~, ADDQST+7, ADDSRVY+1~, ADDRES+1~, ADDQUEST+1~, ADDQUEST+18, ADDANS+1~, ADDANS+22
FLD	ADDQST+5~, ADDSRVY+5~
I	ADDQUEST+5~, ADDQUEST+7, ADDQUEST+8, ADDQUEST+9, ADDQUEST+11, ADDQUEST+12, ADDQUEST+15, ADDQUEST+16, ADDQUEST+20, ADDQUEST+21 , ADDQUEST+24, ADDQUEST+25, ADDANS~, ADDANS+7, ADDANS+8, ADDANS+10, ADDANS+19, ADDANS+20
IA	EN3+3~, CSQ81+19, CSQ81+21, CSQ81+22*, STORE+6, ADDRES~, ADDRES+11
IENS	ADDDFN+3~, ADDQST+2~, ADDSRVY+2~, ADDRES+2~, ADDQUEST+3~, ADDANS+2~
IENS(1	ADDDFN+3, ADDQST+2, ADDSRVY+2, ADDRES+2, ADDQUEST+9, ADDANS+8
INV	EN3+3~, CSQ81+8*
J	ADDQUEST+23~, ADDQUEST+24, ADDQUEST+25
MULT	ADDQUEST+5~, ADDQUEST+19, ADDQUEST+20, ADDQUEST+21, ADDQUEST+22
PS	EN3+3~, CSQ81+14, CSQ81+16, CSQ81+17*, STORE+6, ADDRES~, ADDRES+10
QCV	EN3+4~, CSQ81+29!, STORE+7, ADDQUEST~
QCV(	CSQ811+9*, ADDQUEST+12
QIN	EN2+1~
QNUM	EN3+4~, CSQ81+29!, STORE+7, ADDQUEST~
QNUM(	CSQ811+6*, ADDQUEST+8, ADDQUEST+11
QUEST	EN3+4~, CSQ81+29!, STORE+7, ADDQUEST~
QUEST(	CSQ811+7*, ADDQUEST+15
SCV	EN3+3~, CSQ81+9*
SUB8	EN3+2~, EN3+8, CSQ8+1, CSQ8+2, CSQ8+3
SUB81	EN3+2~, CSQ8+5, CSQ81+1, CSQ81+2, CSQ81+3, CSQ81+4, CSQ81+5, CSQ81+6, CSQ81+7, CSQ81+9 , CSQ81+10, CSQ81+14, CSQ81+19, CSQ81+24, CSQ81+25
SUB811	EN3+2~, CSQ81+27, CSQ811+1, CSQ811+2, CSQ811+3, CSQ811+4, CSQ811+6, CSQ811+7, CSQ811+8, CSQ811+9
SUBS	ADDQST+3~, ADDQST+7, ADDSRVY+3~, ADDSRVY+8, ADDRES+3~, ADDRES+6, ADDRES+7, ADDRES+8, ADDRES+9, ADDRES+10 , ADDRES+11, ADDQUEST+2~, ADDQUEST+10, ADDQUEST+11, ADDQUEST+12, ADDANS~, ADDANS+9*, ADDANS+10, ADDANS+11, ADDANS+12 , ADDANS+13, ADDANS+14, ADDANS+15, ADDANS+16
SUBWP	ADDQUEST+2~, ADDQUEST+16, ADDQUEST+18, ADDQUEST+21, ADDQUEST+24, ADDQUEST+25, ADDANS+4~, ADDANS+20, ADDANS+22
SURVEY	ADDQST~, ADDQST+2, ADDQST+7, ADDSRVY~
TID	EN3+3~, CSQ81+24*, STORE+4, STORE+5, STORE+6, STORE+7, ADDSRVY~, ADDSRVY+3, ADDRES~, ADDRES+3 , ADDQUEST~, ADDQUEST+10, ADDQUEST+16, ADDQUEST+21, ADDQUEST+24, ADDQUEST+25, ADDANS~, ADDANS+20
TRNDT	ADDSRVY~, ADDSRVY+2, ADDSRVY+8, ADDRES~, ADDRES+3, ADDQUEST~, ADDQUEST+10, ADDQUEST+16, ADDQUEST+21, ADDQUEST+24 , ADDQUEST+25, ADDANS~, ADDANS+20
VPSARR	EN0+1~, EN0+3, EN0+4, EN0+5, EN2+1~, EN2+3, EN2+4
VPSDFN	ADDDFN~, ADDDFN+1, ADDDFN+3, ADDDFN+4, ADDQST~, ADDQST+3, ADDSRVY~, ADDSRVY+3, ADDRES~, ADDRES+3 , ADDQUEST~, ADDQUEST+10, ADDQUEST+16, ADDQUEST+21, ADDQUEST+24, ADDQUEST+25, ADDANS~, ADDANS+20, LOCK~, LOCK+1 , UNLOCK~, UNLOCK+1
WPERR	ADDQUEST+5~, ADDQUEST+17!, ADDANS+4~, ADDANS+21!

Customize PDF page

Package: VA Point of Service

Routine: VPSCSQ1

Information

Source Information

Call Graph

Call Graph Total: 4

Entry Points

External References

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Local Variables

Legend: