BPSVRX2 ;SLT - View ECME Prescription ;7/18/2011
Source file <BPSVRX2.m>
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 | 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 |