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

Caller Graph Total: 1

Package Total Caller Graph
Lab Service 1 LRAPV  

Entry Points

Name Comments DBIA/ICR reference
A ;Initialize some variables
END ;
RPT ;Unverified reports
I ;Order through the cross reference
SUPP ;Unverified Supplementary Reports
H ;Header
H1 ;
; D H Q:LR("Q") W !?19,$J($P(LRDATE,"^",6),5),?32,LRP,?63,SSN
DEV ;Get Device Info
N ;
Y ;Get patient info
QUE ;
W ;Write the report
SNO ;Missing SNOMED
ASK ;Ask which option to run
SEL ;

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: ?63,$G(HRCN)
  • Line Location: W+3
Function Call: WRITE
  • Prompt: !?3,B
  • Line Location: W+7
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: !,"DATE",?15,"Accession number",?32,"Patient",?66,"HRCN",!,LR("%")
  • Line Location: H+13
Function Call: WRITE
  • Prompt: !?19,$J($P(LRDATE,"^",6),5),?32,LRP,?63,SSN
  • Line Location: H1+1
Function Call: WRITE
  • Prompt: !?19,$J($P(LRDATE,"^",6),5),?32,LRP,?63,$G(HRCN)
  • Line Location: H1+2
Routine Call
  • %ZIS
  • Line Location:
    • DEV+8
Routine Call
  • DIR
  • Line Location:
    • H+3
Routine Call
  • %ZIS
  • Line Location:
    • DEV+2

Global Variables Directly Accessed

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

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+2
H1 W+7
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+6*, W+7
DIR H+2!, END+2!
DIR(0 H+2*
DIRUT END+2!
DTIME ASK+5
DTOUT H+4, END+2!
DUOUT END+2!
>> HRCN W+3, H1+2
IO QUE+1
IO("Q" DEV+4, DEV+8!
IOF QUE+1, H+5, END+1
IOM H+7
IOSL I+2, W+7
IOST QUE+1, H+1, END+1
>> LR("%" H+13
>> 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+4
>> LR("F" QUE+3*
>> LR("Q" QUE+4, Y+1, I+1, I+2, W+5, W+7, H+1, H+4*, H1+2
LRA A+1~, SUPP+3*, W+5*, W+6
>> 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+2
>> 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+5, W+6
>> LRLDT QUE+2*, QUE+4
>> LRLST H+11
>> LRO(68 ASK+1, ASK+2, ASK+3, H+8
>> LRP Y+3*, W+1, H1+2
LRPD A+1~, Y+1*, Y+2, I+1, W+5, W+6
>> LRQ H+1, H+5*, H+7
>> LRQ(1 H+7
>> LRSDT QUE+2*, QUE+4*, Y+1, I+1
>> LRSS A+3, W+5, W+6
>> LRSTR H+11
>> LRXR QUE+4, Y+1, I+1
>> POP DEV+3
>> SSN Y+3*
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