Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Entry Points |  Interaction Calls
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>

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 ;

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
Info |  Source |  Entry Points |  Interaction Calls