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 |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  Marked Items |  All
Print Page as PDF
Routine: LRAPDA

Package: Lab Service

Routine: LRAPDA


Information

LRAPDA ;DALOI/STAFF - ANATOMIC PATH DATA ENTRY ;08/10/16 13:22

Source Information

Source file <LRAPDA.m>

Call Graph

Call Graph

Call Graph Total: 25

Package Total Call Graph
Lab Service 19 NEW^LR7OB1  OERR^LR7OB63D  ^LRAPDSR  S^LRAPR  ACCCOMP^LRAPRES  MAIN^LRAPRES1  (C,C1)^LRAPSWK  (LOOKUP,PROVIDR)^LRAPUTL  
BDR^LRAUDA  ($$ES,CLEAN,CPT,ES)^LRCAPES  DPA1^LRDPA  LABKEY^LRPARAM  UPDATE^LRPXRM  EDIT^LRRPLU  (AU,EN)^LRSPGD  (CK,FRE,V,YN)^LRU  
^LRUP  I^LRUPS  SETRL^LRVERA  
VA FileMan 5 ^%DT  EN^DDIOL  ^DIE  $$GET1^DIQ  ^DIR  
Lexicon Utility 1 $$IMPDATE^LEXU  

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

Package Total Caller Graph
Lab Service 8 LRAPD  LRAPM  LRAPQACD  LRAPR  LRAPUTL  LRAPX  LRAUDA  LRSPDA  

Entry Points

Name Comments DBIA/ICR reference
RESET ; Reset DR string if altered by prior accession/patient
; Reset DR to orig value in LRAPD1
AUE ; Autopsy Data Entry
NM ;
EDIT ; Call to ^DIE
DIE ;Edit
AK ; from LRAPD1
REST ;
CPTCOD ; CPT Coding
AURESET ; Reset DR to orig value in LRAUDA
WKLD ; Capture Workload
R
AU
W ;
PNAME ; Patient Name Lookup
; LRPFLG tells LRUPS to limit accessions to the chosen year.
SEL
QUEUES ; Update Queues
END

External References

Name Field # of Occurrence
^%DT AK+6
EN^DDIOL QUEUES+8, QUEUES+17, AURESET+11, AU+5, R+5
^DIE EDIT+12, AURESET+15
$$GET1^DIQ DIE+6, DIE+7, DIE+8, AUE+4
^DIR DIE+27, DIE+31, AUE+20, AUE+24, CPTCOD+6
$$IMPDATE^LEXU DIE+3, DIE+9
NEW^LR7OB1 EDIT+24
OERR^LR7OB63D W+4, W+5, W+6
^LRAPDSR EDIT+29, AURESET+19
S^LRAPR WKLD+1
ACCCOMP^LRAPRES EDIT+19
MAIN^LRAPRES1 EDIT+22, AURESET+17
C^LRAPSWK EDIT+3
C1^LRAPSWK WKLD+2, WKLD+3
LOOKUP^LRAPUTL W+1
PROVIDR^LRAPUTL CPTCOD+11
BDR^LRAUDA AURESET+2
$$ES^LRCAPES DIE+12, AUE+6
CLEAN^LRCAPES END+1
CPT^LRCAPES CPTCOD+2, CPTCOD+13
ES^LRCAPES DIE+12, AUE+6
DPA1^LRDPA PNAME+7
LABKEY^LRPARAM PNAME+6
UPDATE^LRPXRM EDIT+27, AURESET+24
EDIT^LRRPLU EDIT+15, AURESET+22
AU^LRSPGD AU+9
EN^LRSPGD QUEUES+21
CK^LRU EDIT+5
FRE^LRU EDIT+30
V^LRU END+2
YN^LRU SEL+3, AK+4, NM+3
^LRUP REST+6
I^LRUPS PNAME+9
SETRL^LRVERA EDIT+21

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !?20,LRO(68)," (",LRABV,")",!
  • Line Location: LRAPDA+6
Function Call: WRITE
  • Prompt: !!,"Enter Etiology, Function, Procedure & Disease "
  • Line Location: SEL+2
Function Call: WRITE
  • Prompt: !!,"Data entry for ",LRH(0)," "
  • Line Location: AK+3
Function Call: WRITE
  • Prompt: $C(7),!!,"NO ",LRO(68)," ACCESSIONS IN FILE FOR ",LRH(0),!!
  • Line Location: AK+8
Function Call: WRITE
  • Prompt: D
  • Line Location: W+4
Function Call: WRITE
  • Prompt: $C(7),!!,"Accession # ",LRAN," for ",LRH(0)," not in ",LRO(68),!!
  • Line Location: REST+4
