VPSSRVY1 ;WOIFO/BT - VPS CLINICAL SURVEY QUESTIONNAIRE;01/16/2015 11:23
Source file <VPSSRVY1.m>
| 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)
|
| 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 |
