IVMLERR1 ;ALB/RMO,ERC - IVM Transmission Error Processing - Build List area; 15-SEP-1997 ; 2/20/08 11:10am
Source file <IVMLERR1.m>
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 |