BPSVRX ;ALB/ESG - View ECME Prescription ;5/23/2011
Source file <BPSVRX.m>
Name | Comments | DBIA/ICR reference |
---|---|---|
HDR | ; -- header code
|
|
HELP | ; -- help code
|
|
EXIT | ; -- ListManager exit code
|
|
INIT(BPSVRX) | ; ListManager entry point
|
|
INIT1 | ; internal branch point to perform all prompts (Rx, fill#, view type)
|
|
INIT2 | ; internal branch point for fill# prompt and view type prompt
|
|
INIT3 | ; internal branch point for view type prompt
|
|
INITX | ; finished with the INIT code to initially build the list
|
|
RXP() | ; prompt the user to enter the prescription
; output value of function is RXIEN^DFN ; return BPSVRXQ=1 to exit option |
|
RXPR | ;
|
|
RXP1 | ;
|
|
RXPX | ;
|
|
FILLP(RXIEN,DFN) | ; prompt for a fill# given the RXIEN and DFN
; return BPSVRXQ=1 to exit option |
|
FILLX | ;
|
|
VTP(RXIEN,FILL) | ; prompt for the view type of this report
; Most recent ECME transaction or All ECME transactions ; Output value of function is "M" or "A". ; return BPSVRXQ=1 to exit option |
|
VTPCB | ;
; check for cancelled bills and ask how they should be handled |
|
VTPX | ;
|
|
BUILD(RXIEN,FILL,VIEWTYPE) | ; build list
; This is called in the INIT section to build the ListMan scratch global ; all parameters are required and must exist when this is called |
|
BUILDX | ;
|
|
NAV(SNUM) | ; ListMan nav jumping
|
|
NAVX | ;
|
|
UPDATE(DISP,HDR,TITLE,NAME,SNUM) | ; update the BPSVRX ListMan display array
; DISP - display array to be merged into ^TMP("BPSVRX",$J) ; Assmues display lines are found in @DISP@(N,0) ; HDR - header data array (i.e. VALMHDR data); HDR(1)=line 1; HDR(2)=line 2; etc. ; TITLE - title of section (i.e. VALM("TITLE") ; NAME - name/description of section being added (required) ; SNUM - section number used for ListMan navigational jumps (required) |
|
UPDX | ;
|
|
FLN(LINE,DATA) | ; format line# LINE by reproducing any video attributes found in string DATA
|
|
FLNX | ;
|
|
HFS(SECTION,RTN,VRXHDR,HDRARY,BPSVRXKQ) | ; output data to scratch host file and merge into ListMan display array
; SECTION - section code (e.g. "BER" - billing events report, "CRI" - claims-response inquiry) ; RTN - tag^routine to invoke to produce the report ; VRXHDR - name of section to appear at the start of the display ; HDRARY - header array ; BPSVRXKQ - section# |
|
HFSX | ;
|
|
RFL(RXIEN,FILLIST) | ; Return a list of all ECME fill#s for the Rx
|
|
RFLX | ;
|
|
VER | ; Selection from the ECME User Screen
|
|
VERX | ;
|
Name | Line Occurrences |
---|---|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|