Routine: VPSSRVY3

Package	Total	Call Graph
Kernel	2	$$NOW^XLFDT ($$CJ,$$REPEAT)^XLFSTR
VA Point of Service	2	($$NEW,ADDBLANK,ADDPDO,ADDUNDLN,CLOSE)^VPSOBJ $$UPCASE^VPSSRVY2
VA FileMan	1	$$GET1^DIQ

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	Field # of Occurrence
$$GET1^DIQ	PASSCHK+9, GETDATA+9, GETDATA+11, GETDATA+13, GETDATA+16, GETDATA+19, GETDATA+22, GETDATA+25, GETDATA+28, GETDATA+29 , GETDATA+35, GETDATA+55, GETDATA+58, GETDATA+59, GETDATA+66, GETDATA+67, GETDATA+82, GETDATA+83, GETDATA+86, GETDATA+90 , GETDATA+92, GETDATA+94
$$NEW^VPSOBJ	PDO+4
ADDBLANK^VPSOBJ	PDO+9
ADDPDO^VPSOBJ	PDO+5, PDO+8
ADDUNDLN^VPSOBJ	PDO+9
CLOSE^VPSOBJ	CLOSE+2
$$UPCASE^VPSSRVY2	STARTHS+16
$$NOW^XLFDT	STARTHS+9
$$CJ^XLFSTR	HS+14, PRINTHS+2
$$REPEAT^XLFSTR	PRINTHS+2, PRINTHS+4, PRINTHS+9

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

