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

Package: Lab Service

Routine: LRWLST1


Information

LRWLST1 ;DALOI/STAFF - ACCESSION SETUP ;11/20/12 16:10

Source Information

Source file <LRWLST1.m>

Entry Points

Name Comments DBIA/ICR reference
SPLIT ;
STWLN ; Set accession number
UPD696 ; Update file #69.6 if LEDI referral patient and no existing entry
ST2 ; Find next available node in LR global
GTWLN ;
ORIGAAOK() ; function to determine if the accession number under consideration
; is already in use in the originating accession area
ASK ;
; Don't ask if tasked or a "silent" call
CHECK68(LRAA,LRAD) ; Check for/set header node of ^LRO(68) 68.01 subfile.
GETLOCK(LRAA,LRAD) ; Obtain lock on zeroth node of this accession date
; Call with LRAA = ien of entry in file #68
; LRAD = accession date in fileman format
SETAN(LRAA,LRAD,LRAN) ; Create stub entry in file #68 for this accession.

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"ACCESSION: ",LRACC," <",LRUID,">"
  • Line Location: STWLN+79
Function Call: WRITE
  • Prompt: !,"This accession number may be already assigned either in this "
  • Line Location: ASK+14
Function Call: WRITE
  • Prompt: !,"area or a common accession area."
  • Line Location: ASK+15
Function Call: WRITE
  • Prompt: !,"THIS NUMBER BELONGS TO ",!,PNM," SSN: ",SSN
  • Line Location: ASK+21
Function Call: WRITE
  • Prompt: !!?5,"Accession area ",$P(^LRO(68,LRAA,0),"^")," is locked by another user.",!,$C(7)
  • Line Location: GETLOCK+6

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^LAB(64.061 - [#64.061] FIND1^DIC
69.01 WP^DIE
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call