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 |
| 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* |