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 |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables  | All
Print Page as PDF
Routine: LRAPV

Package: Lab Service

Routine: LRAPV


Information

LRAPV ;AVAMC/REG/WTY - ANAT PATH REPORTS NOT VERIFIED ;1/17/02

Source Information

Source file <LRAPV.m>

Call Graph

Call Graph

Call Graph Total: 8

Package Total Call Graph
Kernel 4 (,HOME)^%ZIS  ^%ZISC  ^%ZTLOAD  $$FMTE^XLFDT  
Lab Service 2 ^LRAP  (B,D,L,S,SSN,V,XR)^LRU  
VA FileMan 2 ^%DT  ^DIR  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

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

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Lab Service 1 LRAPV  

Entry Points

Name Comments DBIA/ICR reference
A ;Initialize some variables
ASK ;Ask which option to run
DEV ;Get Device Info
QUE ;
Y ;Get patient info
I ;Order through the cross reference
SEL ;
N ;
RPT ;Unverified reports
SUPP ;Unverified Supplementary Reports
SNO ;Missing SNOMED
W ;Write the report
H ;Header
H1 ;
END ;

External References

Name Field # of Occurrence
^%DT H+6
^%ZIS DEV+2
HOME^%ZIS DEV+8
^%ZISC END+1
^%ZTLOAD DEV+7
^DIR H+3
^LRAP A+2
B^LRU ASK+10
D^LRU H+6
L^LRU QUE+3
S^LRU QUE+3
SSN^LRU Y+4
V^LRU END+3
XR^LRU QUE+3
$$FMTE^XLFDT W+1

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!?3,"1) List of Unverified ",LRO(68)," Reports"
  • Line Location: ASK+1
Function Call: WRITE
  • Prompt: !?3,"2) List of Unverified ",LRO(68)," Supplementary Reports"
  • Line Location: ASK+2
Function Call: WRITE
  • Prompt: !?3,"3) List of ",LRO(68)," Reports Missing SNOMED Codes"
  • Line Location: ASK+3
Function Call: WRITE
  • Prompt: !!,"Select 1,2 or 3: "
  • Line Location: ASK+4
Function Call: WRITE
  • Prompt: !
  • Line Location: DEV+1
Function Call: WRITE
  • Prompt: !
  • Line Location: DEV+3
Function Call: WRITE
  • Prompt: !,"Request Queued, #",ZTSK
  • Condition for execution: $D(ZTSK)
  • Line Location: DEV+7
Function Call: WRITE
  • Prompt: !
  • Line Location: DEV+7
Function Call: WRITE
  • Prompt: !,$$FMTE^XLFDT(LRDATE,"D"),?19,$J($P(LRDATE,"^",6),5),?32,LRP
  • Line Location: W+1
Function Call: WRITE
  • Prompt: ?63,SSN
  • Line Location: W+2
Function Call: WRITE
  • Prompt: !?3,B
  • Line Location: W+6
Function Call: WRITE
  • Prompt: !
  • Line Location: H+3
Function Call: WRITE
  • Prompt: !,Y,?22,LRQ(1),?(IOM-10),"Pg: ",LRQ
  • Line Location: H+7
Function Call: WRITE
  • Prompt: !,LRO(68)," (",LRABV,") "
  • Line Location: H+8
Function Call: WRITE
  • Prompt: "UNVERIFIED"
  • Line Location: H+9
Function Call: WRITE
  • Prompt: " SUPPLEMENTARY"
  • Condition for execution: LRB=2
  • Line Location: H+9
Function Call: WRITE
  • Prompt: " REPORTS"
  • Line Location: H+9
Function Call: WRITE
  • Prompt: !,"BY DATE SPECIMEN TAKEN FROM ",LRSTR," TO ",LRLST
  • Line Location: H+11
Function Call: WRITE
  • Prompt: !,"DATE",?15,"Accession number",?32,"Patient",?66,"SSN",!,LR("%")
  • Line Location: H+12
