WVLABWP ;HCIOFO/FT-Display Report Data from Lab Package ;4/6/99 14:02
Source file <WVLABWP.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 |
|---|---|---|
| EN7901 | ; Determine which report to show (i.e., Cytology or Surgical Pathology)
; Called from WVPROC |
|
| HS | ; Health Summary variable setup
|
|
| CY | ; Call Health Summary extract routine GMTSLRPE to get cytology data.
; Input: LRDFN - FILE 63 ien ; GMTS1 - reverse start date/time (most recent date) ; GMTS2 - reverse end date/time (least recent date) ; MAX - maximum # of occurences to return ; Returns ^TMP("LRCY",$J) |
|
| WEEDCY | ; Weed out reports, save only report for lab accession number
; associated with this WH entry. |
|
| SP | ; Call Health Summary extract routine GMTSLRAE to get surgical
; pathology data. ; Input: LRDFN - FILE 63 ien ; GMTS1 - reverse start date/time (most recent date) ; GMTS2 - reverse end date/time (least recent date) ; MAX - maximum # of occurences to return ; Returns ^TMP("LRA",$J) |
|
| WEEDSP | ; Weed out reports, save only report for lab accession number
; associated with this WH entry. |
|
| MAIL(DFN,WVLABAN,WVPROV,LRSS) | ; Send mail message to case manager when
; lab test is added to WV LAB TESTS file (#790.08). ; Called from WVLRLINK ; DFN -> Patient ien ; WVLABAN -> Lab Accession# (e.g., CY 99 1) ; WVPROV -> File 200 IEN (provider/requestor) ; LRSS -> File 63 subscript (e.g., CY or SP) |
|
| MOVE(WVDFN,WVNODE,WVNIEN) | ; Send mail message when a lab accession is
; moved from one patient to another. ; WVDFN -> DFN ; WVNODE -> zero node of File 790.1 ; WVNIEN -> ien of File 790.4 entry (i.e., notification entry exists) |
| FileNo | Call Tags |
|---|---|
| ^VA(200 - [#200] | GET1^DIQ |
| ^WV(790 - [#790] | GET1^DIQ |
| ^WV(790.02 - [#790.02] | GET1^DIQ |
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^DPT - [#2] | MAIL+21, MOVE+25 |
| ^TMP("LRA" | HS+5!, SP+7!, SP+10, SP+12, WEEDSP+4, WEEDSP+5, WEEDSP+6! |
| ^TMP("LRCY" | HS+5!, CY+6!, CY+9, CY+11, WEEDCY+4, WEEDCY+5, WEEDCY+6! |
| ^WV(790.02 - [#790.02] | MAIL+12, MOVE+10 |
| ^WV(790.1 - [#790.1] | EN7901+5, EN7901+7 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| >> DA | EN7901+3, EN7901+5, EN7901+7 |
| DFN | MAIL~, MAIL+7, MAIL+9, MAIL+21 |
| GMTS1 | HS+1~, HS+2* |
| GMTS2 | HS+1~, HS+2* |
| LRDFN | EN7901+4~, EN7901+13*, EN7901+14 |
| LRSS | EN7901+4~, EN7901+15*, EN7901+16, HS+3, HS+4, MAIL~, MAIL+7, MAIL+19 |
| MAX | HS+1~, HS+2* |
| U | EN7901+9, EN7901+11, EN7901+13, EN7901+15, WEEDCY+5, WEEDSP+5, MAIL+21, MOVE+15, MOVE+25, MOVE+26 |
| WVCMGR | MAIL+8~, MAIL+9*, MAIL+10, MAIL+12, MAIL+13*, MAIL+14, MOVE+5~, MOVE+7*, MOVE+8, MOVE+10 , MOVE+11*, MOVE+12 |
| WVDATE | EN7901+4~, EN7901+11*, EN7901+12, HS+2 |
| WVDFN | MOVE~, MOVE+7, MOVE+25 |
| WVLABACC | EN7901+4~, EN7901+9*, EN7901+10, WEEDCY+5, WEEDSP+5 |
| WVLABAN | MAIL~, MAIL+7, MAIL+22 |
| WVLOOP | WEEDCY+2~, WEEDCY+3*, WEEDCY+4*, WEEDCY+5, WEEDCY+6, WEEDSP+2~, WEEDSP+3*, WEEDSP+4*, WEEDSP+5, WEEDSP+6 , MAIL+8~, MAIL+12*, MAIL+13, MOVE+5~, MOVE+10*, MOVE+11 |
| WVMSG | MAIL+8~, MOVE+5~ |
| WVMSG(1 | MAIL+19*, MOVE+19* |
| WVMSG(10 | MOVE+28* |
| WVMSG(11 | MOVE+29* |
| WVMSG(12 | MOVE+30* |
| WVMSG(13 | MOVE+32* |
| WVMSG(14 | MOVE+33* |
| WVMSG(15 | MOVE+34* |
| WVMSG(16 | MOVE+35* |
| WVMSG(2 | MAIL+20*, MOVE+20* |
| WVMSG(3 | MAIL+21*, MOVE+21* |
| WVMSG(4 | MAIL+22*, MOVE+22* |
| WVMSG(5 | MAIL+23*, MOVE+23* |
| WVMSG(6 | MAIL+24*, MOVE+24* |
| WVMSG(7 | MAIL+25*, MOVE+25* |
| WVMSG(8 | MAIL+26*, MOVE+26* |
| WVMSG(9 | MAIL+27*, MOVE+27* |
| WVNIEN | MOVE~, MOVE+31 |
| WVNODE | EN7901+4~, EN7901+5*, EN7901+6, MOVE~, MOVE+15, MOVE+26 |
| WVNODE2 | EN7901+4~, EN7901+7*, EN7901+8, EN7901+9, EN7901+11, EN7901+13, EN7901+15 |
| WVPN | MOVE+5~, MOVE+15*, MOVE+26 |
| WVPROV | MAIL~, MAIL+23 |
| XMDUZ | MAIL+8~, MAIL+17*, MOVE+6~, MOVE+16* |
| XMSUB | MAIL+8~, MAIL+18*, MOVE+6~, MOVE+17* |
| XMTEXT | MAIL+8~, MAIL+28*, MOVE+6~, MOVE+37* |
| XMY | MOVE+6~ |
| XMY( | MAIL+10*, MAIL+14*, MOVE+8*, MOVE+12* |
| XMY(0 | MAIL+16, MOVE+14 |
| >> ZTQUEUED | MOVE+39 |
| >> ZTREQ | MOVE+39* |
