Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables |  Marked Items |  All
Print Page as PDF
Routine: WVLABWP

Package: Womens Health

Routine: WVLABWP


Information

WVLABWP ;HCIOFO/FT-Display Report Data from Lab Package ;4/6/99 14:02

Source Information

Source file <WVLABWP.m>

Call Graph

Call Graph

Call Graph Total: 9

Package Total Call Graph
Womens Health 5 ^WVLABWPC  ^WVLABWPS  $$PN^WVLRLINK  EX^WVRADWP  $$SSN^WVUTL1  
Health Summary 2 XTRCT^GMTSLRAE  XTRCT^GMTSLRPE  
MailMan 1 ^XMD  
VA FileMan 1 $$GET1^DIQ  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

protocol O screenman SM broker B event driver Ed print P extended action Ea limited protocol LP edit E server Se subscriber Su inquire I run routine RR action A

Caller Graph

Caller Graph Total: 3

Package Total Caller Graph
Womens Health 3 WVLABADD  WVLRLINK  WVPROC  

Entry Points

Name Comments DBIA/ICR reference
WEEDSP ; Weed out reports, save only report for lab accession number
; associated with this WH entry.
HS ; Health Summary variable setup
EN7901 ; Determine which report to show (i.e., Cytology or Surgical Pathology)
; Called from WVPROC
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)
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)
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.
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)

External References

Name Field # of Occurrence
$$GET1^DIQ MAIL+9, MAIL+13, MAIL+23, MOVE+7, MOVE+11
XTRCT^GMTSLRAE SP+8, SP+9
XTRCT^GMTSLRPE CY+7, CY+8
^WVLABWPC CY+12
^WVLABWPS SP+13
$$PN^WVLRLINK MOVE+15
EX^WVRADWP EN7901+2
$$SSN^WVUTL1 MAIL+21, MOVE+25
^XMD MAIL+29, MOVE+38

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^VA(200 - [#200] GET1^DIQ
^WV(790 - [#790] GET1^DIQ
^WV(790.02 - [#790.02] GET1^DIQ

Global Variables Directly Accessed

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

Label References

Name Line Occurrences
CY HS+3
HS EN7901+17
SP HS+4
WEEDCY CY+10
WEEDSP SP+11

Local Variables

Legend:

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

Marked Items

Name Field # of Occurrence
$T(XTRCT^GMTSLRAE SP+8
$T(XTRCT^GMTSLRPE CY+7
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables |  Marked Items |  All