Function Call: WRITE
  • Prompt: $C(7),!,"Inverse date missing or incorrect in Accession Area file "
  • Line Location: REST+10
Function Call: WRITE
  • Prompt: "for",!,LRO(68)," Year: ",$E(LRAD,2,3)," Accession: ",LRAN
  • Line Location: REST+11
Function Call: WRITE
  • Prompt: $C(7),!!,"This "_$G(LRAA(1))_" report is currently being"
  • Line Location: REST+26
Function Call: WRITE
  • Prompt: !,"modified; it must first be released before Supplementary"
  • Line Location: REST+27
Function Call: WRITE
  • Prompt: !,"report can be added.",!
  • Line Location: REST+28
Function Call: WRITE
  • Prompt: $C(7),!!,"Report verified. Cannot edit with this option."
  • Line Location: DIE+14
Function Call: WRITE
  • Prompt: $C(7),!!,"Report has been verified. "
  • Line Location: DIE+17
Function Call: WRITE
  • Prompt: "Cannot edit with this option."
  • Line Location: DIE+19
Function Call: WRITE
  • Prompt: "Only "
  • Line Location: DIE+21
Function Call: WRITE
  • Prompt: "CPT "
  • Line Location: DIE+22
Function Call: WRITE
  • Prompt: "and "
  • Condition for execution: LRSOP="B"
  • Line Location: DIE+22
Function Call: WRITE
  • Prompt: "coding permitted.",!
  • Line Location: DIE+24
Function Call: WRITE
  • Prompt: !
  • Line Location: DIE+27
Function Call: WRITE
  • Prompt: !
  • Line Location: DIE+31
Function Call: WRITE
  • Prompt: !
  • Line Location: EDIT+1
Function Call: WRITE
  • Prompt: $C(7),!!,"This accession has a FROZEN SECTION report."
  • Line Location: EDIT+7
Function Call: WRITE
  • Prompt: !,"Be sure 'FROZEN SECTION' is entered as a SNOMED code in the PROCEDURE field"
  • Line Location: EDIT+8
Function Call: WRITE
  • Prompt: !,"for the appropriate organ or tissue.",!!
  • Line Location: EDIT+9
Function Call: WRITE
  • Prompt: !
  • Line Location: AUE+1
Function Call: WRITE
  • Prompt: $C(7),!!,"Report verified. Cannot edit with this option!"
  • Line Location: AUE+10
Function Call: WRITE
  • Prompt: $C(7),!!,"Report has been verified. "
  • Line Location: AUE+13
Function Call: WRITE
  • Prompt: "Only "
  • Line Location: AUE+14
Function Call: WRITE
  • Prompt: "CPT "
  • Line Location: AUE+15
Function Call: WRITE
  • Prompt: "and "
  • Condition for execution: LRSOP="B"
  • Line Location: AUE+15
Function Call: WRITE
  • Prompt: "coding permitted.",!
  • Line Location: AUE+17
Function Call: WRITE
  • Prompt: !
  • Line Location: AUE+20
Function Call: WRITE
  • Prompt: !
  • Line Location: AUE+24
Function Call: WRITE
  • Prompt: !!
  • Line Location: AURESET+22
Function Call: WRITE
  • Prompt: !
  • Line Location: CPTCOD+6
Routine Call
  • DIE
  • Line Location:
    • EDIT+12
    • AURESET+15
