VPSSRVY2 ;WOIFO/BT - VPS CLINICAL SURVEY QUESTIONNAIRE;01/16/2015 11:23
Source file <VPSSRVY2.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| GETRPC(VPSRES,VPSPID,VPSTYP,VPSQIEN,VPSQNM,VPSFDT,VPSTDT,VPSNUM,AHFLG) | ;
|
|
| PASSCHK(ID1,VPSQIEN,VPSQNM) | ;
; test is see if this is the survey being requested |
|
| ADDERR(MSG) | ;add error message to result array
|
|
| GETDATA(LN,TID,FDT) | ;
|
|
| APPEND(LINE,ARR) | ;
|
|
| STORE(IEN,MSG) | ;add message to result array
|
|
| UPCASE(X) | ;
|
|
| CAP(X) | ; Convert lower case X to UPPER CASE
|
| RPC Name | Call Tags |
|---|---|
| VPS GET SURVEY DATA | GETRPC |
| FileNo | Call Tags |
|---|---|
| ^DPT - [#2] | GET1^DIQ |
| 853.811 | GET1^DIQ |
| 853.8113 | GET1^DIQ |
| 853.81133 | GET1^DIQ |
| ^VPS(853.85 - [#853.85] | GET1^DIQ |