Function Call: WRITE
  • Prompt: !?19,$J($P(LRDATE,"^",6),5),?32,LRP,?63,SSN
  • Line Location: H1+1
Routine Call
  • DIR
  • Line Location:
    • H+3
Routine Call
  • %ZIS
  • Line Location:
    • DEV+2
Routine Call
  • %ZIS
  • Line Location:
    • DEV+8

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DIC - [#1] Y+3
^LR - [#63] QUE+4, Y+1, Y+2, I+1, W+4, W+5

Label References

Name Line Occurrences
ASK ASK+7
END A+2, ASK+6, ASK+11, DEV+3, DEV+9, QUE+5
H QUE+3, I+2, H1+1
H1 W+6
I Y+5
RPT SEL+1
SEL Y+6, I+4
SNO SEL+3
SUPP SEL+2
W RPT+4, SUPP+9, SNO+8
Y QUE+4

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
% END+2!
>> %DT H+6*
>> %ZIS DEV+2*
>> B W+5*, W+6
DIR H+2!, END+2!
DIR(0 H+2*
DIRUT END+2!
DTIME ASK+5
DTOUT H+4, END+2!
DUOUT END+2!
IO QUE+1
IO("Q" DEV+4, DEV+8!
IOF QUE+1, H+5, END+1
IOM H+7
IOSL I+2, W+6
IOST QUE+1, H+1, END+1
>> LR("%" H+12
>> LR("AU1" A+3*, A+4, A+5, Y+5, Y+6, I+3, RPT+1, RPT+2, RPT+3, SUPP+8
, SNO+2, SNO+3, SNO+7, W+3
>> LR("F" QUE+3*
>> LR("Q" QUE+4, Y+1, I+1, I+2, W+4, W+6, H+1, H+4*, H1+1
LRA A+1~, SUPP+3*, W+4*, W+5
>> LRABV I+3, H+8
>> LRB ASK+10*, SEL+1, SEL+2, SEL+3, H+9, H+10
>> LRC SUPP+3*, SUPP+4*, SUPP+6*, SUPP+7, SNO+1*, SNO+4*, SNO+5*, SNO+6
>> LRDATE RPT+3*, SUPP+8*, SNO+7*, W+1, H1+1
>> LRDPF Y+2*
LRFILE A+1~, A+4*, A+5*, I+3, RPT+1, RPT+3, SUPP+8, SNO+2, SNO+7
LRFILE1 A+1~, A+4*, A+5*, SUPP+3, SUPP+4, SUPP+6
LRFILE2 A+1~, SNO+2*, SNO+3*, SNO+4, SNO+5
LRI A+1~, I+1*, W+4, W+5
>> LRLDT QUE+2*, QUE+4
>> LRLST H+11
>> LRO(68 ASK+1, ASK+2, ASK+3, H+8
>> LRP Y+3*, W+1, H1+1
LRPD A+1~, Y+1*, Y+2, I+1, W+4, W+5
>> LRQ H+1, H+5*, H+7
>> LRQ(1 H+7
>> LRSDT QUE+2*, QUE+4*, Y+1, I+1
>> LRSS A+3, W+4, W+5
>> LRSTR H+11
>> LRXR QUE+4, Y+1, I+1
>> POP DEV+3
>> SSN Y+3*, W+2, H1+1
U ASK+6, H+4
X ASK+5*, ASK+6, ASK+7, ASK+10, Y+2*, Y+3*, RPT+1*, RPT+2, H+4, H+6*
, END+2!
Y A+2, ASK+11, Y+2*, Y+3, H+7, END+2!
>> ZTDESC DEV+5*
>> ZTQUEUED END+1
>> ZTREQ END+1*
>> ZTRTN DEV+6*
>> ZTSAVE("LR*" DEV+6*
ZTSK DEV+7, DEV+8!
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables  | All