Routine Call
  • DIR
  • Line Location:
    • DIE+27
    • DIE+31
    • AUE+20
    • AUE+24
    • CPTCOD+6

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^LR - [#63] Classic Fileman Calls,  GET1^DIQ

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^LR - [#63] REST+6, REST+9, REST+20, REST+21, REST+23, REST+24, DIE+2, EDIT+2, EDIT+6, QUEUES+1
, AURESET+8, AURESET+16, AURESET+25
^LRO(68 - [#68] AK+7, REST+3, REST+5, REST+8
^LRO(69.2 - [#69.2] LRAPDA+8, QUEUES+3, QUEUES+4, QUEUES+9*, QUEUES+10, QUEUES+11, QUEUES+12, QUEUES+13, QUEUES+18*, QUEUES+19
, QUEUES+20, AU, AU+1, AU+6*, AU+7, AU+8, R, R+1, R+6*, R+7
, R+8
^VA(200 - [#200] QUEUES+2

Label References

Name Line Occurrences
@( RESET+2, RESET+3, AURESET+1
AU AURESET+26
AUE DIE+1
CPTCOD EDIT+31, AURESET+28
END SEL+1, AK+4, AK+5
R AURESET+27
REST W+4, W+5, W+6
W W+4, W+5, W+6

Naked Globals

Name Field # of Occurrence
^(0 LRAPDA+8*, REST+6, QUEUES+2, QUEUES+10*, QUEUES+19*, AU+7*, R+7*

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> % SEL+1, SEL+3*, AK+4*, AK+5, NM+3*
%DT AK+6*!
%DT("A" AK+6*
%DT(0 AK+6*
CORRECT AK+1~
>> DA EDIT+4*, AURESET+14*
>> DA(1 EDIT+4*
>> DFN PNAME+5*, PNAME+8
DIC PNAME+4!
DIC(0 PNAME+5*
>> DIE EDIT+4*, AURESET+14*
>> DILOCKTM QUEUES+4, QUEUES+13, AURESET+8, AU+1, R+1
DIR DIE+26!, DIE+30!, AUE+19!, AUE+23!, CPTCOD+5!
DIR("A" DIE+26*, DIE+30*, AUE+19*, AUE+23*, CPTCOD+5*
DIR("B" DIE+26*, DIE+30*, AUE+19*, AUE+23*, CPTCOD+5*
DIR(0 DIE+26*, DIE+30*, AUE+19*, AUE+23*, CPTCOD+5*
>> DR W+6*, RESET+4*, RESET+5*, RESET+7*, AURESET+3*, AURESET+4*
>> DR(1 W+6
DUZ CPTCOD+10
DUZ(2 EDIT+21
ICDFMT DIE+2*, DIE+8*, END!
ICDSYS DIE+3*, DIE+9*, END!
>> LR("CK" EDIT+5
>> LR("TR" QUEUES+2*
>> LR(1 SEL!, SEL+1*
>> LR(2 SEL+1
>> LR(6 QUEUES+3
>> LR(7 QUEUES+12
>> LRA EDIT+2*, EDIT+22, AURESET+16*
>> LRAA LRAPDA+8, AK+7, W+1, REST+3, REST+5, REST+8, QUEUES+3, QUEUES+4, QUEUES+9, QUEUES+10
, QUEUES+11, QUEUES+12, QUEUES+13, QUEUES+18, QUEUES+19, QUEUES+20, AU, AU+1, AU+6, AU+7
, AU+8, R, R+1, R+6, R+7, R+8, CPTCOD+13
>> LRAA(1 REST+26
>> LRABV LRAPDA+6
>> LRAC AURESET+16*, AURESET+17
>> LRAD AK+5*, AK+7, W+1, REST+3, REST+5, REST+8, REST+11, CPTCOD+13
>> LRAN REST+3, REST+4, REST+5, REST+8, REST+11, QUEUES+3, QUEUES+9, QUEUES+10, QUEUES+12, QUEUES+18
, QUEUES+19, AU, AU+6, AU+7, R, R+6, R+7, PNAME+8*, CPTCOD+13
>> LRAU LRAPDA+5*
>> LRCAPA EDIT+3, WKLD+1, WKLD+2, WKLD+3
LRCDSYS DIE+3*, DIE+9*, END!
LRCPT DIE+4~, DIE+5*, DIE+32*, DIE+33, DIE+34, RESET+5, AUE+2~, AUE+3*, AUE+25*, AUE+26
, AUE+27, AURESET+4, CPTCOD+3, CPTCOD+7*, CPTCOD+8
>> LRD RESET+2, RESET+3
>> LRD(1 LRAPDA+7*, REST+19, WKLD+2, QUEUES+12
>> LRDATA LRAPDA+5*, W+1, W+2
>> LRDFN REST+5*, REST+6, REST+9, REST+20, REST+21, REST+23, REST+24, DIE+2, DIE+3, DIE+5
, DIE+9, EDIT+2, EDIT+4, EDIT+6, EDIT+15, EDIT+21, EDIT+22, EDIT+27, QUEUES+1, QUEUES+9
, QUEUES+18, AUE+4, AURESET+8, AURESET+14, AURESET+16, AURESET+17, AURESET+22, AURESET+24, AURESET+25, AU+6
, R+6
>> LRDPF PNAME+5*
LRDXV DIE+3*, DIE+9*, END!
LREL DIE+4~, DIE+5*, DIE+10*, DIE+13, DIE+15, AUE+2~, AUE+3*, AUE+4*, AUE+8, AUE+12
, CPTCOD+3, CPTCOD+4
LRELSD EDIT+11~*, EDIT+18, AURESET+13~*, AURESET+17
>> LREND W+2*
LRESCPT DIE+4~, DIE+5*, DIE+12*, DIE+18, DIE+22, DIE+29, AUE+2~, AUE+6*, AUE+9, AUE+15
, AUE+22
>> LRH(0 AK+3, AK+5*, AK+8, W+1, REST+4, QUEUES+9, QUEUES+18
>> LRI W+2, W+3, REST+8*, REST+9, REST+20, REST+21, DIE+5, DIE+9, EDIT+2, EDIT+4
, EDIT+6, EDIT+15, EDIT+21, EDIT+22, EDIT+27, QUEUES+1, QUEUES+9, QUEUES+18, AURESET+16*, AURESET+17
, AURESET+22
LRICDT DIE+2*, DIE+3, DIE+8*, DIE+9, END!
>> LRIDT W+3*, REST+8*
LRIENS DIE+4~, DIE+5*, DIE+6, DIE+7, DIE+8
>> LRLABKY PNAME+6
>> LRLLOC REST+5*
>> LRO(68 LRAPDA+6, AK+8, W+1, REST+4, REST+11
>> LRODT REST+5*, EDIT+24
>> LRP EDIT+22, AURESET+17
LRPFLG PNAME+2~, PNAME+3*
LRPNM PNAME+3, PNAME+4!
LRPRO CPTCOD+1~, CPTCOD+10*, CPTCOD+13
LRQUIT DIE+4~, DIE+5*, DIE+15, DIE+20*, DIE+33*, DIE+34*, AUE+2~, AUE+3*, AUE+8, AUE+11*
, AUE+12, AUE+26*, AUE+27*, CPTCOD+12
>> LRRC EDIT+2*
LRRDT1 DIE+4~, DIE+6*, DIE+10, RESET+7
LRRDT2 DIE+4~, DIE+7*, DIE+10
>> LRSEL W+2, W+4, W+5, W+6
>> LRSF DIE+6, DIE+7, DIE+8, EDIT+22, AURESET+17
LRSFLG AK+2*, RESET+3, RESET+7, EDIT+15, EDIT+29, AURESET+12, AURESET+19, END!
>> LRSN REST+5*, EDIT+24
LRSNO DIE+4~, DIE+5*, DIE+28*, DIE+34, RESET+4, RESET+5, AUE+2~, AUE+3*, AUE+21*, AUE+27
, AURESET+3, AURESET+4
>> LRSOP LRAPDA+7*, REST+22, DIE+13, DIE+15, DIE+18, DIE+22, DIE+23, DIE+25, DIE+33, DIE+34
, RESET+2, RESET+7, EDIT+6, EDIT+31, WKLD+1, WKLD+3, QUEUES+3, QUEUES+21, AUE+8, AUE+9
, AUE+12, AUE+15, AUE+16, AUE+18, AUE+26, AUE+27, AURESET+1, AURESET+2, AURESET+26, AURESET+27
, AURESET+28
>> LRSS LRAPDA+5, W+1, REST+9, REST+19, REST+20, REST+21, REST+22, DIE+1, DIE+3, DIE+9
, EDIT+2, EDIT+3, EDIT+6, EDIT+15, EDIT+20, EDIT+21, EDIT+22, EDIT+27, WKLD+1, WKLD+2
, WKLD+3, QUEUES+1, QUEUES+3, QUEUES+12, AURESET+17, AURESET+22
>> LRT EDIT+24
LRTEST EDIT+24~
LRTEST( EDIT+24*
>> LRUID W+4
LRX REST+1~, REST+18*, REST+20*, REST+23*, REST+25, PNAME+5*
LRX1 REST+1~, REST+18*, REST+21*, REST+24*, REST+25
LRXSTOP REST+1~, REST+18*, REST+29*, REST+30
MSG QUEUES+5~, QUEUES+8, QUEUES+14~, QUEUES+17, AURESET+9*, AURESET+10*, AURESET+11!, AU+5!, R+5!
MSG(1 QUEUES+6*, QUEUES+15*, AU+2*, AU+3*, R+2*, R+3*
MSG(2 QUEUES+7*, QUEUES+16*, AU+4*, R+4*
U DIE+2, AURESET+16
VA PNAME+4!
VADM PNAME+4!
VAIN PNAME+4!
X REST+5*, REST+6*, QUEUES+1*, QUEUES+2, QUEUES+10*, QUEUES+19*, NM+1, NM+2!, NM+3!, AU+7*
, R+7*, PNAME+3*
>> Y AK+5, DIE+28, DIE+32, EDIT+29, AUE+21, AUE+25, CPTCOD+7
>> Y( NM+1, NM+3, NM+4*
>> Z NM+1, NM+3, NM+4

Marked Items

Name Field # of Occurrence
$T(CLEAN^LRCAPES END+1
$T(CPT^LRCAPES CPTCOD+2
$T(ES^LRCAPES DIE+12, AUE+6
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  Marked Items |  All