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 |  Used in RPC |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables |  Marked Items  | All
Print Page as PDF
Routine: VPSSRVY1

Package: VA Point of Service

Routine: VPSSRVY1


Information

VPSSRVY1 ;WOIFO/BT - VPS CLINICAL SURVEY QUESTIONNAIRE;01/16/2015 11:23

Source Information

Source file <VPSSRVY1.m>

Call Graph

Call Graph

Call Graph Total: 7

Package Total Call Graph
VA FileMan 4 NOW^%DTC  FILE^DICN  (FILE,UPDATE,WP)^DIE  $$GET1^DIQ  
VA Point of Service 2 $$UPCASE^VPSSRVY2  ($$ADDAPPT,$$ADDCALC,$$ADDQUEST,$$ADDRES,$$ADDSRVY)^VPSSRVY4  
Kernel 1 $$NOW^XLFDT  

Entry Points

Name Comments DBIA/ICR reference
SAVE(VPSRES,VPSDFN,VPSDATA,MODFLG) ;RPC: VPS SAVE CLINICAL SURVEY
EX1 ;
OKID() ;
STOREQNM ;
STOREQN(X) ;
CLRNM(VER,NM) ; Survey Name changed so remove previous name
UPDATENM(IEN,NM) ; Update Survey Name
ADSRVYKY() ;add survey Identifiers
ADDDFN(VPSDFN) ;Add Survey (patient level)
ADDQST(VPSDFN,TMPIEN) ;add (QUESTIONNAIRE IDENTIFIER level)
UPDATE(VPSDFN,VPSDATA,SURVEY,APDATA,ACDATA,QSTDATA,ANSDATA,WPDATA,MODFLG) ;
CLNSRVY(VPSDFN,TID,TRNDT) ; delete Questionnaire
GETFLD(SVYLST,APSVYLST,ACSVYLST,QSVYLST,ANSVYLST,WPLST,FLDLEN,REQFLD) ;get field maps
PREP(INDATA,SURVEY,APDAT,ACDAT,QDAT,ANSDAT,WPFLD) ;Based on Vetlink input data, prepare survey data to file
LENCHK(LENSTR,STRING,FLD) ;
REQ(REQFLG,STR,FLD) ;
ERROR(FDAERR) ;return error text
LOCK(VPSDFN) ;Lock this process
UNLOCK(VPSDFN) ;Unlock this process
LST ; list of 853.811 fields (Questionnaire response)
APLST ; list of 853.8111 fields (Appointment check-in)
ACLST ; list of 853.8112 fields (ADDITIONAL CALCULATED VALUE)
QSTLST ; list of 853.8113 fields (QUESTIONS)
ANSLST ; list of 853.81133 fields (ANSWER)

External References

Name Field # of Occurrence
NOW^%DTC PREP+30
FILE^DICN STOREQN+5
FILE^DIE CLRNM+5, CLRNM+9, UPDATENM+3, CLNSRVY+3
UPDATE^DIE ADSRVYKY+22, ADDDFN+5, ADDQST+11
WP^DIE ADSRVYKY+27
$$GET1^DIQ OKID+7, OKID+10
$$UPCASE^VPSSRVY2 SAVE+67
$$ADDAPPT^VPSSRVY4 SAVE+98, UPDATE+13
$$ADDCALC^VPSSRVY4 SAVE+99, UPDATE+14
$$ADDQUEST^VPSSRVY4 SAVE+100, UPDATE+15
$$ADDRES^VPSSRVY4 SAVE+97, UPDATE+12
$$ADDSRVY^VPSSRVY4 SAVE+96
$$NOW^XLFDT SAVE+66

Used in RPC

