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

Package: Lab Service

Routine: LRAPDSR


Information

LRAPDSR ;DALOI/STAFF - AP SUPPLEMENTARY REPORT ENTRY;Dec 17, 2008

Source Information

Source file <LRAPDSR.m>

Entry Points

Name Comments DBIA/ICR reference
MAIN ; Main Subroutine
RELEAS1 ; Is the ENTIRE report already released?
GETRPT ; First, select the report
RELEAS2 ; Is the supplementary report already released?
COPY ; Make a copy of the current report.
RPT ;
QUESP ; Update the preliminary report print queue
COMPARE ; Compare reports
UNRELEAS ; Unrelease the supplementary report.
UPDATE ; File changes
; First, store the date of the change and user ID
STORE ; Second, store the original report

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,$C(7),"This AUTOPSY has been released. Supplementary report additions/modifications"
  • Line Location: RELEAS1+5
Function Call: WRITE
  • Prompt: !,"will create an audit trail.",!
  • Line Location: RELEAS1+6
Function Call: WRITE
  • Prompt: $C(7),!!,"This "_$G(LRAA(1))_" report has been released."
  • Line Location: RELEAS1+11
Function Call: WRITE
  • Prompt: !,"Supplementary report additions/modifications will create an audit trail.",!
  • Line Location: RELEAS1+12
Function Call: WRITE
  • Prompt: !,"Adding a new SUPPLEMENTARY REPORT"
  • Line Location: GETRPT+37
Function Call: WRITE
  • Prompt: $C(7),!!,"No changes were made to the supplementary report."
  • Line Location: COMPARE+19

FileMan Files Accessed Via FileMan Db Call

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