IBCEMMR ;ALB/ESG - IB MRA Report of Patients w/o Medicare WNR ; 03 Dec 2015 1:57 PM
Source file <IBCEMMR.m>
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 |
---|---|---|
Integrated Billing | 1 | IBCEM PATIENTS W/O MEDICARE |
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 | Field # of Occurrence |
---|---|
NOW^%DTC | EXCELHD+4 |
^%ZISC | COMPILE+74 |
$$S^%ZTLOAD | COMPILE+24, COMPILE+37, HEADER+33 |
$$GET1^DIQ | COMPILE+67 |
^DIR | GETSTDT+10, GETENDDT+16, FORMAT+16, SORT+16, PRINT+31, HEADER+8, DEVICE+34 |
ALLWNR^IBCNS1 | PTINS+14 |
$$MCRWNR^IBEFUNC | PTINS+19 |
$$DAT2^IBOUTL | EXCELHD+5 |
$$LAST^IBSDU | COMPILE+32 |
$$NEXT^IBSDU | COMPILE+31 |
$$DT^XLFDT | GETENDDT+11 |
$$FMTE^XLFDT | GETENDDT+11, COMPILE+68, GETAPDT+9, HEADER+22 |
$$NOW^XLFDT | HEADER+22 |
$$RJ^XLFSTR | HEADER+30 |
EN^XUTMDEVQ | DEVICE+31 |
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 |
|
Routine Call |
|
Name | Line Occurrences (* Changed, ! Killed) |
---|---|
^DIC(36 - [#36] | COMPILE+58 |
^DPT - [#2] | COMPILE+21, COMPILE+25, COMPILE+39, PTINS+13 |
^IBE(355.1 - [#355.1] | COMPILE+60, PTINS+22 |
^TMP($J | COMPILE+19!, COMPILE+27*, COMPILE+28*, COMPILE+29*, COMPILE+35, COMPILE+45, COMPILE+46, COMPILE+70*, COMPILE+76!, PRINT+16 , PRINT2+4, PRINT2+6, PRINT2+8, PRINT2+10, PRINT2+12, PRINT2+13 |
Name | Line Occurrences |
---|---|
$$CNVTDT | HEADER+25, EXCELHD+14 |
$$CSV | EXCELN+6, EXCELN+7, EXCELN+8, EXCELN+9, EXCELN+10, EXCELN+11 |
$$FILTER | EN+12 |
$$FORMAT | EN+23 |
$$GETAPDT | COMPILE+49 |
$$GETIBMST | COMPILE+63 |
$$PTINS | COMPILE+26, COMPILE+38 |
DEVICE | EN+26 |
EXCELHD | HEADER+14 |
EXCELN | PRINT2+15 |
GETENDDT | FILTER+23 |
GETSTDT | FILTER+21 |
HEADER | PRINT+18, PRINT+25, PRINT2+17 |
COMPILE+73 | |
PRINT2 | PRINT+27 |
PTINSX | PTINS+12, PTINS+13 |
SORT | EN+16 |
>> | Not killed explicitly |
* | Changed |
! | Killed |
~ | Newed |
Name | Field # of Occurrence |
---|---|
>> % | EXCELHD+5 |
A | COMPILE+15~, COMPILE+54*, COMPILE+55*, COMPILE+56, COMPILE+57, COMPILE+67, COMPILE+70, PRINT+4~, PRINT2+11*, PRINT2+12* , PRINT2+13, PTINS+10~, PTINS+15*, PTINS+16*, PTINS+17, PTINS+18, PTINS+20, PTINS+25 |
APPT | COMPILE+15~, COMPILE+45*, COMPILE+46*, COMPILE+49, COMPILE+51*, COMPILE+53, COMPILE+70, GETAPDT~, GETAPDT+9, GETAPDT+11 |
APTDTE | COMPILE+15~, COMPILE+49*, COMPILE+53, COMPILE+69, GETAPDT+7~, GETAPDT+9*, GETAPDT+10*, GETAPDT+11*, GETAPDT+12*, GETAPDT+13 , PRINT+4~, PRINT+7*, PRINT2+3*, PRINT2+4*, PRINT2+6, PRINT2+8, PRINT2+10, PRINT2+12, PRINT2+13 |
CH | SORT+3~, SORT+8*, SORT+9*, SORT+11 |
CNT | COMPILE+15~, COMPILE+20*, COMPILE+22*, COMPILE+23, COMPILE+24, COMPILE+36, COMPILE+37 |
CRT | PRINT+4~, PRINT+9*, PRINT+10*, PRINT+31, HEADER+6 |
DATA | COMPILE+15~, COMPILE+69*, COMPILE+70, PRINT+4~, PRINT2+13*, PRINT2+15, PRINT2+19, PRINT2+20, EXCELN~, EXCELN+7 , EXCELN+8, EXCELN+9, EXCELN+10, EXCELN+11, CSV~, CSV+7*, CSV+8 |
DATE | CNVTDT~, CNVTDT+2 |
DAY | CNVTDT+1~, CNVTDT+2*, CNVTDT+3 |
DF | PRINT+4~, PRINT+17*, PRINT+24*, PRINT+31 |
DFN | COMPILE+15~, COMPILE+20*, COMPILE+21*, COMPILE+25, COMPILE+26, COMPILE+27, COMPILE+28, COMPILE+29, COMPILE+34*, COMPILE+35* , COMPILE+38, COMPILE+39, COMPILE+45, COMPILE+46, COMPILE+67, COMPILE+70, PRINT+4~, PRINT2+9*, PRINT2+10*, PRINT2+12 , PRINT2+13, PTINS~, PTINS+12, PTINS+13, PTINS+14 |
DIR | FILTER+9~, GETSTDT+4~, GETSTDT+10!, GETENDDT+8~, GETENDDT+16!, FORMAT+11~, FORMAT+13!, SORT+3~, PRINT+4~, PRINT+31! , HEADER+3~, HEADER+8!, DEVICE+5~ |
DIR("?" | GETSTDT+7*, GETSTDT+8*, GETSTDT+9*, GETENDDT+12*, GETENDDT+13*, GETENDDT+14*, GETENDDT+15*, SORT+14*, SORT+15* |
DIR("A" | GETSTDT+6*, GETENDDT+10*, FORMAT+14*, SORT+12* |
DIR("B" | GETENDDT+11*, FORMAT+15*, SORT+13* |
DIR(0 | GETSTDT+5*, GETENDDT+9*, FORMAT+13*, SORT+11*, PRINT+31*, HEADER+8*, DEVICE+34* |
DIROUT | FILTER+9~, GETSTDT+4~, GETENDDT+8~, FORMAT+11~, SORT+3~, PRINT+4~, HEADER+3~, DEVICE+5~ |
DIRUT | FILTER+9~, GETSTDT+4~, GETENDDT+8~, FORMAT+11~, SORT+3~, PRINT+4~, HEADER+3~, DEVICE+5~ |
DPT | COMPILE+15~, COMPILE+39*, COMPILE+40, COMPILE+42 |
DT | PTINS+14 |
DTOUT | FILTER+9~, GETSTDT+4~, GETENDDT+8~, FORMAT+11~, SORT+3~, PRINT+4~, HEADER+3~, DEVICE+5~ |
DUOUT | FILTER+9~, GETSTDT+4~, GETENDDT+8~, FORMAT+11~, SORT+3~, PRINT+4~, HEADER+3~, DEVICE+5~ |
ENDDATE | EN+8~, EN+12, EN+26, FILTER~, FILTER+23, FILTER+25, GETENDDT~, GETENDDT+17*, COMPILE+53, HEADER+14 , HEADER+25, EXCELHD~, EXCELHD+14, DEVICE~ |
GP | PTINS+10~, PTINS+20*, PTINS+21 |
GRP | COMPILE+15~, COMPILE+56* |
HDR | HEADER+3~, HEADER+17*, HEADER+18, HEADER+19, HEADER+22*, HEADER+23, HEADER+24 |
IBCEEXCEL | EN+8~, EN+23, EN+26, FORMAT~, FORMAT+12*, FORMAT+17*, FORMAT+18, PRINT+11, PRINT+25, PRINT2+15 , HEADER+14, DEVICE~, DEVICE+7 |
IBGRP | PTINS+10~, PTINS+18*, PTINS+25 |
IBH | EXCELHD+3~, EXCELHD+15*, EXCELHD+16*, EXCELHD+17 |
IBHDT | EXCELHD+3~, EXCELHD+5*, EXCELHD+6 |
IBINS | PTINS+10~, PTINS+17*, PTINS+19, PTINS+25 |
IBMSORT | EN+8~, EN+17, SORT+5*, SORT+17*, COMPILE+63, GETIBMST~, GETIBMST+14, GETIBMST+15, GETIBMST+16, GETIBMST+17 , HEADER+14, HEADER+21, EXCELHD~, EXCELHD+9, EXCELHD+10, EXCELHD+11, EXCELHD+12 |
IBNEXT | COMPILE+15~, COMPILE+45*, COMPILE+49, GETAPDT~, GETAPDT+10 |
IBX | PRINT+4~ |
IBZ | EXCELN+5~, EXCELN+6*, EXCELN+7*, EXCELN+8*, EXCELN+9*, EXCELN+10*, EXCELN+11*, EXCELN+12 |
INCLUDE | PTINS+10~, PTINS+11*, PTINS+29*, PTINSX+1, PTINSX+2 |
INS | COMPILE+15~, COMPILE+56*, COMPILE+58, PTINS+10~ |
INS( | PTINS+16, PTINS+17, PTINS+18, PTINS+20 |
INSNM | COMPILE+15~, COMPILE+58*, COMPILE+59*, COMPILE+63, COMPILE+69, GETIBMST~, GETIBMST+16 |
IO | COMPILE+23, COMPILE+36 |
IO(0 | COMPILE+23, COMPILE+36 |
IOF | FILTER+10, HEADER+16 |
IOSL | PRINT+9, PRINT+10, PRINT+11* |
IOST | PRINT+9 |
LIN | HEADER+3~, HEADER+7* |
LSTVERDT | COMPILE+15~, COMPILE+67*, COMPILE+68*, COMPILE+69 |
MAXCNT | PRINT+4~, PRINT+9*, PRINT+10*, PRINT2+17, HEADER+7 |
MCRSUP | PTINS~, PTINS+11!, PTINSX+1! |
MCRSUP( | PTINS+25* |
MCRWNR | PTINS+10~, PTINS+15*, PTINS+16, PTINS+19*, PTINS+29 |
MCRZ | PTINS+10~, PTINS+15*, PTINS+24*, PTINS+29 |
MON | CNVTDT+1~, CNVTDT+2*, CNVTDT+3 |
MS | COMPILE+15~, COMPILE+26, COMPILE+38 |
MS( | COMPILE+55, COMPILE+56, COMPILE+57 |
PAGECNT | PRINT+4~, PRINT+13*, PRINT2+17, HEADER+6, HEADER+12*, HEADER+17 |
PLABBR | PTINS+10~, PTINS+21*, PTINS+22*, PTINS+23 |
PLN | COMPILE+15~, COMPILE+57*, COMPILE+60 |
PLNTYP | COMPILE+16~, COMPILE+60*, COMPILE+61*, COMPILE+63, COMPILE+69, GETIBMST~, GETIBMST+17 |
POP | DEVICE+5~ |
PTNM | COMPILE+16~, COMPILE+40*, COMPILE+41*, COMPILE+63, COMPILE+70, GETIBMST~, GETIBMST+14, GETIBMST+18, PRINT+4~, PRINT2+7* , PRINT2+8*, PRINT2+10, PRINT2+12, PRINT2+13, PRINT2+15, PRINT2+19, EXCELN~, EXCELN+6 |
RTN | COMPILE+16~, COMPILE+17*, COMPILE+19, COMPILE+70, COMPILE+76, PRINT+16, PRINT2+4, PRINT2+6, PRINT2+8, PRINT2+10 , PRINT2+12, PRINT2+13 |
SORT | COMPILE+16~, COMPILE+63*, COMPILE+70, GETIBMST+10~, GETIBMST+14*, GETIBMST+15*, GETIBMST+16*, GETIBMST+17*, GETIBMST+18*, GETIBMST+19 , PRINT+5~, PRINT2+5*, PRINT2+6*, PRINT2+8, PRINT2+10, PRINT2+12, PRINT2+13 |
SSN | COMPILE+16~, COMPILE+42*, COMPILE+43*, COMPILE+63, COMPILE+69, GETIBMST~, GETIBMST+15 |
STARTDT | EN+8~, EN+12, EN+26, FILTER~, FILTER+21, FILTER+22, FILTER+23, GETSTDT~, GETSTDT+11*, GETENDDT~ , GETENDDT+9, COMPILE+53, HEADER+14, HEADER+25, EXCELHD~, EXCELHD+14, DEVICE~ |
STOP | EN+8~, EN+11, EN+12*, EN+14, EN+15, EN+27*, FILTER+9~, FILTER+20, FILTER+25*, FILTER+26* , FILTER+27, FORMAT+11~, PRINT+5~, PRINT+13*, PRINT+25, PRINT+27, PRINT+28, PRINT2~, PRINT2+4, PRINT2+6 , PRINT2+8, PRINT2+10, PRINT2+12, PRINT2+17, HEADER+4*, HEADER+6, HEADER+9*, HEADER+34* |
STOP2 | EN+8~, EN+15, EN+17*, EN+20, EN+29* |
STR | EXCELHD+3~, EXCELHD+16* |
STRING | CSV~, CSV+8*, CSV+9 |
SUBSCRIPT | COMPILE+16~, COMPILE+76* |
TAB | HEADER+3~, HEADER+18*, HEADER+19, HEADER+23*, HEADER+24 |
TP | PTINS+10~, PTINS+21*, PTINS+22, PTINS+25 |
U | COMPILE+25, COMPILE+40, COMPILE+42, COMPILE+56, COMPILE+57, COMPILE+58, COMPILE+60, COMPILE+69, PRINT2+19, PRINT2+20 , EXCELN+7, EXCELN+8, EXCELN+9, EXCELN+10, EXCELN+11, EXCELHD+16, CSV+7, CSV+8, PTINS+17, PTINS+18 , PTINS+21, PTINS+22, PTINS+25 |
X | COMPILE+16~, COMPILE+19*, COMPILE+31*, COMPILE+32*, PRINT+5~ |
Y | GETSTDT+11, GETENDDT+17, FORMAT+17, SORT+17, PRINT+5~, HEADER+9 |
YR | CNVTDT+1~, CNVTDT+2*, CNVTDT+3 |
ZTDESC | DEVICE+5~, DEVICE+24*, DEVICE+31 |
>> ZTQUEUED | COMPILE+23, COMPILE+24, COMPILE+36, COMPILE+37, COMPILE+77, PRINT+31, HEADER+6, HEADER+33 |
>> ZTREQ | COMPILE+77* |
ZTRTN | DEVICE+5~, DEVICE+23*, DEVICE+31 |
ZTSAVE | DEVICE+5~, DEVICE+31 |
ZTSAVE("ENDDATE" | DEVICE+28* |
ZTSAVE("IBCEEXCEL" | DEVICE+29* |
ZTSAVE("IBMSORT" | DEVICE+25* |
ZTSAVE("STARTDT" | DEVICE+27* |
>> ZTSK | DEVICE+32, DEVICE+33 |
>> ZTSTOP | COMPILE+21, COMPILE+24*, COMPILE+35, COMPILE+37*, COMPILE+73, HEADER+34* |