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 |  FileMan Files Accessed Via FileMan Db Call
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>

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 ;

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

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^LR - [#63] Classic Fileman Calls,  GET1^DIQ
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call