VPSSRVY2 ;WOIFO/BT - VPS CLINICAL SURVEY QUESTIONNAIRE;01/16/2015 11:23
Source file <VPSSRVY2.m>
| Package | Total | Call Graph |
|---|---|---|
| VA FileMan | 2 | ^%DT $$GET1^DIQ |
| VA Point of Service | 1 | $$VALIDATE^VPSRPC1 |
| action | A | extended action | Ea | event driver | Ed | subscriber | Su | protocol | O | limited protocol | LP | run routine | RR | broker | B | edit | E | server | Se | P | screenman | SM | inquire | I |
| Package | Total | Caller Graph |
|---|---|---|
| VA Point of Service | 3 | VPS GET SURVEY DATA VPSSRVY1 VPSSRVY3 |
| 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
|
| Name | Field # of Occurrence |
|---|---|
| ^%DT | GETRPC+62, GETRPC+63 |
| $$GET1^DIQ | PASSCHK+9, GETDATA+4, GETDATA+10, GETDATA+12, GETDATA+14, GETDATA+16, GETDATA+18, GETDATA+20, GETDATA+22, GETDATA+48 , GETDATA+49, GETDATA+55, GETDATA+67, GETDATA+70, GETDATA+71, GETDATA+72, GETDATA+73, GETDATA+74, GETDATA+75, GETDATA+76 , GETDATA+77, GETDATA+78, GETDATA+79, GETDATA+86 |
| $$VALIDATE^VPSRPC1 | GETRPC+53 |
| 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 |
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^DPT - [#2] | GETRPC+56 |
| ^TMP("VPSGSRY" | GETRPC+48!, GETRPC+49, ADDERR+1*, STORE+1* |
| ^VPS(853.8 - [#853.8] | GETRPC+57, GETRPC+68, GETRPC+70, GETDATA+2, GETDATA+28, GETDATA+29, GETDATA+37, GETDATA+38, GETDATA+47, GETDATA+65 |
| ^VPS(853.85 - [#853.85] | PASSCHK+6 |
| Name | Line Occurrences |
|---|---|
| $$CAP | UPCASE+3 |
| $$PASSCHK | GETRPC+72 |
| $$UPCASE | GETRPC+52 |
| ADDERR | GETRPC+54, GETRPC+55, GETRPC+56, GETRPC+57, GETRPC+62, GETRPC+63 |
| GETDATA | GETRPC+81 |
| STORE | GETRPC+80, GETRPC+85, GETRPC+86, GETDATA+6, GETDATA+8, GETDATA+24, GETDATA+26, GETDATA+31, GETDATA+33, GETDATA+35 , GETDATA+40, GETDATA+42, GETDATA+44, GETDATA+51, GETDATA+53, GETDATA+57, GETDATA+59, GETDATA+69, GETDATA+81, GETDATA+84 , GETDATA+88, GETDATA+90, GETDATA+92, GETDATA+96, GETDATA+98 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| AHFLG | GETRPC~, GETDATA+65, GETDATA+67 |
| ARR | APPEND~ |
| ARR( | APPEND+3 |
| CNT | GETRPC+59~, GETRPC+61*, GETRPC+82*, GETRPC+83, GETRPC+86 |
| CUR | GETDATA+63~, GETDATA+64*, GETDATA+65, GETDATA+67*, GETDATA+70* |
| DAT | GETRPC+59~, GETDATA+1~, GETDATA+4*, GETDATA+6, GETDATA+10*, GETDATA+12*, GETDATA+14*, GETDATA+16*, GETDATA+18*, GETDATA+20* , GETDATA+22*, GETDATA+24, GETDATA+29*, GETDATA+31, GETDATA+38*, GETDATA+40, GETDATA+48*, GETDATA+49*, GETDATA+51, GETDATA+71* , GETDATA+72*, GETDATA+73*, GETDATA+74*, GETDATA+75*, GETDATA+76*, GETDATA+77*, GETDATA+78*, GETDATA+79*, GETDATA+81, GETDATA+82* |
| DATA | GETRPC+59~, GETDATA+1~, GETDATA+2* |
| FDT | GETRPC+59~, GETRPC+60*, GETRPC+64*, GETRPC+67, GETRPC+69*, GETRPC+70*, GETRPC+71, GETRPC+72, GETRPC+73*, GETRPC+76* , GETRPC+78, GETRPC+81, GETDATA~, GETDATA+2, GETDATA+10, GETDATA+12, GETDATA+14, GETDATA+16, GETDATA+18, GETDATA+20 , GETDATA+22, GETDATA+28, GETDATA+29, GETDATA+37, GETDATA+38, GETDATA+47, GETDATA+48, GETDATA+49, GETDATA+55, GETDATA+65 , GETDATA+67, GETDATA+70, GETDATA+71, GETDATA+72, GETDATA+73, GETDATA+74, GETDATA+75, GETDATA+76, GETDATA+77, GETDATA+78 , GETDATA+79, GETDATA+86 |
| FLG | GETRPC+59~, GETRPC+61*, GETRPC+76, GETRPC+78, GETRPC+83*, PASSCHK+3~, PASSCHK+4*, PASSCHK+5, PASSCHK+7*, PASSCHK+8 , PASSCHK+9* |
| I | GETDATA+1~, GETDATA+27*, GETDATA+28*, GETDATA+29, GETDATA+36*, GETDATA+37*, GETDATA+38, GETDATA+46*, GETDATA+47*, GETDATA+48 , GETDATA+49, GETDATA+55, GETDATA+65, GETDATA+67, GETDATA+70, GETDATA+71, GETDATA+72, GETDATA+73, GETDATA+74, GETDATA+75 , GETDATA+76, GETDATA+77, GETDATA+78, GETDATA+79, GETDATA+86, UPCASE+1~, UPCASE+3* |
| ID | PASSCHK+3~, PASSCHK+6*, PASSCHK+7 |
| ID1 | PASSCHK~, PASSCHK+7, PASSCHK+9 |
| IEN | STORE~, STORE+1 |
| II | GETDATA+45~, GETDATA+62*, GETDATA+65*, GETDATA+67, GETDATA+70, GETDATA+71, GETDATA+72, GETDATA+73, GETDATA+74, GETDATA+75 , GETDATA+76, GETDATA+77, GETDATA+78, GETDATA+79, GETDATA+86 |
| J | GETDATA+45~, GETDATA+56*, GETDATA+57*, GETDATA+87*, GETDATA+88*, APPEND+1~, APPEND+2*, APPEND+3* |
| LINE | APPEND~, APPEND+4*, APPEND+5* |
| LN | GETRPC+74~, GETRPC+75*, GETRPC+79*, GETRPC+80, GETRPC+81, GETRPC+84*, GETRPC+85, GETDATA~, GETDATA+5*, GETDATA+6 , GETDATA+7*, GETDATA+8, GETDATA+23*, GETDATA+24, GETDATA+25*, GETDATA+26, GETDATA+30*, GETDATA+31, GETDATA+32*, GETDATA+33 , GETDATA+34*, GETDATA+35, GETDATA+39*, GETDATA+40, GETDATA+41*, GETDATA+42, GETDATA+43*, GETDATA+44, GETDATA+50*, GETDATA+51 , GETDATA+52*, GETDATA+53, GETDATA+57*, GETDATA+58*, GETDATA+59, GETDATA+68*, GETDATA+69, GETDATA+80*, GETDATA+81, GETDATA+83* , GETDATA+84, GETDATA+88*, GETDATA+89*, GETDATA+90, GETDATA+91*, GETDATA+92, GETDATA+95*, GETDATA+96, GETDATA+97*, GETDATA+98 |
| MSG | ADDERR~, ADDERR+1, STORE~, STORE+1 |
| STR | APPEND+1~, APPEND+3*, APPEND+4, APPEND+5, UPCASE+1~, UPCASE+2*, UPCASE+3*, UPCASE+4 |
| TID | GETRPC+59~, GETRPC+60*, GETRPC+68*, GETRPC+70, GETRPC+72, GETRPC+77*, GETRPC+78*, GETRPC+81, GETDATA~, GETDATA+2 , GETDATA+4, GETDATA+10, GETDATA+12, GETDATA+14, GETDATA+16, GETDATA+18, GETDATA+20, GETDATA+22, GETDATA+28, GETDATA+29 , GETDATA+37, GETDATA+38, GETDATA+47, GETDATA+48, GETDATA+49, GETDATA+55, GETDATA+65, GETDATA+67, GETDATA+70, GETDATA+71 , GETDATA+72, GETDATA+73, GETDATA+74, GETDATA+75, GETDATA+76, GETDATA+77, GETDATA+78, GETDATA+79, GETDATA+86 |
| TMP | GETRPC+59~, GETDATA+54~, GETDATA+85! |
| TMP( | GETRPC+72*, GETRPC+76, GETRPC+78, GETDATA+57, GETDATA+88 |
| U | GETDATA+4, GETDATA+12, GETDATA+14, GETDATA+16, GETDATA+18, GETDATA+20, GETDATA+22, GETDATA+49, GETDATA+72, GETDATA+73 , GETDATA+74, GETDATA+75, GETDATA+76, GETDATA+77, GETDATA+78, GETDATA+79, APPEND+5 |
| VFDT | GETRPC+66~, GETRPC+67*, GETRPC+69 |
| VPSDFN | GETRPC+50~, GETRPC+53*, GETRPC+54, GETRPC+55, GETRPC+56, GETRPC+57, GETRPC+68, GETRPC+70, GETDATA+2, GETDATA+4 , GETDATA+10, GETDATA+12, GETDATA+14, GETDATA+16, GETDATA+18, GETDATA+20, GETDATA+22, GETDATA+28, GETDATA+29, GETDATA+37 , GETDATA+38, GETDATA+47, GETDATA+48, GETDATA+49, GETDATA+55, GETDATA+65, GETDATA+67, GETDATA+70, GETDATA+71, GETDATA+72 , GETDATA+73, GETDATA+74, GETDATA+75, GETDATA+76, GETDATA+77, GETDATA+78, GETDATA+79, GETDATA+86 |
| VPSFDT | GETRPC~, GETRPC+62*, GETRPC+64 |
| VPSNUM | GETRPC~, GETRPC+83 |
| VPSPID | GETRPC~, GETRPC+53 |
| VPSQIEN | GETRPC~, GETRPC+72, PASSCHK~, PASSCHK+2, PASSCHK+5, PASSCHK+6 |
| VPSQNM | GETRPC~, GETRPC+52*, GETRPC+72, PASSCHK~, PASSCHK+2, PASSCHK+8, PASSCHK+9 |
| VPSRES | GETRPC~, GETRPC+49* |
| VPSTDT | GETRPC~, GETRPC+63*, GETRPC+65*, GETRPC+71 |
| VPSTYP | GETRPC~, GETRPC+51*, GETRPC+53 |
| X | GETRPC+59~, GETRPC+62*, GETRPC+63*, UPCASE~, UPCASE+3, CAP~, CAP+1 |
| Y | GETRPC+59~, GETRPC+62, GETRPC+63 |