Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Call Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables  | All
Print Page as PDF
Routine: VPSSRVY3

Package: VA Point of Service

Routine: VPSSRVY3


Information

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

Source Information

Source file <VPSSRVY3.m>

Call Graph

Call Graph

Call Graph Total: 5

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  

Entry Points

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) ;

External References

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

Interaction Calls

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

FileMan Files Accessed Via FileMan Db Call

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

Global Variables Directly Accessed

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

Label References

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~
Info |  Source |  Call Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables  | All