FileNo	Call Tags
853.811	GET1^DIQ
853.8113	GET1^DIQ
853.81133	GET1^DIQ
^VPS(853.85 - [#853.85]	GET1^DIQ

Name	Line Occurrences (* Changed, ! Killed)
^DPT - [#2]	STARTHS+5
^VPS(853.8 - [#853.8]	STARTHS+6, STARTHS+19, STARTHS+21, GETDATA+3, GETDATA+39, GETDATA+40, GETDATA+42, GETDATA+46, GETDATA+47, GETDATA+51 , GETDATA+65
^VPS(853.85 - [#853.85]	PASSCHK+6
^VPS(853.875 - [#853.875]	HS+21

Name	Line Occurrences
$$GETRPT	UTGET+3
$$PASSCHK	STARTHS+25
ADD	STARTHS+34, GETDATA+10, GETDATA+14, GETDATA+17, GETDATA+23, GETDATA+26, GETDATA+30, GETDATA+36, GETDATA+44, GETDATA+48 , GETDATA+52, GETDATA+56, GETDATA+61, GETDATA+83, GETDATA+85, GETDATA+91, GETDATA+98, GETDATA+99, GETDATA+101
CLOSE	PDO+5
EX	STARTHS+4, STARTHS+5, STARTHS+6
GETDATA	STARTHS+26
PDO	EX+3
PRINTHS	HS+17, HS+24
STARTHS	HS+17, HS+23

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
AHFLG	GETRPT~, GETDATA+65, GETDATA+66, HSAHCAL+3~, HSAHCAL+4*
ARR	PDO+2~, PDO+3*, PDO+4, CLOSE+3
CALC	GETDATA+36, GETDATA+56, HSCAL+3~, HSCAL+4*
CNT	GETRPT+34~, GETRPT+36, STARTHS+24, STARTHS+27, STARTHS+28, STARTHS+35, HS+15~, HS+16, HS+22
CUR	GETDATA+63~, GETDATA+64, GETDATA+65, GETDATA+66, GETDATA+67, GETDATA+100
DAT	STARTHS+8~, GETDATA+2~, GETDATA+9, GETDATA+10, GETDATA+11, GETDATA+13, GETDATA+14, GETDATA+16, GETDATA+17, GETDATA+19* , GETDATA+22, GETDATA+23, GETDATA+25, GETDATA+26, GETDATA+28, GETDATA+29, GETDATA+30, GETDATA+35, GETDATA+36, GETDATA+40 , GETDATA+41, GETDATA+44, GETDATA+47, GETDATA+48, GETDATA+55, GETDATA+56, GETDATA+80, GETDATA+86, GETDATA+87, GETDATA+88* , GETDATA+90, GETDATA+91, GETDATA+92, GETDATA+97*, GETDATA+98
DAT1	GETDATA+38~, GETDATA+42, GETDATA+43, GETDATA+44, GETDATA+94, GETDATA+95, GETDATA+96, GETDATA+97
DATA	STARTHS+8~, GETDATA+2~, GETDATA+3, HS+4~, PRINTHS+7, PRINTHS+8
>> DFN	HS+7
DIEN	HS+4~, HS+20*, HS+21
FDT	STARTHS+8~, STARTHS+20, STARTHS+21, STARTHS+23, STARTHS+26, GETDATA~, GETDATA+3, GETDATA+16, GETDATA+19, GETDATA+22 , GETDATA+25, GETDATA+28, GETDATA+29, GETDATA+35, GETDATA+39, GETDATA+40, GETDATA+42, GETDATA+46, GETDATA+47, GETDATA+51 , GETDATA+55, GETDATA+58, GETDATA+59, GETDATA+65, GETDATA+66, GETDATA+67, GETDATA+82, GETDATA+83, GETDATA+86, GETDATA+90 , GETDATA+92, GETDATA+94
FLG	STARTHS+8~, STARTHS+10, STARTHS+18, STARTHS+19, STARTHS+21, STARTHS+24, PASSCHK+3~, PASSCHK+4, PASSCHK+5, PASSCHK+7* , PASSCHK+8, PASSCHK+9*
FLT	STARTHS+8~
>> GMTSBEG	HS+8*, HS+12
>> GMTSEG(1	HS+17, HS+19, HS+20
>> GMTSEGH	HS+14
>> GMTSEGL	HS+24
>> GMTSEND	HS+9*, HS+13
>> GMTSNDM	HS+10*, HS+11
I	GETDATA+2~, GETDATA+37, GETDATA+39, GETDATA+40, GETDATA+42, GETDATA+45, GETDATA+46, GETDATA+47, GETDATA+50, GETDATA+51 , GETDATA+55, GETDATA+58, GETDATA+59, GETDATA+65, GETDATA+66, GETDATA+67, GETDATA+82, GETDATA+83, GETDATA+86, GETDATA+90 , GETDATA+92, GETDATA+94, HS+15~, HS+18, HS+19, HS+20
ID	PASSCHK+3~, PASSCHK+6*, PASSCHK+7
ID1	PASSCHK~, PASSCHK+7, PASSCHK+9
II	GETDATA+49~, GETDATA+62, GETDATA+65, GETDATA+66, GETDATA+67, GETDATA+82, GETDATA+83, GETDATA+86, GETDATA+90, GETDATA+92 , GETDATA+94
J	GETDATA+49~, GETDATA+60, GETDATA+61, GETDATA+84, GETDATA+85
LINE	PDO+2~, PDO+6, PDO+7, PDO+8, HS+4~, PRINTHS+1~, PRINTHS+5, PRINTHS+6, PRINTHS+7
NEXTLINE	GETRPT+34~, GETRPT+35, ADD+1, ADD+2, HS+15~, HS+16*
PDOARY	PDO~, PDO+5, PDO+7, PDO+8, CLOSE+3*
PDOOREF	PDO+2~, PDO+4*, PDO+5, PDO+8, PDO+9, CLOSE+2
PTIEN	PDO~, PDO+4
STR	STARTHS+29~, STARTHS+30, STARTHS+31, STARTHS+32, STARTHS+33, STARTHS+34
SURVEY	PRINTHS~, PRINTHS+2
TARGET	UTGET~, UTGET+3, GETRPT~, STARTHS+1, STARTHS+4, STARTHS+5, STARTHS+6, STARTHS+35, EX+2, EX+3 , EX+5, ADD+2, PDO+5, HS+4~, HS+6*, PRINTHS+3, PRINTHS+4, PRINTHS+6, PRINTHS+7
TDT	GETRPT+34~, STARTHS+9, STARTHS+12, STARTHS+13*, STARTHS+20, STARTHS+22
TID	STARTHS+18, STARTHS+19, STARTHS+21, STARTHS+25, STARTHS+26, GETDATA~, GETDATA+3, GETDATA+9, GETDATA+11, GETDATA+13 , GETDATA+16, GETDATA+19, GETDATA+22, GETDATA+25, GETDATA+28, GETDATA+29, GETDATA+35, GETDATA+39, GETDATA+40, GETDATA+42 , GETDATA+46, GETDATA+47, GETDATA+51, GETDATA+55, GETDATA+58, GETDATA+59, GETDATA+65, GETDATA+66, GETDATA+67, GETDATA+82 , GETDATA+83, GETDATA+86, GETDATA+90, GETDATA+92, GETDATA+94
TMP	GETDATA+57~, GETDATA+81!
TMP(	GETDATA+61, GETDATA+85
TMP(1	GETDATA+59*, GETDATA+83
TXT	ADD~, ADD+2
U	GETDATA+40, GETDATA+42, PDO+5, HS+21, PRINTHS+3, PRINTHS+4
UT	UTGET+1~, UTGET+3*, UTGET+5
UTFLG	UTGET+1~, UTGET+2*, EX+2
VPSDFN	UTGET~, UTGET+3, GETRPT~, STARTHS+4, STARTHS+5, STARTHS+6, STARTHS+19, STARTHS+21, STARTHS+26, EX+3 , GETDATA~, GETDATA+3, GETDATA+16, GETDATA+19, GETDATA+22, GETDATA+25, GETDATA+28, GETDATA+29, GETDATA+35, GETDATA+39 , GETDATA+40, GETDATA+42, GETDATA+46, GETDATA+47, GETDATA+51, GETDATA+55, GETDATA+58, GETDATA+59, GETDATA+65, GETDATA+66 , GETDATA+67, GETDATA+82, GETDATA+83, GETDATA+86, GETDATA+90, GETDATA+92, GETDATA+94, HS+4~, HS+7*
VPSFDT	UTGET~, GETRPT~, STARTHS+22, STARTHS+23, STARTHS+33, HS+4~, HS+12*
VPSHSFLG	EX+1, HS+4~, HS+5*
VPSNUM	UTGET~, GETRPT~, STARTHS+24, HS+4~, HS+11*
VPSQIEN	UTGET~, GETRPT~, STARTHS+14*, STARTHS+25, STARTHS+31, PASSCHK~, PASSCHK+2, PASSCHK+5, PASSCHK+6, HS+4~
VPSQNM	UTGET~, GETRPT~, STARTHS+15, STARTHS+16, STARTHS+25, STARTHS+26, STARTHS+32, PASSCHK~, PASSCHK+2, PASSCHK+8 , PASSCHK+9, GETDATA~, HS+4~, HS+21*, HS+24
VPSTDT	UTGET~, GETRPT~, STARTHS+11, STARTHS+12, STARTHS+13, STARTHS+23, HS+4~, HS+13*
X	STARTHS+8~
Y	STARTHS+8~

Customize PDF page

Package: VA Point of Service

Routine: VPSSRVY3

Information

Source Information

Call Graph

Call Graph Total: 5

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Local Variables

Legend: