VPSSRVY1 ;WOIFO/BT - VPS CLINICAL SURVEY QUESTIONNAIRE;01/16/2015 11:23
Source file <VPSSRVY1.m>
action | A | extended action | Ea | event driver | Ed | subscriber | Su | protocol | O | limited protocol | LP | run routine | RR | broker | B | edit | E | server | Se | P | screenman | SM | inquire | I |
Package | Total | Caller Graph |
---|---|---|
VA Point of Service | 1 | VPS SAVE CLINICAL SURVEY |
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)
|
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 |
RPC Name | Call Tags |
---|---|
VPS SAVE CLINICAL SURVEY | SAVE |
FileNo | Call Tags |
---|---|
^VPS(853.85 - [#853.85] | GET1^DIQ |
^VPS(853.875 - [#853.875] | Classic Fileman Calls |
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 |
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 |
>> | 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~ |
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 |