Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call
Print Page as PDF
Routine: BPSVRX2

Package: E Claims Management Engine

Routine: BPSVRX2


Information

BPSVRX2 ;SLT - View ECME Prescription ;7/18/2011

Source Information

Source file <BPSVRX2.m>

Entry Points

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

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,"Compiling data for View Registration Eligibility Status ... "
  • Line Location: DGELST+3
Function Call: WRITE
  • Prompt: !,"Compiling data for View Registration Eligibility Verification ... "
  • Line Location: DGELV+3

FileMan Files Accessed Via FileMan Db Call

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
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call