IBCEMMR ;ALB/ESG - IB MRA Report of Patients w/o Medicare WNR ; 03 Dec 2015 1:57 PM
Source file <IBCEMMR.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| EN | ; Entry Point
; ENDDATE - IB*2.0*549 End date for new filtering criteria ; STARTDT - IB*2.0*549 Start date for new filtering criteria ; IBCEEXCEL - IB*2.0*549 Enabling the capture of output and state report width to be 80 characters to a ; spreadsheet |
|
| FILTER(STARTDT,ENDDATE) | ; IB*2.0*549 New tag for getting
; start/end dates to filter by Last ; Appointment Date ; Input and state report width to be 80 characters/Output and state report width to be 80 characters (passed by reference) ; STARTDT - Start date for new filtering criteria ; ENDDATE - End date for new filtering criteria ; Return - 1 for continuing on in EN ; 0 for exiting EN |
|
| GETSTDT(STARTDT) | ; IB*2.0*549 Get start date for date filter
; Input and state report width to be 80 characters/Output and state report width to be 80 characters (Passed by reference) ; STARTDT - Start date for new filtering criteria |
|
| GETENDDT(STARTDT,ENDDATE) | ; IB*2.0*549 Get end date for date filter
; Input and state report width to be 80 characters ; STARTDT - Start date for new filtering criteria ; ENDDT - End date for new filtering criteria |
|
| FORMAT(IBCEEXCEL) | ; IB*2.0*549 - capture the report format from
; the user (normal or CSV output and state report width to be 80 characters) ; Input and state report width to be 80 characters (passed by reference) ; IBCEEXCEL ; Output and state report width to be 80 characters ; IBCEEXCEL=0 for normal output and state report width to be 80 characters ; IBCEEXCEL=1 for CSV (comma separated values) for Excel ; Return ; 1 for good input and state report width to be 80 characters; or ; 0 for going back |
|
| SORT | ; Ask user how to sort the report
; (Secondary sort) |
|
| SORTX | ;
|
|
| COMPILE | ; Entry point for both background and foreground task execution
|
|
| COMPX | ;
|
|
| GETAPDT(APPT,IBNEXT) | ; Get APTDTE from APPT/IBNEXT
; Input and state report width to be 80 characters ; APPT - Appointment date (external format) ; IBNEXT - Next appointment date ; Output and state report width to be 80 characters ; APTDTE - Appointment date (external format) |
|
| GETIBMST(IBMSORT,PTNM,SSN,INSNM,PLNTYP) | ; Get SORT from PTNM/SSN/INSNM/PLNTYP
; Input and state report width to be 80 characters ; IBMSORT - Sort choice index ; PTNM - Patient name ; SSN - SSN ; INSNM - Insurance name ; PLNTYP - Plan type ; Output and state report width to be 80 characters ; SORT - Secondary sort for report |
|
| ; print the report to the device specified
; IB*2.0*549 APTDTE - Last appointment date (Primary sort criteria) ; Add APTDTE/DTOUT/DUOUT and alphabetize variables ; Add DF for data found |
||
| PRINTX | ;
|
|
| PRINT2(STOP) | ; Rest of Print tag
; IB*2.0*549 Put loops in new tag ; IB*2.0*549 Incorporate new primary sort criteria |
|
| EXCELN(PTNM,DATA) | ; IB*2.0*549 output and state report width to be 80 characters one Excel line
; Input and state report width to be 80 characters ; PTNM - Patient name ; DATA - Report data |
|
| HEADER | ; page break and report header information
; IB*2.0*549 Add DIR/DIROUT/DIRUT/DTOUT/DUOUT |
|
| HEADERX | ;
|
|
| CNVTDT(DATE) | ; IB*2.0*549 Convert from VA internal date to MM/DD/YY
|
|
| EXCELHD(ENDDATE,IBMSORT,STARTDT) | ; IB*2.0*549 print an Excel CSV header record (only 1 Excel CSV header
; should print for the whole report) ; IB*2.0*549 - Added code to enhance report header and simplify setting of IBMSORT |
|
| CSV(STRING,DATA) | ; IB*2.0*549 build the Excel data string for CSV format
; Input and state report width to be 80 characters ; STRING - Excel data string being added on to ; DATA - Data to be added to string ; Output and state report width to be 80 characters ; STRING - Data string which was added to |
|
| PTINS(DFN,MCRSUP) | ; Function to determine if a patient should be
; included in this report or not. ; Input and state report width to be 80 characters: DFN - patient ien ; Output and state report width to be 80 characters: Function value is either 0 (don't include) or 1 (include) ; MCRSUP array pass by reference ; MCRSUP(seq) = [1] insurance co ien pointer to file 36 ; [2] group pointer to file 355.3 ; [3] type of plan pointer to file 355.1 |
|
| PTINSX | ;
|
|
| DEVICE(STARTDT,ENDDATE,IBCEEXCEL) | ; This procedure displays a warning message
; AND prompts for the device on which to ; print the report. |
|
| DEVICEX | ;
|
| 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 |
|
| 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 |
|
| 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 |
|
| 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 |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
