Routine: VPSSRVY3

Information

VPSSRVY3 ;WOIFO/BT - VPS CLINICAL SURVEY QUESTIONNAIRE;01/16/15 13:07

Name	Comments	DBIA/ICR reference
UTGET(VPSDFN,TARGET,VPSQIEN,VPSQNM,VPSFDT,VPSTDT,VPSNUM)	;
GETRPT(VPSDFN,TARGET,VPSQIEN,VPSQNM,VPSFDT,VPSTDT,VPSNUM,AHFLG)	;
STARTHS	;
EX	;
PASSCHK(ID1,VPSQIEN,VPSQNM)	; ; test is see if this is the survey being requested
GETDATA(VPSDFN,TID,FDT,VPSQNM)	;
ADD(TXT)	;
PDO(PTIEN,PDOARY)	; ; create object and store the results of this clinical survey request
CLOSE	; ; close the object
HSAHCAL	; ; Entry point for including answer history and calculated values with the health summary ; AHFLG - is the flag for obtaining answer history
HSCAL	; ; Entry point for including calculated values with the health summary ; CALC - is the flag for obtaining calcualted values
HS	; ; Entry point for health summary ; VPSHSFLG - Flag that indicates health summary so the report is processed accordingly ; obtains key values that are provided by the CPRS call
PRINTHS(SURVEY)	;

Name	Line Occurrences
Function Call: WRITE	Prompt: !,$$CJ^XLFSTR(GMTSEGH,75),! Line Location: HS+14
Function Call: WRITE	Prompt: $$REPEAT^XLFSTR("_",75),!,$$CJ^XLFSTR(SURVEY,75),!,! Line Location: PRINTHS+2
Function Call: WRITE	Prompt: !,$P(@TARGET@(0),U,2) Line Location: PRINTHS+3
Function Call: WRITE	Prompt: !,"No results",!,$$REPEAT^XLFSTR("_",75),! Line Location: PRINTHS+4
Function Call: WRITE	Prompt: !,DATA Line Location: PRINTHS+8
Function Call: WRITE	Prompt: !,$$REPEAT^XLFSTR("_",75),! Line Location: PRINTHS+9