Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Call Graph |  Entry Points |  External References |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables  | All
Print Page as PDF
Routine: VPSCSQ1

Package: VA Point of Service

Routine: VPSCSQ1


Information

VPSCSQ1 ;KC - preinstall routine to save off data and remove existing DD stucture;08/20/14 09:28

Source Information

Source file <VPSCSQ1.m>

Call Graph

Call Graph

Call Graph Total: 4

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

External References

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

FileMan Files Accessed Via FileMan Db Call

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

Global Variables Directly Accessed

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!

Label References

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!
Info |  Source |  Call Graph |  Entry Points |  External References |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables  | All