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 |