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

Package: Lab Service

Routine: LRAPR


Information

LRAPR ;DALOI/STAFF - ANAT RELEASE REPORTS ;12/09/11 10:20

Source Information

Source file <LRAPR.m>

Call Graph

Call Graph

Call Graph Total: 20

Package Total Call Graph
Lab Service 12 OERR^LR7OB63D  ^LRAP  ^LRAPDA  GETDATA^LRAPESON  (CHKSUP,CKSIGNR,RELCHK,UNRLSE)^LRAPR1  (,RELEASE,SECTION,STORE,TIUPREP)^LRAPRES  (CLSSCHK,MAIN)^LRAPRES1  LOOKUP^LRAPUTL  
V^LRU  ^LRUP  X^LRUWK  LEDI^LRVR0  
VA FileMan 6 EN^DDIOL  ^DIC  $$GET1^DID  FILE^DIE  $$GET1^DIQ  ^DIR  
Kernel 2 ($$FMTE,$$NOW)^XLFDT  SIG^XUSESIG  

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

Package Total Caller Graph
Lab Service 3 LRAPDA  LRAPR  LRAPRS  

Entry Points

Name Comments DBIA/ICR reference
B ; Autopsy
EN ; Supplementary Report Entry Point
W
REST
DIE ; Define default supplementary report
DIE1 ;
A
C ;
S ; from LRAPDA
CAP ; Store workload
SWITCH ; Check to see if electronic signature is enabled
ESIG ; Prompt for electronic signature
UPDATE ;
SUPCHK ; Check for unreleased supplementary reports
RINFO ; Display release information
NMPATH ; Check for missing pathologist name
RELEASE ; Prompt for release/unrelease
RELMN ; Allow release of main report as long as all supp reports are released, and signer is same person for main and supp report(s)
; Make sure all supp reports signed out
END ;

External References

Name Field # of Occurrence
EN^DDIOL DIE+28, DIE+32, UPDATE+4
^DIC DIE1+9
$$GET1^DID DIE+5
FILE^DIE UPDATE+10, RELMN+25, RELMN+28
$$GET1^DIQ DIE+10, DIE+12, DIE+14, DIE+20, DIE+22, DIE+24, DIE1+13, DIE1+15, UPDATE+14, UPDATE+16
RELMN+9, RELMN+10, RELMN+11, RELMN+12, RELMN+13, RELMN+15, RELMN+16, RELMN+17, RELMN+18, RELMN+19
^DIR EN+18, EN+23, DIE1+26, RELEASE+5
OERR^LR7OB63D RELMN+29
^LRAP AC+1
^LRAPDA LRAPR+30, B+21
GETDATA^LRAPESON SWITCH+1
CHKSUP^LRAPR1 DIE1+31
CKSIGNR^LRAPR1 UPDATE+9
RELCHK^LRAPR1 RELMN+3
UNRLSE^LRAPR1 RELMN+26
^LRAPRES LRAPR+6
RELEASE^LRAPRES RELMN+27
SECTION^LRAPRES EN+7
STORE^LRAPRES RELMN+24
TIUPREP^LRAPRES RELMN+23
CLSSCHK^LRAPRES1 EN+11
MAIN^LRAPRES1 UPDATE+18
LOOKUP^LRAPUTL W+1
V^LRU END+1
^LRUP REST+5
X^LRUWK LRAPR+13
LEDI^LRVR0 UPDATE+29
$$FMTE^XLFDT SUPCHK+9, SUPCHK+16, RINFO+4
$$NOW^XLFDT RELMN+22
SIG^XUSESIG ESIG+2

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!?27,"Release Pathology Reports",!!
  • Line Location: LRAPR+8
Function Call: WRITE
  • Prompt: !!?20,"Release Supplementary Pathology Reports",!
  • Line Location: EN+3
Function Call: WRITE
  • Prompt: !!
  • Line Location: EN+15
Function Call: WRITE
  • Prompt: $C(7),!!,"NO ",LRAA(1)," ACCESSIONS IN FILE FOR ",LRH(0),!!
  • Line Location: EN+28
