VPSCSQ1 ;KC - preinstall routine to save off data and remove existing DD stucture;08/20/14 09:28
Source file <VPSCSQ1.m>
| 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
|
| 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 |
