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

Entry Points

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

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

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