Function Call: WRITE
  • Prompt: " for ",LRH(0)
  • Line Location: REST+0
Function Call: WRITE
  • Prompt: $C(7),!!,"Accession # ",LRAN," for ",LRH(0)
  • Line Location: REST+2
Function Call: WRITE
  • Prompt: " not in ACCESSION file",!!
  • Line Location: REST+3
Function Call: WRITE
  • Prompt: !,^(0)
  • Line Location: REST+11
Function Call: WRITE
  • Prompt: !
  • Line Location: DIE1+3
Function Call: WRITE
  • Prompt: !!,"This supplementary report has already been released.",!
  • Line Location: DIE1+17
Function Call: WRITE
  • Prompt: !!,"This supplementary report has already been released.",!
  • Line Location: DIE1+19
Function Call: WRITE
  • Prompt: !
  • Line Location: DIE1+20
Function Call: WRITE
  • Prompt: " SIGNATURE NOT VERIFIED"
  • Line Location: ESIG+4
Function Call: WRITE
  • Prompt: "...Released"
  • Line Location: UPDATE+11
Function Call: WRITE
  • Prompt: $C(7),!,"Supplementary report "_LRSR2_" has not been released. "
  • Line Location: SUPCHK+18
Function Call: WRITE
  • Prompt: "Cannot release."
  • Line Location: SUPCHK+19
Function Call: WRITE
  • Prompt: $C(7),!,"Report "
  • Line Location: RINFO+1
Function Call: WRITE
  • Prompt: "released "
  • Line Location: RINFO+3
Function Call: WRITE
  • Prompt: $C(7),!,"Pathologist name missing. Cannot release."
  • Line Location: NMPATH+2
Function Call: WRITE
  • Prompt: !
  • Line Location: RELEASE+2
Function Call: WRITE
  • Prompt: !!,?25,"*** Main Report Release ***",!
  • Line Location: RELMN+21
Routine Call
  • DIC
  • Line Location:
    • DIE1+9
Routine Call
  • DIE
  • Line Location:
    • UPDATE+10
    • RELMN+25
    • RELMN+28
