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 |
Package | Total | Caller Graph |
---|---|---|
Income Verification Match | 1 | IVMLERR |
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 |