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 |  All
Print Page as PDF
Routine: WVLRLINK

Package: Womens Health

Routine: WVLRLINK


Information

WVLRLINK ;HIOFO/FT-LAB-WOMEN'S HEALTH LINK ;9/29/04 14:34

Source Information

Source file <WVLRLINK.m>

Call Graph

Call Graph

Call Graph Total: 14

Package Total Call Graph
Womens Health 7 DELETE^WVLABADD  (MAIL,MOVE)^WVLABWP  RADMOD^WVPROC  ($$SNOMED,ADD)^WVSNOMED  $$SSN^WVUTL1  $$VET^WVUTL1A  $$ELIG^WVUTL9  
VA FileMan 4 FIND^DIC  FILE^DICN  ^DIE  $$GET1^DIQ  
Kernel 2 ^%ZTLOAD  $$HADD^XLFDT  
MailMan 1 ^XMD  

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 2 WVLABCHK  WVLABWP  
Lab Service 1 LRWOMEN  

Entry Points

Name Comments DBIA/ICR reference
PN(X) ; Get procedure name
VNVEC() ; Veteran/Non-Veteran/Eligibility Code check
; DFN must be defined
; Returns 1 - veteran
; include all non-vets flag set to YES
; non-vet patient's eligibility code is on list to track
MOVE(DFN,LRDFN,LRI,LRA,LRSS) ; Called from Lab package when a lab accession is
; moved from one patient to another because the test was originally
; associated to the wrong patient.
DELETEQ ; Called from DELETE above.
CREATE(DFN,LRDFN,LRI,LRA,LRSS) ;
; Add lab test to WH file (#790.08).
; Called by REPORT RELEASE DATE/TIME field in:
; a) File 63, Field 63.08,.11
; b) File 63, Field 63.09,.11
; Input: DFN = PATIENT DFN
; LRDFN = FILE 63 IEN (+^DPT(DFN,"LR"))
; LRI = INVERSE DATE/TIME OF TEST
; LRA = ZERO NODE OF THE CY or SP ENTRY
; LRSS = File 63 subscript (e.g., CY or SP)
CREATEQ ; Called from CREATE above
; WVLOC = WARD/CLINIC/LOCATION (FILE #44)
; WVDATE = DATE OF THE PROCEDURE (FM date/time)
; WVDR = DR STRING
; WVPROV = ORDERING PROVIDER (FILE #200)
; WVLABAN = LAB ACCESSION # (e.g., CY 99 1)
EXIT ;EP
RDC(WVRD) ; Return ien of Result/Diagnosis code
; input text of result/diagnois
MOVEQ ; Called from MOVE above
DELETE(DFN,LRDFN,LRI,LRA,LRSS) ;
; Modify WH to reflect change in lab report status (no longer released).
; Called by REPORT RELEASE DATE/TIME field xref in:
; a) File 63, Field 63.08,.11
; b) File 63, Field 63.09,.11
HL(WVLOC) ; Get Hospital Location file (#44) pointer

External References

Name Field # of Occurrence
^%ZTLOAD CREATE+21, DELETE+13, MOVE+8
FIND^DIC HL+2
FILE^DICN CREATEQ+36
^DIE MOVEQ+20
$$GET1^DIQ DELETEQ+13, DELETEQ+17
DELETE^WVLABADD DELETEQ+6, MOVEQ+7
MAIL^WVLABWP CREATEQ+38
MOVE^WVLABWP MOVEQ+23
RADMOD^WVPROC DELETEQ+12
$$SNOMED^WVSNOMED CREATEQ+20
ADD^WVSNOMED CREATEQ+21
$$SSN^WVUTL1 DELETEQ+26
$$VET^WVUTL1A VNVEC+6
$$ELIG^WVUTL9 VNVEC+9
$$HADD^XLFDT CREATE+18
^XMD DELETEQ+37

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^SC - [#44] FIND^DIC
^WV(790 - [#790] GET1^DIQ
^WV(790.02 - [#790.02] GET1^DIQ
^WV(790.08 - [#790.08] Classic Fileman Calls
^WV(790.1 - [#790.1] Classic Fileman Calls

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DPT - [#2] CREATEQ+7, DELETEQ+26
^WV(790.02 - [#790.02] CREATE+12, CREATE+13, DELETE+6, DELETE+7, DELETEQ+16, VNVEC+7, VNVEC+11
^WV(790.08 - [#790.08] DELETEQ+5, MOVEQ+5
^WV(790.1 - [#790.1] CREATEQ+24, DELETEQ+7, DELETEQ+10, DELETEQ+11, DELETEQ+22, MOVEQ+10, MOVEQ+12
^WV(790.2 - [#790.2] PN+2, PN+4
^WV(790.31 - [#790.31] RDC+3
^WV(790.4 - [#790.4] MOVEQ+21

Label References

Name Line Occurrences
$$HL CREATEQ+12
$$PN DELETEQ+23
$$RDC MOVEQ+16
$$VNVEC CREATEQ+8

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
DA MOVEQ+1~, MOVEQ+18*
DD CREATEQ+33!
DFN CREATE~, CREATE+11, CREATEQ+7, CREATEQ+25, CREATEQ+38, DELETE~, DELETE+5, DELETEQ+13, DELETEQ+26, MOVE~
, MOVE+3, VNVEC+6, VNVEC+9
DIC CREATEQ+34~, CREATEQ+35*
DIC("DR" CREATEQ+35*
DIC(0 CREATEQ+35*
DIE MOVEQ+1~, MOVEQ+18*
DLAYGO CREATEQ+34~, CREATEQ+35*
DO CREATEQ+33!
DR MOVEQ+1~, MOVEQ+18*
DT CREATEQ+30
DUZ(2 CREATE+12, CREATE+13, CREATEQ+27, CREATEQ+30, DELETE+6, DELETE+7, VNVEC+7, VNVEC+11
I EXIT+1!
LRA CREATE~, CREATE+11, CREATEQ+9, CREATEQ+10, CREATEQ+11, CREATEQ+13, DELETE~, DELETE+5, DELETEQ+3, MOVE~
, MOVE+3, MOVEQ+3
LRDFN CREATE~, CREATE+11, CREATEQ+31, DELETE~, DELETE+5, MOVE~, MOVE+3
LRI CREATE~, CREATE+11, CREATEQ+31, DELETE~, DELETE+5, MOVE~, MOVE+3
LRSS CREATE~, CREATE+11, CREATEQ+16, CREATEQ+31, CREATEQ+38, DELETE~, DELETE+5, MOVE~, MOVE+3
N EXIT+1!
U CREATE+13, CREATEQ+7, CREATEQ+9, CREATEQ+10, CREATEQ+11, CREATEQ+13, DELETE+7, DELETEQ+3, DELETEQ+23, DELETEQ+26
, DELETEQ+27, PN+4, MOVEQ+3, MOVEQ+13, MOVEQ+14, VNVEC+7
WVACCN MOVEQ+2~, MOVEQ+13*, MOVEQ+15, MOVEQ+21
WVALL VNVEC+5~, VNVEC+7*, VNVEC+8
WVARRAY HL+1~
WVARRAY("DILIST" HL+3
WVCMGR DELETEQ+1~, DELETEQ+13*, DELETEQ+14, DELETEQ+16, DELETEQ+17*, DELETEQ+18, MOVEQ+2~
WVDATE CREATEQ+6~, CREATEQ+9*, CREATEQ+29, DELETEQ+1~
WVDFN MOVEQ+2~, MOVEQ+14*, MOVEQ+23
WVDR CREATEQ+6~, CREATEQ+25*, CREATEQ+26*, CREATEQ+27*, CREATEQ+28*, CREATEQ+29*, CREATEQ+30*, CREATEQ+31*, CREATEQ+35
WVERR HL+1~
WVIEN DELETEQ+1~, DELETEQ+5*, DELETEQ+6, DELETEQ+10*, DELETEQ+11, DELETEQ+12, DELETEQ+22, MOVEQ+2~, MOVEQ+5*, MOVEQ+6
, MOVEQ+7
WVLABAN CREATEQ+6~, CREATEQ+10*, CREATEQ+24, CREATEQ+32, CREATEQ+38, DELETEQ+1~, DELETEQ+3*, DELETEQ+4, DELETEQ+5, DELETEQ+7
, DELETEQ+10, DELETEQ+28, MOVEQ+2~, MOVEQ+3*, MOVEQ+4, MOVEQ+5, MOVEQ+10
WVLABAN0 CREATEQ+6~
WVLOC CREATEQ+6~, CREATEQ+11*, CREATEQ+12*, CREATEQ+28, HL~, HL+2
WVLOOP DELETEQ+1~, DELETEQ+16*, DELETEQ+17, MOVEQ+2~, VNVEC+5~, VNVEC+9*, VNVEC+10, VNVEC+11
WVMSG DELETEQ+1~
WVMSG(1 DELETEQ+26*
WVMSG(10 DELETEQ+35*
WVMSG(2 DELETEQ+27*
WVMSG(3 DELETEQ+28*
WVMSG(4 DELETEQ+29*
WVMSG(5 DELETEQ+30*
WVMSG(6 DELETEQ+31*
WVMSG(7 DELETEQ+32*
WVMSG(8 DELETEQ+33*
WVMSG(9 DELETEQ+34*
WVNIEN MOVEQ+2~, MOVEQ+21*, MOVEQ+23
WVNODE DELETEQ+1~, DELETEQ+22*, DELETEQ+23, DELETEQ+27, MOVEQ+2~, MOVEQ+12*, MOVEQ+13, MOVEQ+14, MOVEQ+23
WVPIEN MOVEQ+2~, MOVEQ+10*, MOVEQ+11, MOVEQ+12, MOVEQ+18
WVPN DELETEQ+1~, DELETEQ+23*, DELETEQ+27, MOVEQ+2~
WVPROV CREATEQ+6~, CREATEQ+13*, CREATEQ+26, CREATEQ+38
WVRD MOVEQ+2~, MOVEQ+16*, MOVEQ+18, RDC~, RDC+2, RDC+3
X CREATEQ+32*, EXIT+1!, PN~, PN+1, PN+2*, PN+3, PN+4*, PN+5, VNVEC+5~
XMDUZ DELETEQ+2~, DELETEQ+24*
XMSUB DELETEQ+2~, DELETEQ+25*
XMTEXT DELETEQ+2~, DELETEQ+36*
XMY DELETEQ+2~
XMY( DELETEQ+14*, DELETEQ+18*
XMY(0 DELETEQ+20
Y CREATEQ+32*, CREATEQ+37, VNVEC+5~
ZTDESC CREATE+14~, CREATE+15*, DELETE+8~, DELETE+9*, MOVE+4~, MOVE+5*
ZTDTH CREATE+14~, CREATE+18*, DELETE+8~, DELETE+12*, MOVE+4~, MOVE+7*
ZTIO CREATE+14~, CREATE+17*, DELETE+8~, DELETE+12*, MOVE+4~, MOVE+7*
>> ZTQUEUED EXIT+2, DELETEQ+38, MOVEQ+24
>> ZTREQ EXIT+2*, DELETEQ+38*, MOVEQ+24*
ZTRTN CREATE+14~, CREATE+15*, DELETE+8~, DELETE+9*, MOVE+4~, MOVE+5*
ZTSAVE CREATE+14~, DELETE+8~, MOVE+4~
ZTSAVE("DFN" CREATE+16*, DELETE+10*, MOVE+6*
ZTSAVE("LRA" CREATE+16*, DELETE+10*, MOVE+6*
ZTSAVE("LRDFN" CREATE+16*, DELETE+10*, MOVE+6*
ZTSAVE("LRI" CREATE+16*, DELETE+10*, MOVE+6*
ZTSAVE("LRSS" CREATE+17*, DELETE+11*, MOVE+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 |  All