Routine Call
  • DIR
  • Line Location:
    • EN+18
    • EN+23
    • DIE1+26
    • RELEASE+5

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+5, DIE+7, DIE+8, DIE+17, DIE+18, S+1, UPDATE+14, UPDATE+16, UPDATE+22, UPDATE+23
SUPCHK+4, SUPCHK+5, SUPCHK+6, SUPCHK+8, SUPCHK+11, SUPCHK+12, SUPCHK+13, SUPCHK+15
^LRO(68 - [#68] EN+27, REST+1, REST+4, S+1, S+2, S+3*, S+4, S+5, S+7*, CAP+1*
CAP+2
^VA(200 - [#200] RINFO+5

Label References

Name Line Occurrences
A LRAPR+9
B LRAPR+14
CAP S+6
DIE W+4
END LRAPR+7, LRAPR+10, LRAPR+11, LRAPR+31, B+22, EN+8, EN+19, EN+20, W+2, A
C+2
ESIG DIE1+23
RELMN UPDATE+25
REST W+5
SWITCH LRAPR+4, EN+2
UPDATE DIE1+24, DIE1+29
W W+6

Naked Globals

Name Field # of Occurrence
^(0 REST+5, S+1*, S+4*, S+5*, CAP+2*

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
% LRAPR+3~
>> C S+6*, CAP+1, CAP+2
DIC DIE1+4~, DIE1+5*, DIE1+6*, DIE1+9!
DIC("A" DIE1+7*
DIC("B" DIE+3*, DIE+14*, DIE+24*, DIE+29
DIC(0 DIE1+8*
>> DILOCKTM UPDATE+2
DIR EN+14~, EN+18!, EN+21~, DIE1+4~, DIE1+22~, DIE1+26!, RELEASE+1~
DIR("A" EN+16*, DIE1+25*, RELEASE+3*, RELEASE+4*
DIR("B" EN+17*, DIE1+25*, RELEASE+2*
DIR(0 EN+16*, EN+22*, DIE1+25*, RELEASE+2*
DIROUT DIE1+4~, DIE1+22~
DIRUT EN+14~, EN+19, DIE1+4~, DIE1+22~, DIE1+27
>> DR LRAPR+17*, LRAPR+18*, LRAPR+19*, LRAPR+20*, LRAPR+21*, LRAPR+22*, LRAPR+25*, LRAPR+26*, LRAPR+27*, LRAPR+28*
LRAPR+29*, B+2*, B+3*, B+6*, B+9*, B+10*, B+11*, B+12*, B+14*, B+15*
B+16*, B+17*, B+18*, B+19*, B+20*
DTOUT DIE1+4~, DIE1+22~
DUZ EN+11, S+3, CAP+1
DUZ(2 CAP+1
>> LR("CK" W!
>> LRA UPDATE+14*, UPDATE+16*
>> LRAA EN+27, W+1, REST+1, REST+4, S+1, S+2, S+3, S+4, S+5, S+7
CAP+1, CAP+2
>> LRAA(1 EN+28
>> LRAC UPDATE+14*, UPDATE+16*, UPDATE+18
>> LRAD EN+25*, EN+27, W+1, REST+1, REST+4, S+1, S+2, S+3, S+4, S+5
S+7, CAP+1, CAP+2
>> LRAN REST+1, REST+2, REST+4, S+1, S+2, S+3, S+4, S+5, S+7, CAP+1
CAP+2
>> LRAU RELMN+7*, RELMN+8, RELMN+14
>> LRCAPA LRAPR+11
>> LRCKREL DIE1+31, UPDATE+21*, UPDATE+22*, UPDATE+23*, UPDATE+25
LRDA DIE+1~, DIE1+11*, DIE1+12, UPDATE+1
>> LRDATA EN+6*, W+1, W+2
>> LRDFN REST+4*, REST+5, DIE+6, DIE+7, DIE+8, DIE+16, DIE+17, DIE+18, S+1, UPDATE+14
UPDATE+16, UPDATE+18, UPDATE+22, UPDATE+23, SUPCHK+4, SUPCHK+5, SUPCHK+6, SUPCHK+8, SUPCHK+11, SUPCHK+12
SUPCHK+13, SUPCHK+15, RELMN+15, RELMN+16, RELMN+17, RELMN+18, RELMN+19
>> LRDICS C+1*
>> LREND EN+10*, EN+11, EN+12, W+2*
LRESSW LRAPR+3~, LRAPR+5, EN+1~, EN+11, DIE1+16, DIE1+18, DIE1+21, DIE1+31, SWITCH+1, UPDATE+25
LRFDA DIE+1~
LRFDA( UPDATE+5*
LRFDA2 DIE+2~
LRFDA2( UPDATE+6*
LRFILE DIE+1~, DIE+5*, DIE+10, DIE+12, DIE+14, DIE+16*, DIE+20, DIE+22, DIE+24, DIE1+13
DIE1+15, UPDATE+5, UPDATE+6
>> LRH(0 EN+16, EN+25*, EN+28, W+1, RESTREST+2
>> LRI W+2, W+3, DIE+6, DIE+7, DIE+8, S+1, UPDATE+14*, UPDATE+16, UPDATE+18, UPDATE+22
SUPCHK+4, SUPCHK+5, SUPCHK+6, SUPCHK+8, RELMN+20*
>> LRIDT W+3*
LRIENS DIE+1~, DIE+9*, DIE+10, DIE+12, DIE+14, DIE+19*, DIE+20, DIE+22, DIE+24, DIE1+12*
DIE1+13, DIE1+15, UPDATE+5, UPDATE+6, UPDATE+16
LRIENS1 DIE+1~, DIE+6*, DIE+9, DIE+16*, DIE+19, DIE1+12, RELMN+9, RELMN+10, RELMN+11, RELMN+12
RELMN+13
>> LRK S+1*, S+3, CAP+1
LRLKFL DIE+1~, DIE1+5*, DIE1+6*, UPDATE+1*, UPDATE+2, UPDATE+12
>> LRLLOC REST+4*
LRMSG DIE+2~, DIE+26!, DIE+27*, DIE+28, DIE+30!, DIE+31*, DIE+32, UPDATE+3*, UPDATE+4
LRNOSP DIE+1~, DIE+3*, DIE+7*, DIE+17*, DIE+25
>> LRNTIME RELMN+22*
>> LRO(68 W+1
>> LRODT REST+4*
>> LRP UPDATE+18
>> LRPAT RELMN+9*, RELMN+15*
>> LRQT RELMN+2*, RELMN+4
LRQUIT EN+6*, DIE+1~, DIE1+1*, DIE1+2, DIE1+10*, DIE1+23, DIE1+27*, ESIG+1*, ESIG+5*, RELMN+25
RELMN+28, RELMN+30*
LRRLM DIE+2~, DIE1+1*, DIE1+15*, DIE1+18, DIE1+19
LRRLS DIE+1~, DIE1+13*, DIE1+16, DIE1+18
>> LRSEL W+2, W+4
>> LRSF DIE+5, UPDATE+16, UPDATE+18, RELMN+9, RELMN+10, RELMN+11, RELMN+12, RELMN+13
>> LRSN REST+4*
>> LRSOP LRAPR+16*, B+1*
LRSR SUPCHK+1~, SUPCHK+2*, SUPCHK+5*, SUPCHK+6, SUPCHK+8, SUPCHK+12*, SUPCHK+13, SUPCHK+15
LRSR1 SUPCHK+1~, SUPCHK+2*, SUPCHK+5, SUPCHK+6*, SUPCHK+7, SUPCHK+12, SUPCHK+13*, SUPCHK+14, SUPCHK+17
LRSR2 SUPCHK+1~, SUPCHK+9*, SUPCHK+16*, SUPCHK+18
LRSRFL DIE+2~, DIE+10*, DIE+13, DIE+20*, DIE+23
LRSRMD DIE+2~, DIE+12*, DIE+13, DIE+22*, DIE+23
>> LRSS LRAPR+10, LRAPR+12, LRAPR+14, EN+8, W+1, DIE+4, DIE+7, DIE+8, DIE+15, DIE1+5
DIE1+6, S+1, UPDATE+14, UPDATE+16, UPDATE+18, UPDATE+22, UPDATE+23, UPDATE+29, SUPCHK+3, SUPCHK+4
SUPCHK+5, SUPCHK+6, SUPCHK+8, SUPCHK+10, RELMN+7
>> LRT S+2, S+3, S+4, S+5, S+7, CAP+1, CAP+2
>> LRT( S+6
LRX LRAPR+3~, DIE+1~, DIE+8*, DIE+9, DIE+18*, DIE+19
>> LRZ RELMN+10*, RELMN+16*
>> LRZ( RELMN+12*, RELMN+18*
>> LRZ(1 RINFO+5, RELMN+11*, RELMN+17*
>> LRZ(2 RINFO+2, RINFO+4, RELEASE+3, RELEASE+4, RELMN+13*, RELMN+19*
>> LRZ(3 NMPATH+1
U UPDATE+14, SUPCHK+4, SUPCHK+6, SUPCHK+8, SUPCHK+11, SUPCHK+13, SUPCHK+15, RINFO+5
X LRAPR+3~, LRAPR+11, LRAPR+12*, LRAPR+13, W!, REST+4*, REST+5*, DIE1+4~, DIE1+22~, S+4*
CAP+2*
>> X1 ESIG+3
Y LRAPR+3~, EN+14~, EN+20, EN+24, EN+25, W!, DIE1+4~, DIE1+10, DIE1+11, DIE1+22~
DIE1+28, AC+2, SUPCHK+8*, SUPCHK+9, SUPCHK+15*, SUPCHK+16, SUPCHK+20*, NMPATH+3*, RELEASE+6!
RELEASE+7*
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  | All