IVMLERR1 ;ALB/RMO,ERC - IVM Transmission Error Processing - Build List area; 15-SEP-1997 ; 2/20/08 11:10am
Source file <IVMLERR1.m>
| Package | Total | Call Graph |
|---|---|---|
| Income Verification Match | 2 | $$STATUS^IVMPLOG ($$EXT,$$GET)^IVMTLOG |
| Registration | 2 | $$UPPER^DGUTL PID^VADPT |
| List Manager | 1 | ($$LOWER,$$SETSTR)^VALM1 |
| VA FileMan | 1 | WAIT^DICD |
| 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(IVMARY,IVMBEG,IVMEND,IVMEPSTA,IVMSRTBY,IVMCNT) | ;Entry point to build list area for IVM transmission errors
|
|
| GET(IVMARY,IVMBEG,IVMEND,IVMEPSTA,IVMSRTBY) | ;Get IVM transmission log errors
; Input -- IVMARY Global array subscript ; IVMBEG Begin date ; IVMEND End date ; IVMEPSTA Error processing statuses ; IVMSRTBY Sort by criteria ; Output -- IVM Transmission log error list sorted by patient name ; ^TMP("IVMERRSRT",$J,<sort by>,<patient name>,<trans log IEN>) ; or date/time ack received ; ^TMP("IVMERRSRT",$J,<sort by>,<date/time ack received>,<trans log IEN>) ; or by error message (added with IVM*2*121) ; ^TMP("IVMERRSRT",$J,<sort by>,<error message>,<trans log IEN>) |
|
| SORT(IVMSRTBY,IVMDTR,IVMDFN,IVMTLIEN) | ;Set array based on sort criteria for IVM transmission log error list display
; Input -- IVMSRTBY Sort by criteria ; IVMDTR IVM transmission log date/time ack received ; IVMDFN IVM patient IEN ; IVMTLIEN IVM transmission log IEN ; Output -- None |
|
| BLD(IVMSRTBY,IVMCNT) | ;Build list area for for IVM transmission log errors
; Input -- IVMSRTBY Sort by criteria ; P - patient name ; D - date/time ack received ; E - error message ; O - error message of 'Person Not Found' only ; Output -- IVMCNT Number of lines in the list |
|
| SET(IVMARY,IVMLINE,IVMTEXT,IVMCOL,IVMWID,IVMNUM,IVMTLIEN,IVMDFN,IVMCNT) | ;Set display array
; Input -- IVMARY Global array subscript ; IVMLINE Line number ; IVMTEXT Text ; IVMCOL Column to start at ; IVMWID Column or text width ; IVMNUM Selection number ; IVMTLIEN IVM transmission log IEN ; IVMDFN IVM patient IEN ; Output -- IVMCNT Number of lines in the list |
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^DPT - [#2] | SORT+10 |
| ^IVM(301.6 - [#301.6] | GET+15, GET+20, GET+23 |
| ^TMP( | SET+12, SET+13*, SET+14*, SET+18*, SET+19* |
| ^TMP("IVMERRSRT" | SORT+10*, SORT+12*, SORT+20*, BLD+20, BLD+23 |
| Name | Line Occurrences |
|---|---|
| BLD | EN+22 |
| GET | EN+19 |
| SET | EN+26, EN+27, BLD+32, BLD+35, BLD+38, BLD+41, BLD+44, BLD+47, BLD+54 |
| SORT | GET+23 |
| Name | Field # of Occurrence |
|---|---|
| ^(0 | SORT+10, SET+12 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| DFN | BLD+7~, BLD+40* |
| IVMARY | EN~, EN+19, EN+26, EN+27, GET~, BLD+32, BLD+35, BLD+38, BLD+41, BLD+44 , BLD+47, BLD+54, SET~, SET+12, SET+13, SET+14, SET+18, SET+19 |
| IVMBEG | EN~, EN+19, GET~, GET+15 |
| IVMCNT | EN~, EN+22, EN+25, EN+26, EN+27, BLD~, BLD+32, BLD+35, BLD+38, BLD+41 , BLD+44, BLD+47, BLD+54, SET~, SET+11* |
| IVMCOL | BLD+7~, SET~, SET+13 |
| IVMCOL("DTR" | BLD+15*, BLD+44 |
| IVMCOL("NUM" | BLD+11*, BLD+32 |
| IVMCOL("PAT" | BLD+13*, BLD+38 |
| IVMCOL("PTID" | BLD+14*, BLD+41 |
| IVMCOL("RET" | BLD+12*, BLD+35 |
| IVMCOL("STA" | BLD+16*, BLD+47 |
| IVMDFN | GET+12~, GET+19*, GET+20*, GET+23, SORT~, SET~, SET+17, SET+19 |
| IVMDTR | GET+12~, GET+15*, GET+20, GET+23, SORT~, SORT+12 |
| IVMEND | EN~, EN+19, GET~, GET+15 |
| IVMEPSTA | EN~, EN+19, GET~, GET+17 |
| IVMLINE | BLD+10*, BLD+24, BLD+30*, BLD+32, BLD+35, BLD+38, BLD+41, BLD+44, BLD+47, BLD+49* , BLD+54, SET~, SET+11, SET+12, SET+13, SET+14, SET+18, SET+19 |
| IVMNUM | BLD+10*, BLD+28*, BLD+32, BLD+35, BLD+38, BLD+41, BLD+44, BLD+47, BLD+54, SET~ , SET+14, SET+18 |
| IVMQ | SORT+14~, SORT+15*, SORT+18*, SORT+19 |
| IVMSRTBY | EN~, EN+19, EN+22, GET~, GET+23, SORT~, SORT+7*, SORT+8, SORT+10, SORT+11 , SORT+12, SORT+13, SORT+17, SORT+20, BLD~, BLD+19, BLD+20, BLD+23 |
| IVMSUB | BLD+7~, BLD+19*, BLD+20*, BLD+23 |
| IVMTEXT | BLD+7~, BLD+34*, BLD+35, BLD+37*, BLD+38, BLD+43*, BLD+44, BLD+46*, BLD+47, BLD+51* , BLD+53*, BLD+54, SET~, SET+13 |
| IVMTLIEN | GET+12~, GET+22*, GET+23*, SORT~, SORT+9, SORT+10, SORT+12, SORT+16, SORT+20, BLD+7~ , BLD+22*, BLD+23*, BLD+26, BLD+32, SET~, SET+17, SET+18, SET+19 |
| IVMTLOG | SORT+6~, SORT+9, SORT+16, BLD+7~, BLD+26 |
| IVMTLOG("DFN" | SORT+10, BLD+40 |
| IVMTLOG("DT/T | M ACK" , BLD+43 |
| IVMTLOG("ERRO | R STATUS" , BLD+46 |
| IVMTLOG("ERROR" | SORT+18, SORT+20, BLD+51 |
| IVMTLOG("PAT" | BLD+32, BLD+34, BLD+37 |
| IVMWID | BLD+7~, SET~, SET+13 |
| IVMWID("DTR" | BLD+15*, BLD+44 |
| IVMWID("NUM" | BLD+11*, BLD+32 |
| IVMWID("PAT" | BLD+13*, BLD+38 |
| IVMWID("PTID" | BLD+14*, BLD+41 |
| IVMWID("RET" | BLD+12*, BLD+35 |
| IVMWID("STA" | BLD+16*, BLD+47 |
| PCE | GET+12~, GET+17* |
| STA | GET+12~, GET+17*, GET+20, GET+23 |
| U | GET+17, SORT+10, BLD+11, BLD+12, BLD+13, BLD+14, BLD+15, BLD+16, SET+18 |
| VA | BLD+7~ |
| VA("BID" | BLD+41 |
| >> VALMDDF("DATE/TIME" | BLD+15 |
| >> VALMDDF("NUMBER" | BLD+11 |
| >> VALMDDF("PATIENT" | BLD+13 |
| >> VALMDDF("PTID" | BLD+14 |
| >> VALMDDF("RETRANSMIT" | BLD+12 |
| >> VALMDDF("STATUS" | BLD+16 |
| X | BLD+7~, BLD+11*, BLD+12*, BLD+13*, BLD+14*, BLD+15*, BLD+16*, BLD+52!*, BLD+53, SET+10~ , SET+12*, SET+13 |