RPC Name Call Tags
VPS SAVE CLINICAL SURVEY SAVE

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^VPS(853.85 - [#853.85] GET1^DIQ
^VPS(853.875 - [#853.875] Classic Fileman Calls

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DPT - [#2] SAVE+61
^TMP("CSQ ARRAY" ADSRVYKY+24!, ADSRVYKY+25*
^TMP("VPSSRVY1" LOCK+1, UNLOCK+1
^VPS( ADSRVYKY+10, ADSRVYKY+26
^VPS(853.8 - [#853.8] ADDDFN+1, ADDQST+1, UPDATE+6, UPDATE+10
^VPS(853.85 - [#853.85] SAVE+93, EX1+4, OKID+5, UPDATE+4
^VPS(853.875 - [#853.875] STOREQNM+5, STOREQNM+6, STOREQN+2, STOREQN+6, CLRNM+3, CLRNM+7

Label References

Name Line Occurrences
$$ADDDFN SAVE+90
$$ADDQST SAVE+95
$$ADSRVYKY SAVE+86
$$ERROR CLRNM+6, CLRNM+10, UPDATENM+4, ADSRVYKY+28, ADDDFN+6, ADDQST+12
$$LENCHK PREP+19, PREP+20, PREP+21, PREP+24, PREP+29
$$LOCK SAVE+79
$$OKID SAVE+68
$$PREP SAVE+74
$$REQ PREP+19, PREP+20, PREP+21, PREP+24, PREP+29
$$UPDATE SAVE+82
$$UPDATENM OKID+16
CLNSRVY EX1+5
EX1 SAVE+83, SAVE+94
GETFLD PREP+2
STOREQN STOREQNM+5, STOREQNM+6
STOREQNM EX1+8
UNLOCK EX1+9

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
% PREP+30~
%H PREP+30~
%I PREP+30~
ACDAT PREP~
ACDAT( PREP+21*
ACDATA SAVE+72~, SAVE+74, SAVE+82, SAVE+99, UPDATE~, UPDATE+14
ACFLD PREP+1~, PREP+2
ACFLD( PREP+17, PREP+21
ACSVYLST GETFLD~
ACSVYLST( GETFLD+4*
ALC PREP+8~
ALC( PREP+27*
ANFLD PREP+1~, PREP+2
ANFLD( PREP+17, PREP+25
ANSDAT PREP~
ANSDAT( PREP+27*, PREP+29*, PREP+30*
ANSDATA SAVE+72~, SAVE+74, SAVE+82, SAVE+100, UPDATE~, UPDATE+15
ANSVYLST GETFLD~
ANSVYLST( GETFLD+11*
APDAT PREP~
APDAT( PREP+20*
APDATA SAVE+72~, SAVE+74, SAVE+82, SAVE+98, UPDATE~, UPDATE+13
APFLD PREP+1~, PREP+2
APFLD( PREP+17, PREP+20
APSVYLST GETFLD~
APSVYLST( GETFLD+3*
DIC STOREQN+1~, STOREQN+3*
DIC(0 STOREQN+4*
ER SAVE+73~*, SAVE+74*, SAVE+79*, SAVE+82*, SAVE+86*, SAVE+90*, SAVE+91, SAVE+94*, SAVE+95*, SAVE+96*
, SAVE+97*, SAVE+98*, SAVE+99*, SAVE+100*, EX1+1, EX1+2, EX1+5, OKID+12~, OKID+13*, OKID+16*
, OKID+17, UPDATE+1~, UPDATE+2*, UPDATE+5*, UPDATE+6*, UPDATE+7, UPDATE+8*, UPDATE+9, UPDATE+11*, UPDATE+12*
, UPDATE+13*, UPDATE+14*, UPDATE+15*, UPDATE+16, PREP+5~*, PREP+12, PREP+14*, PREP+18*, PREP+19*, PREP+20*
, PREP+21*, PREP+24*, PREP+29*, PREP+35*, PREP+37
ERR CLNSRVY+3~
ERRNUM ERROR+2~*, ERROR+3*, ERROR+5
ERRTXT ERROR+4~*, ERROR+5*, ERROR+6
FDA CLRNM+4~, CLRNM+8~, UPDATENM+2~, ADSRVYKY+3~, ADDDFN+4~, ADDQST+5~, CLNSRVY+2~
FDA( CLRNM+4*, CLRNM+8*, UPDATENM+2*, ADSRVYKY+16*, ADSRVYKY+17*, ADSRVYKY+18*, ADDDFN+4*, ADDQST+8*, CLNSRVY+2*
FDAERR CLRNM+5~, CLRNM+6, CLRNM+9~, CLRNM+10, UPDATENM+3~, UPDATENM+4, ADSRVYKY+3~, ADSRVYKY+23, ADSRVYKY+28, ADDDFN+5~
, ADDDFN+6, ADDQST+5~, ADDQST+12, ERROR~, ERROR+1
FDAERR("DIERR" ERROR+3, ERROR+5
FIL CLRNM+1~*, CLRNM+4, CLRNM+8, UPDATENM+1~*, UPDATENM+2, ADSRVYKY+1~*, ADSRVYKY+10, ADSRVYKY+16, ADSRVYKY+17, ADSRVYKY+18
, ADSRVYKY+26, ADSRVYKY+27, ADDDFN+2~*, ADDDFN+4, ADDQST+2~*, ADDQST+8, CLNSRVY+1~*, CLNSRVY+2
FLD ADSRVYKY+4~*, ADDQST+6~*, PREP+4~, PREP+14*, PREP+17, PREP+18, PREP+19, PREP+20, PREP+21, PREP+22
, PREP+24, PREP+25, PREP+29, LENCHK~, LENCHK+6, LENCHK+7, REQ~, REQ+2
FLDLEN GETFLD~, PREP+1~, PREP+2
FLDLEN( GETFLD+2*, GETFLD+3*, GETFLD+4*, GETFLD+7*, GETFLD+12*, PREP+19, PREP+20, PREP+21, PREP+24, PREP+29
FLDNO PREP+4~, PREP+17*, PREP+18, PREP+19, PREP+20, PREP+21, PREP+23, PREP+24, PREP+26, PREP+27
, PREP+29, PREP+30
FLDVAL PREP+4~, PREP+16*, PREP+19, PREP+20, PREP+21, PREP+23, PREP+24, PREP+27, PREP+29, PREP+30
I PREP+31~, PREP+32*, PREP+33*, PREP+34*, PREP+35*
ID SAVE+72~, SAVE+92*, SAVE+93, EX1+3*, EX1+4, OKID+1~, OKID+4*, OKID+5, ADSRVYKY+5~, ADSRVYKY+8*
, ADSRVYKY+10, ADSRVYKY+16, ADSRVYKY+26, UPDATE+1~, UPDATE+3*, UPDATE+4, UPDATE+5, UPDATE+11
IE CLRNM+2~, CLRNM+3*, CLRNM+4, CLRNM+7*, CLRNM+8
IEN OKID+1~, OKID+5*, OKID+6, OKID+7, OKID+10, OKID+16, UPDATENM~, UPDATENM+2, ADSRVYKY+5~
IENS ADDDFN+3~, ADDQST+3~
IENS(1 ADDDFN+3*, ADDQST+3*
INDATA PREP~
INDATA( PREP+12, PREP+13, PREP+14, PREP+15, PREP+16
INM ADSRVYKY+5~, ADSRVYKY+9*, ADSRVYKY+13, ADSRVYKY+25
J PREP+31~, PREP+33*
LENSTR LENCHK~, LENCHK+3, LENCHK+4
LINE GETFLD+1~, GETFLD+2*, GETFLD+3*, GETFLD+4*, GETFLD+5*, GETFLD+10*
LN GETFLD+1~, GETFLD+2*, GETFLD+3*, GETFLD+4*, GETFLD+5*, GETFLD+10*
MAX LENCHK+2~, LENCHK+4*, LENCHK+5, LENCHK+7
MIN LENCHK+2~, LENCHK+3*, LENCHK+5, LENCHK+6
MODFLG SAVE~, SAVE+76*, SAVE+82, SAVE+83, UPDATE~, UPDATE+12, UPDATE+13, UPDATE+14, UPDATE+15
MSVYFLD PREP+1~
MULTSEQ PREP+4~, PREP+13*, PREP+20, PREP+21, PREP+23, PREP+24, PREP+27, PREP+29, PREP+30
NM OKID+12~, CLRNM~, CLRNM+3, CLRNM+7, UPDATENM~, UPDATENM+2
QDAT PREP~
QDAT( PREP+23*, PREP+24*, PREP+33
QLC PREP+7~
QLC( PREP+23*
QLEN PREP+10~
QLEN( PREP+33*, PREP+35
QNAME OKID+1~, OKID+2*, OKID+8, OKID+9, OKID+10, OKID+16, STOREQNM+2~, STOREQNM+3*, STOREQNM+5, STOREQNM+6
, ADSRVYKY+5~, ADSRVYKY+6*, ADSRVYKY+11, ADSRVYKY+12, ADSRVYKY+17
QSTDATA SAVE+72~, SAVE+74, SAVE+82, SAVE+100, UPDATE~, UPDATE+15
QSTFLD PREP+1~, PREP+2
QSTFLD( PREP+17, PREP+22
QSVYLST GETFLD~
QSVYLST( GETFLD+6*
REQFLD GETFLD~, PREP+1~, PREP+2
REQFLD( GETFLD+2*, GETFLD+3*, GETFLD+4*, GETFLD+8*, GETFLD+13*, PREP+19, PREP+20, PREP+21, PREP+24, PREP+29
REQFLG REQ~, REQ+1
SEQ PREP+6~*, PREP+12*, PREP+13, PREP+14, PREP+15, PREP+16
SQN PREP+9~, PREP+15*, PREP+27, PREP+29, PREP+30
STR REQ~, REQ+2
STRING GETFLD+1~, GETFLD+2*, GETFLD+3*, GETFLD+4*, GETFLD+5*, GETFLD+6, GETFLD+7, GETFLD+8, GETFLD+9, GETFLD+10*
, GETFLD+11, GETFLD+12, GETFLD+13, GETFLD+14, LENCHK~, LENCHK+6, LENCHK+7
SUBS ADSRVYKY+2~*, ADSRVYKY+16, ADSRVYKY+17, ADSRVYKY+18, ADSRVYKY+26*, ADSRVYKY+27, ADDQST+4~*, ADDQST+8
SURVEY SAVE+72~, SAVE+74, SAVE+82, SAVE+97, UPDATE~, UPDATE+12, PREP~
SURVEY( UPDATE+8, UPDATE+10, UPDATE+11, PREP+19*
SURVEYM SAVE+72~
SVYFLD PREP+1~, PREP+2
SVYFLD( PREP+17, PREP+19
SVYLST GETFLD~
SVYLST( GETFLD+2*
TID SAVE+72~, SAVE+93*, SAVE+94, SAVE+95, SAVE+96, SAVE+97, SAVE+98, SAVE+99, SAVE+100, EX1+4*
EX1+5, ADDQST+1, UPDATE+1~, UPDATE+4*, UPDATE+5, UPDATE+6, UPDATE+10, UPDATE+12, UPDATE+13, UPDATE+14
, UPDATE+15, CLNSRVY~, CLNSRVY+2
TMPIEN ADDQST~, ADDQST+3, ADDQST+8
TRNDT SAVE+66~*, SAVE+96, SAVE+97, SAVE+98, SAVE+99, SAVE+100, EX1+5, UPDATE+1~, UPDATE+10*, UPDATE+11
, UPDATE+12, UPDATE+13, UPDATE+14, UPDATE+15, CLNSRVY~, CLNSRVY+2
U SAVE+63, SAVE+64, SAVE+65, SAVE+92, SAVE+94, EX1+3, EX1+5, OKID+2, OKID+3, OKID+4
, OKID+8, OKID+9, OKID+17, STOREQNM+3, STOREQNM+4, ADSRVYKY+6, ADSRVYKY+7, ADSRVYKY+8, ADSRVYKY+9, UPDATE+3
, UPDATE+6, GETFLD+2, GETFLD+3, GETFLD+4, GETFLD+6, GETFLD+7, GETFLD+8, GETFLD+9, GETFLD+11, GETFLD+12
, GETFLD+13, GETFLD+14, PREP+13, PREP+14, PREP+15, PREP+16, LENCHK+3, LENCHK+4
VER OKID+1~, OKID+3*, OKID+7, STOREQNM+2~, STOREQNM+4*, STOREQNM+6, CLRNM~, CLRNM+7, ADSRVYKY+5~, ADSRVYKY+7*
, ADSRVYKY+18
VPSDATA SAVE~, SAVE+62, SAVE+74, SAVE+82, UPDATE~
VPSDATA(1 SAVE+64, SAVE+67*, OKID+2, STOREQNM+3, ADSRVYKY+6
VPSDATA(2 ADSRVYKY+9
VPSDATA(3 SAVE+63, SAVE+92, SAVE+94, EX1+3, OKID+4, ADSRVYKY+8, UPDATE+3, UPDATE+6
VPSDATA(4 SAVE+65, OKID+3, STOREQNM+4, ADSRVYKY+7
VPSDFN SAVE~, SAVE+60, SAVE+61, SAVE+79, SAVE+82, SAVE+90, SAVE+95, SAVE+96, SAVE+97, SAVE+98
, SAVE+99, SAVE+100, EX1+5, EX1+9, ADDDFN~, ADDDFN+1, ADDDFN+3, ADDDFN+4, ADDQST~, ADDQST+1
, ADDQST+4, UPDATE~, UPDATE+6, UPDATE+10, UPDATE+11, UPDATE+12, UPDATE+13, UPDATE+14, UPDATE+15, CLNSRVY~
, CLNSRVY+2, LOCK~, LOCK+1, UNLOCK~, UNLOCK+1
VPSRES SAVE~, SAVE+59*, SAVE+60*, SAVE+61*, SAVE+62*, SAVE+63*, SAVE+64*, SAVE+65*, SAVE+69, EX1+1*
EX1+5*, OKID+7*, OKID+8*, OKID+9*, OKID+17*
WPDATA SAVE+72~, SAVE+74, SAVE+82, SAVE+100, UPDATE~, UPDATE+15
WPFLD PREP~, PREP+2
WPFLD( PREP+23, PREP+26
WPLST GETFLD~
WPLST( GETFLD+9*, GETFLD+14*
X STOREQN~, PREP+30~

Marked Items

Name Field # of Occurrence
$T(ACLST+LN GETFLD+4
$T(ANSLST+LN GETFLD+10
$T(APLST+LN GETFLD+3
$T(LST+LN GETFLD+2
$T(QSTLST+LN GETFLD+5
Info |  Source |  Call Graph |  Entry Points |  External References |  Used in RPC |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables |  Marked Items  | All