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

Package: Lab Service

Routine: LRAPMV


Information

LRAPMV ;AVAMC/REG/CYM - MOVE AP ACCESSION ;4/1/98 11:53 ;

Source Information

Source file <LRAPMV.m>

Entry Points

Name Comments DBIA/ICR reference
W
REST
END

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!?17,"Move an accession from one patient to another"
  • Line Location: LRAPMV+2
Function Call: WRITE
  • Prompt: !!?18,"*** THIS OPTION IS NO LONGER AVAILABLE ***"
  • Line Location: LRAPMV+4
Function Call: WRITE
  • Prompt: !!,"Accession Year: ",LRH(0)," "
  • Line Location: LRAPMV+7
Function Call: WRITE
  • Prompt: $C(7),!!,"NO ",LRO(68)," ACCESSIONS IN FILE FOR ",LRH(0),!!
  • Line Location: LRAPMV+8
Function Call: READ
  • Formatting: !!
  • Prompt: "Move Accession Number: "
  • Variable: LRAN
  • Timeout: DTIME
  • Line Location: W+0
Function Call: WRITE
  • Prompt: W
  • Line Location: W+0
Function Call: WRITE
  • Prompt: $C(7),!,"Enter a number, no leading zero's"
  • Line Location: W+0
Function Call: WRITE
  • Prompt: $C(7),!!,LRO(68)," Accession # ",LRAN," for ",LRH(0)," not in ACCESSION file",!!
  • Line Location: REST+0
Function Call: WRITE
  • Prompt: !,LRP," ID: ",SSN,!,"File: ",$P($G(^DIC(+P("F"),0)),U)
  • Line Location: REST+2
Function Call: WRITE
  • Prompt: $C(7),!,"Inverse date missing or incorrect in Accession Area file for",!,LRAA(1)," Year: ",$E(LRAD,2,3)," Accession: ",LRAN
  • Line Location: REST+3
Function Call: WRITE
  • Prompt: !,"Move accession to "
  • Line Location: REST+5
Function Call: WRITE
  • Prompt: !,"File: ",$P($G(^DIC(+LRDPF,0)),U)
  • Line Location: REST+7
Function Call: WRITE
  • Prompt: $C(7),!,"No need to move accession to the same patient"
  • Line Location: REST+8
Function Call: WRITE
  • Prompt: $C(7),!,LRP,"already has an accession with the same internal file number."
  • Line Location: REST+9
Function Call: WRITE
  • Prompt: $C(7),!
  • Line Location: REST+10

FileMan Files Accessed Via FileMan Db Call

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