Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Call Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All
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>

Call Graph

Call Graph

Call Graph Total: 10

Package Total Call Graph
Lab Service 5 ^LRAP  ^LRDPA  (CK,FRE,V,XR,YN)^LRU  ^LRUP  MOVE^LRWOMEN  
VA FileMan 5 ^%DT  %XY^%RCR  UPDATE^DIE  ^DIK  ^DIR  

Entry Points

Name Comments DBIA/ICR reference
W
REST
END

External References

Name Field # of Occurrence
^%DT LRAPMV+7
%XY^%RCR REST+14
UPDATE^DIE REST+32, REST+40
^DIK REST+28, REST+36
^DIR REST+12
^LRAP LRAPMV+6
^LRDPA REST+5
CK^LRU REST+4
FRE^LRU REST+6, REST+8, REST+9, REST+12, REST+41
V^LRU END
XR^LRU LRAPMV+6
YN^LRU LRAPMV+7
^LRUP REST+1
MOVE^LRWOMEN REST+16

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
Routine Call
  • DIE
  • Line Location:
    • REST+32
    • REST+40
Routine Call
  • DIR
  • Line Location:
    • REST+12

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^LR - [#63] Classic Fileman Calls
^LRO(69.2 - [#69.2] Classic Fileman Calls

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DIC - [#1] REST+2, REST+7
^LR - [#63] REST+1, REST+3, REST+9, REST+13, REST+17!, REST+18*, REST+19!, REST+23
^LRO(68 - [#68] LRAPMV+8, REST, REST+1, REST+3, REST+14*
^LRO(69.2 - [#69.2] REST+26, REST+27, REST+34, REST+35

Label References

Name Line Occurrences
END LRAPMV+6, LRAPMV+7, W
REST W+1
W W, W+1

Naked Globals

Name Field # of Occurrence
^(0 REST+1, REST+13*, REST+17*, REST+18*

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> % LRAPMV+7*
%DT LRAPMV+7*!
%DT("A" LRAPMV+7*
%DT(0 LRAPMV+7*
>> %X REST+14*
>> %Y REST+14*
>> DA REST+4*, REST+28*, REST+36*
>> DIE REST+4*
>> DIK REST+28*, REST+36*
DIR REST+10!, REST+12!
DIR("?" REST+11*
DIR("A" REST+10*
DIR("B" REST+10*
DIR(0 REST+10*
DTIME W
FDA END!
FDA(1 REST+30*, REST+31*, REST+38*, REST+39*
FDAIEN END!
FDAIEN(1 REST+29*, REST+37*
>> LR("CK" W!, REST+4
>> LRAA LRAPMV+8, REST, REST+1, REST+3, REST+14, REST+26, REST+27, REST+30, REST+31, REST+34
, REST+35, REST+38, REST+39
>> LRAA(1 REST+3
>> LRABV REST+18, REST+19
>> LRAD LRAPMV+7*, LRAPMV+8, REST, REST+1, REST+3, REST+14, REST+18, REST+19
>> LRAN W*, REST, REST+1, REST+3, REST+14, REST+18, REST+19, REST+26, REST+27, REST+28
, REST+29, REST+34, REST+35, REST+36, REST+37
>> LRDFN REST+1*, REST+3, REST+4, REST+8, REST+9, REST+13, REST+14, REST+18, REST+23, REST+26
, REST+30, REST+34, REST+38
>> LRDICS LRAPMV+6*
>> LRDPF REST+7
LRFINAL REST+21*, REST+24*, REST+25, REST+33, END!
>> LRH(0 LRAPMV+7*, LRAPMV+8, REST
>> LRI REST+3*, REST+4, REST+9, REST+17, REST+18, REST+19, REST+23, REST+31, REST+39
LRNODE REST+21*, REST+23*, REST+24, END!
>> LRO REST+4*, REST+8, REST+17, REST+19, REST+27, REST+35
>> LRO(68 LRAPMV+8, REST
>> LRP REST+2, REST+9
>> LRSF REST+13
>> LRSS REST+3, REST+9, REST+13, REST+16, REST+17, REST+18, REST+22, REST+23
>> LRXR REST+18, REST+19
>> LRXREF REST+18, REST+19
>> P("F" REST+2
>> SSN REST+2
U W, REST+2, REST+7, REST+24, REST+26, REST+27, REST+34, REST+35
X W!, REST+1*, REST+17*, REST+18*, REST+19
X(1 REST+17*
Y LRAPMV+6, LRAPMV+7, W!, REST+6, REST+12
Info |  Source |  Call Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All