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 |
Package | Total | Caller Graph |
---|---|---|
E Claims Management Engine | 1 | BPSVRX |
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 |