BPSVRX2 ;SLT - View ECME Prescription ;7/18/2011
Source file <BPSVRX2.m>
| Package | Total | Call Graph |
|---|---|---|
| E Claims Management Engine | 2 | $$RXAPI1^BPSUTIL1 UPDATE^BPSVRX |
| VA FileMan | 2 | $$EXTERNAL^DILFD $$GET1^DIQ |
| Kernel | 1 | $$FMTE^XLFDT |
| Registration | 1 | $$RDIS^DGRPDB |
| 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 |
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| DGELST(RXIEN,FILL,VIEWTYPE,BPSSNUM) | ; View Registration Eligibility Status screen
|
|
| DGELSTX | ;
|
|
| DGELV(RXIEN,FILL,VIEWTYPE,BPSSNUM) | ; View Registration Eligibility Verification screen
|
|
| DGELVX | ;
|
|
| ELVSTOR(ARRNAME,BPSSNUM) | ;
|
|
| SSNNM(DFN) | ; SSN and name
|
|
| WW(Z) | ;Write number on screens for display (Z=number)
|
|
| WW1(Z,Z1) | ;spacing for screen display (Z=item to print)
|
|
| YN(X,RPX,Z1) | ;
|
|
| YN2(NA,X,RPX,Z1,Z) | ;
|
|
| YN3(N,P) | ; code from YN2^DG1010P0
; Ext Val of YES/NO given node & piece. |
|
| DATENP(N,P,NA,BL) | ;
; Returns External Value of Date in the Pth '^' piece of 'N' ; Output is modified by NA & BL as per $$UNK[see above] ; INPUT: ; N -- Contents of a node ; P -- the Pth '^' piece ; NA,BL -- Optional output modifiers ; OUTPUT[Returned] -- X ; OUTPUT[Set] -- DGUNK =1 if NA=1 or X="" |
|
| DISP(N,P,NA,BL,UNK) | ;
; Returns the Pth '^' piece of 'N' ; Output is modified by NA & BL as per $$UNK[see above] ; INPUT: N -- Contents of a node ; P -- the Pth '^' piece ; NA,BL -- Optional output modifiers ; OUTPUT[Returned] -- X ; OUTPUT[Set] -- DGUNK =1 if NA=1 or X="" |
|
| MBCK(X) | ;flag for any MB Y/N fields = yes
|
|
| CVEDT(DFN,TDT) | ;Provide Combat Vet Eligibility End Date, if eligible
|
|
| ODS(DFN) | ;ODS software check
|
|
| PAD(LEN) | ; space padding function
; Input: ; LEN (r) --> padding length ; Output: ; A string of space characters |
| Name | Field # of Occurrence |
|---|---|
| $$RXAPI1^BPSUTIL1 | DGELST+6, DGELV+6 |
| UPDATE^BPSVRX | DGELST+169, ELVSTOR+1 |
| $$RDIS^DGRPDB | DGELV+82 |
| $$EXTERNAL^DILFD | DGELST+10, DGELST+59, DGELST+96, DGELST+100, DGELST+107, DGELST+118, DGELST+127, DGELV+91, DGELV+93 |
| $$GET1^DIQ | DGELST+17, DGELST+91, DGELV+11, DGELV+28, DGELV+58, DGELV+65, CVEDT+21, ODS+2, ODS+6 |
| $$FMTE^XLFDT | DGELST+43, DGELST+136, DGELV+22, DGELV+33, DGELV+47, DGELV+52, DGELV+68, DGELV+96, DGELV+97, DATENP+11 |
| Name | Line Occurrences |
|---|---|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| FileNo | Call Tags |
|---|---|
| ^DPT - [#2] | EXTERNAL^DILFD, GET1^DIQ |
| 2.04 | EXTERNAL^DILFD |
| ^VA(200 - [#200] | GET1^DIQ |
| ^DG(391 - [#391] | GET1^DIQ |
| ^DIC(8 - [#8] | GET1^DIQ |
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^DPT - [#2] | DGELST+8, DGELST+122, DGELST+155, DGELST+157, DGELV+7, SSNNM+2, CVEDT+16, ODS+5 |
| ^DPT("AEL" | DGELST+106 |
| ^TMP($J | DGELST+4!, DGELST+12*, DGELST+14*, DGELST+22*, DGELST+30*, DGELST+34*, DGELST+38*, DGELST+45*, DGELST+52*, DGELST+56* , DGELST+61*, DGELST+69*, DGELST+76*, DGELST+81*, DGELST+88*, DGELST+93*, DGELST+102*, DGELST+112*, DGELST+115*, DGELST+119* , DGELST+125*, DGELST+128*, DGELST+140*, DGELST+143*, DGELST+146*, DGELST+148*, DGELST+152*, DGELST+161*, DGELST+167*, DGELST+169 , DGELST+170!, DGELV+4!, DGELV+13*, DGELV+15*, DGELV+24*, DGELV+30*, DGELV+35*, DGELV+40*, DGELV+44*, DGELV+49* , DGELV+54*, DGELV+61*, DGELV+62, DGELV+70*, DGELV+74*, DGELV+80*, DGELV+84*, DGELV+104*, DGELV+107*, DGELV+109 |
| Name | Line Occurrences |
|---|---|
| $$CVEDT | DGELST+132 |
| $$DATENP | DGELST+36, DGELST+50, DGELST+51 |
| $$DISP | DGELST+79, DGELST+86, DATENP+10 |
| $$MBCK | DGELST+75 |
| $$ODS | DGELST+121 |
| $$PAD | DGELST+12, DGELST+16, DGELST+19, DGELST+24, DGELST+36, DGELST+37, DGELST+39, DGELST+47, DGELST+50, DGELST+51 , DGELST+55, DGELST+60, DGELST+63, DGELST+66, DGELST+71, DGELST+73, DGELST+78, DGELST+83, DGELST+85, DGELST+92 , DGELST+101, DGELST+104, DGELST+118, DGELST+123, DGELST+127, DGELST+137, DGELST+139, DGELST+142, DGELST+150, DGELV+13 , DGELV+20, DGELV+27, DGELV+32, DGELV+37, DGELV+46, DGELV+51, DGELV+56, DGELV+69, DGELV+72, DGELV+73 , DGELV+76, DGELV+77, DGELV+78, DGELV+79, DGELV+99, DGELV+100, DGELV+101, DGELV+102, DGELV+103 |
| $$SSNNM | DGELST+7, DGELV+8 |
| $$WW | DGELST+16, DGELST+63, DGELST+90, DGELST+147, DGELV+17, DGELV+46, DGELV+51, DGELV+57 |
| $$WW1 | YN+3, YN2+2 |
| $$YN | DGELST+21 |
| $$YN2 | DGELST+26, DGELST+37, DGELST+39 |
| $$YN3 | DGELST+47, DGELST+64, DGELST+67, DGELST+71, DGELST+73, DGELST+84 |
| ELVSTOR | DGELV+62, DGELV+109 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| AAC | DGELST+1~, DGELST+97*, DGELST+98 |
| AAC(1 | DGELST+98*, DGELST+99 |
| AI | DGELV+2~, DGELV+86*, DGELV+87*, DGELV+90, DGELV+91, DGELV+93, DGELV+94, DGELV+95 |
| ARR | DGELV+2~, DGELV+82 |
| ARR( | DGELV+87, DGELV+90, DGELV+91, DGELV+93, DGELV+94, DGELV+95 |
| ARRNAME | ELVSTOR~, ELVSTOR+1, ELVSTOR+2 |
| BL | DATENP~, DATENP+10, DISP~, DISP+11 |
| BP0 | DGELV+89~, DGELV+93*, DGELV+98 |
| BP1 | DGELV+89~, DGELV+91*, DGELV+92, DGELV+98 |
| BP2 | DGELV+89~, DGELV+94*, DGELV+98 |
| BP4 | DGELV+89~, DGELV+95*, DGELV+99 |
| BP5 | DGELV+89~, DGELV+95*, DGELV+96 |
| BP6 | DGELV+89~, DGELV+95*, DGELV+97 |
| BPSSNUM | DGELST~, DGELST+169, DGELV~, DGELV+62, DGELV+109, ELVSTOR~, ELVSTOR+1 |
| CURR | DGELV+89~, DGELV+97*, DGELV+103 |
| CV | DGELST+2~, DGELST+132*, DGELST+133, DGELST+134, DGELST+135, DGELST+136, DGELST+141 |
| DFN | DGELST+1~, DGELST+6*, DGELST+7, DGELST+8, DGELST+106, DGELST+121, DGELST+122, DGELST+132, DGELST+155, DGELST+157 , DGELV+1~, DGELV+6*, DGELV+7, DGELV+8, DGELV+82, SSNNM~, SSNNM+2, CVEDT~, CVEDT+15, CVEDT+16 , CVEDT+21, ODS~, ODS+5, ODS+6 |
| DT | CVEDT+18 |
| EC | DGELV+2~, DGELV+64*, DGELV+65*, DGELV+66 |
| EFF | DGELV+2~, DGELV+67*, DGELV+68*, DGELV+69 |
| FILL | DGELST~, DGELV~ |
| I | DGELST+1~, DGELST+8*, DGELST+106*, DGELST+107, DGELST+108, DGELST+154*, DGELST+155*, DGELST+157, DGELST+159, DGELV+1~ , DGELV+7* |
| I1 | DGELST+2~, DGELST+105*, DGELST+109*, DGELST+110, DGELST+113, DGELST+158*, DGELST+160, DGELST+162, DGELST+164 |
| I3 | DGELST+2~, DGELST+154*, DGELST+159*, DGELST+165, DGELV+2~, DGELV+86*, DGELV+88*, DGELV+105 |
| I373 | DGELST+156~, DGELST+157*, DGELST+158 |
| INST | DGELST+2~, DGELST+58*, DGELST+59*, DGELST+60 |
| INSTP | DGELST+2~, DGELST+58*, DGELST+59, DGELST+60 |
| IVC | DGELV+2~, DGELV+58*, DGELV+59 |
| LC | DGELST+1~, DGELST+5*, DGELST+12*, DGELST+14*, DGELST+22*, DGELST+30*, DGELST+34*, DGELST+38*, DGELST+45*, DGELST+52* , DGELST+56*, DGELST+61*, DGELST+69*, DGELST+76*, DGELST+81*, DGELST+88*, DGELST+93*, DGELST+102*, DGELST+112*, DGELST+115* , DGELST+119*, DGELST+125*, DGELST+128*, DGELST+140*, DGELST+143*, DGELST+146*, DGELST+148*, DGELST+152*, DGELST+161*, DGELST+167* , DGELV+1~, DGELV+5*, DGELV+13*, DGELV+15*, DGELV+24*, DGELV+30*, DGELV+35*, DGELV+40*, DGELV+44*, DGELV+49* , DGELV+54*, DGELV+61*, DGELV+70*, DGELV+74*, DGELV+80*, DGELV+84*, DGELV+104*, DGELV+107* |
| LEN | DGELST+2~, DGELST+154*, PAD~, PAD+8 |
| LINE | DGELST+1~, DGELST+16*, DGELST+19*, DGELST+21*, DGELST+22, DGELST+24*, DGELST+26*, DGELST+27*, DGELST+29*, DGELST+30 , DGELST+33*, DGELST+34, DGELST+36*, DGELST+37*, DGELST+38, DGELST+39*, DGELST+40*, DGELST+41*, DGELST+44*, DGELST+45 , DGELST+47*, DGELST+48*, DGELST+50*, DGELST+51*, DGELST+52, DGELST+55*, DGELST+56, DGELST+60*, DGELST+61, DGELST+63* , DGELST+66*, DGELST+68*, DGELST+69, DGELST+71*, DGELST+73*, DGELST+74*, DGELST+76, DGELST+78*, DGELST+80*, DGELST+81 , DGELST+83*, DGELST+85*, DGELST+87*, DGELST+88, DGELST+90*, DGELST+92*, DGELST+93, DGELST+101*, DGELST+102, DGELST+104* , DGELST+110*, DGELST+111*, DGELST+112, DGELST+114*, DGELST+115, DGELST+118*, DGELST+119, DGELST+123*, DGELST+124*, DGELST+125 , DGELST+127*, DGELST+128, DGELST+134*, DGELST+137*, DGELST+139*, DGELST+140, DGELST+142*, DGELST+143, DGELST+146*, DGELST+147* , DGELST+148, DGELST+151*, DGELST+152, DGELST+153*, DGELST+160, DGELST+161, DGELST+162*, DGELST+164*, DGELST+166*, DGELST+167 , DGELV+2~, DGELV+17*, DGELV+20*, DGELV+23*, DGELV+24, DGELV+27*, DGELV+29*, DGELV+30, DGELV+32*, DGELV+34* , DGELV+35, DGELV+39*, DGELV+40, DGELV+43*, DGELV+44, DGELV+46*, DGELV+48*, DGELV+49, DGELV+51*, DGELV+53* , DGELV+54, DGELV+57*, DGELV+60*, DGELV+61, DGELV+66*, DGELV+69*, DGELV+70, DGELV+72*, DGELV+73*, DGELV+74 , DGELV+76*, DGELV+77*, DGELV+78*, DGELV+79*, DGELV+80, DGELV+83*, DGELV+84, DGELV+98*, DGELV+99*, DGELV+100* , DGELV+101*, DGELV+102*, DGELV+103*, DGELV+104, DGELV+106*, DGELV+107 |
| MAXLEN | DGELST+2~, DGELST+5*, DGELST+11, DGELST+13, DGELST+160, DGELV+1~, DGELV+5*, DGELV+12, DGELV+14 |
| MBCK | DGELST+1~, DGELST+75*, DGELST+79, MBCK+1~, MBCK+2*, MBCK+3 |
| N | YN3~, YN3+5, DATENP~, DATENP+10, DISP~, DISP+9 |
| NA | DGELST+1~, DGELST+25*, DGELST+26, DGELST+35*, DGELST+37, DGELST+39, YN2~, YN2+1, DATENP~, DATENP+10 , DISP~, DISP+10, DISP+11 |
| ODS | ODS+1~, ODS+2*, ODS+3, ODS+4*, ODS+7*, ODS+8 |
| ORIG | DGELV+89~, DGELV+96*, DGELV+101 |
| P | YN3~, YN3+5, DATENP~, DATENP+10, DISP~, DISP+9 |
| PAT | DGELST+1~, DGELST+7*, DGELST+11, DGELST+12, DGELV+1~, DGELV+8*, DGELV+12, DGELV+13 |
| POS | ODS+1~, ODS+6*, ODS+7 |
| RESULT | CVEDT+13~, CVEDT+14*, CVEDT+21*, CVEDT+22, CVEDT+24*, CVEDT+25*, CVEDT+26 |
| RP | DGELST+1~, DGELV+1~ |
| RP( | DGELST+8*, DGELST+25, DGELST+35, DGELST+40, DGELST+41, DGELST+42, DGELST+43, DGELST+47, DGELST+50, DGELST+51 , DGELST+54, DGELST+58, DGELST+64, DGELST+67, DGELST+71, DGELST+73, DGELST+79, DGELST+84, DGELST+86, DGELST+91 , DGELST+96, DGELST+97, DGELST+100, DGELST+117, DGELST+131, DGELV+7*, DGELV+18, DGELV+47, DGELV+52, DGELV+64 , DGELV+66, DGELV+67 |
| RP("TYPE" | DGELST+9, DGELST+17, DGELV+10, DGELV+11, DGELV+58 |
| RP("VET" | DGELST+20, DGELST+25, DGELST+98, DGELV+59 |
| RP(0 | DGELST+97 |
| RPE | DGELST+1~, DGELST+91*, DGELST+108 |
| RPNA | DGELV+1~, DGELV+14*, DGELV+23, DGELV+29, DGELV+39, DGELV+60 |
| RPTYPE | DGELST+1~, DGELST+10*, DGELST+11, DGELST+12, DGELV+1~, DGELV+9*, DGELV+11*, DGELV+12, DGELV+13 |
| RPU | DGELST+1~, DGELST+13*, DGELST+18, DGELST+55, DGELST+91, DGELST+101, DGELST+118, DGELST+124, DGELST+127, DGELV+1~ , DGELV+14*, DGELV+23, DGELV+29, DGELV+34, DGELV+39 |
| RPVR | DGELV+1~, DGELV+21*, DGELV+23, DGELV+29, DGELV+39 |
| RPW | DGELST+1~ |
| RPX | DGELST+1~, DGELST+17*, DGELST+20*, DGELST+21, DGELST+25*, DGELST+26, DGELST+32, DGELST+36, DGELST+37, DGELST+39 , DGELST+54*, DGELST+55, DGELST+117*, DGELST+118, DGELST+122*, DGELST+124, DGELST+127, DGELV+1~, DGELV+18*, DGELV+19 , DGELV+22, DGELV+26, DGELV+33, DGELV+38, DGELV+43, YN~, YN+2, YN2~, YN2+1 |
| RXIEN | DGELST~, DGELST+6, DGELV~, DGELV+6 |
| SHAD | DGELST+2~, DGELST+131*, DGELST+138, DGELST+141 |
| SP | DGELST+1~, DGELST+5*, DGELST+105, DGELV+1~, DGELV+5*, PAD+6~, PAD+7*, PAD+8 |
| SPS | DGELST+1~, DGELST+105*, DGELST+110, DGELST+150*, DGELST+151, DGELST+153, DGELST+162, DGELV+1~, DGELV+37*, DGELV+39 , DGELV+43, DGELV+56*, DGELV+57, DGELV+66, PAD+6~, PAD+8*, PAD+9 |
| SSN | SSNNM+1~, SSNNM+3*, SSNNM+4 |
| STATID | DGELV+1~, DGELV+26*, DGELV+28, DGELV+29 |
| TDT | CVEDT~, CVEDT+18*, CVEDT+19*, CVEDT+20, CVEDT+24 |
| U | DGELST+25, DGELST+32, DGELST+35, DGELST+40, DGELST+41, DGELST+42, DGELST+43, DGELST+55, DGELST+58, DGELST+96 , DGELST+97, DGELST+100, DGELST+117, DGELST+124, DGELST+127, DGELST+131, DGELST+134, DGELST+135, DGELST+136, DGELST+158 , DGELV+19, DGELV+22, DGELV+26, DGELV+33, DGELV+38, DGELV+43, DGELV+47, DGELV+52, DGELV+59, DGELV+64 , DGELV+66, DGELV+67, DGELV+93, DGELV+94, DGELV+95, SSNNM+3, SSNNM+4, YN+2, YN2+1, YN3+5 , DISP+9, CVEDT+25 |
| UNK | DATENP+9~, DATENP+10, DATENP+11, DISP~, DISP+10* |
| VA200 | DGELV+2~, DGELV+28*, DGELV+29 |
| VIEWTYPE | DGELST~, DGELV~ |
| VMETH | DGELV+1~, DGELV+38*, DGELV+39 |
| X | DGELST+1~, DGELST+9*, DGELST+10, DGELST+13*, DGELST+14, DGELST+20*, DGELST+21, DGELST+25*, DGELST+26, DGELST+32* , DGELST+33, DGELST+35*, DGELST+47*, DGELST+48, DGELST+49, DGELST+79*, DGELST+80, DGELST+86*, DGELST+87, DGELST+96* , DGELST+97, DGELST+100*, DGELST+101, DGELST+107*, DGELST+108, DGELST+110, DGELST+111, DGELST+149*, DGELST+151, DGELV+1~ , DGELV+14*, DGELV+15, DGELV+19*, DGELV+21, SSNNM+1~, SSNNM+2*, SSNNM+3, SSNNM+4*, SSNNM+5, YN~ , YN+2, YN2~, YN2+1, YN3+5*, YN3+6, DISP+8~, DISP+9*, DISP+10, DISP+11, MBCK~ , MBCK+2 |
| X1 | DGELST+1~, DGELST+11*, DGELST+12, DGELV+1~, DGELV+12*, DGELV+13 |
| Y | DGELST+43*, DGELST+44, DGELST+136*, DGELST+137, DGELV+1~, DGELV+22*, DGELV+23, DGELV+33*, DGELV+34, DGELV+47* , DGELV+48, DGELV+52*, DGELV+53, DGELV+68*, DGELV+96*, DGELV+97*, DATENP+9~, DATENP+10*, DATENP+11*, DATENP+12 |
| Z | DGELST+1~, DGELST+16*, DGELST+17*, DGELST+18*, DGELST+19, DGELST+26, DGELST+28, DGELST+31, DGELST+63*, DGELST+64* , DGELST+66, DGELST+67*, DGELST+68, DGELST+71*, DGELST+73*, DGELST+74, DGELST+75, DGELST+84*, DGELST+85, DGELST+90* , DGELST+91*, DGELST+92, DGELST+147*, DGELV+1~, DGELV+17*, DGELV+19*, DGELV+20, DGELV+46*, DGELV+51*, DGELV+57* , WW~, WW+1*, WW+2, WW1~, WW1+2*, WW1+3, YN+1~, YN+2*, YN+3, YN2~ , YN2+1*, YN2+2 |
| Z1 | DGELST+1~, DGELST+18*, DGELST+19, DGELST+20*, DGELST+21, DGELST+25*, DGELST+26, DGELST+65*, DGELST+66, DGELST+72* , DGELST+73, DGELST+84*, DGELST+85, DGELV+1~, DGELV+17*, DGELV+20, WW1~, WW1+2, YN~, YN+3 , YN2~, YN2+2 |
| Z2 | WW1+1~, WW1+2* |
| >> ZTQUEUED | DGELST+3, DGELV+3 |