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 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
END
REST
W

External References

Name Field # of Occurrence
^%DT LRAPMV+10
%XY^%RCR REST+15
UPDATE^DIE REST+33, REST+41
^DIK REST+29, REST+37
^DIR REST+13
^LRAP LRAPMV+9
^LRDPA REST+6
CK^LRU REST+5
FRE^LRU REST+7, REST+9, REST+10, REST+13, REST+42
V^LRU END
XR^LRU LRAPMV+9
YN^LRU LRAPMV+10
^LRUP REST+1
MOVE^LRWOMEN REST+17

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!?17,"Move an accession from one patient to another"
  • Line Location: LRAPMV+5
Function Call: WRITE
  • Prompt: !!?18,"*** THIS OPTION IS NO LONGER AVAILABLE ***"
  • Line Location: LRAPMV+7
Function Call: WRITE
  • Prompt: !!,"Accession Year: ",LRH(0)," "
  • Line Location: LRAPMV+10
Function Call: WRITE
  • Prompt: $C(7),!!,"NO ",LRO(68)," ACCESSIONS IN FILE FOR ",LRH(0),!!
  • Line Location: LRAPMV+11
Function Call: READ
  • Prompt: "Move Accession Number: "
  • Formatting: !!
  • Timeout: DTIME
  • Variable: LRAN
  • 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: !,LRP," ID: ",HRCN,!,"File: ",$P($G(^DIC(+P("F"),0)),U)
  • Line Location: REST+3
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+4
Function Call: WRITE
  • Prompt: !,"Move accession to "
  • Line Location: REST+6
Function Call: WRITE
  • Prompt: !,"File: ",$P($G(^DIC(+LRDPF,0)),U)
  • Line Location: REST+8
Function Call: WRITE
  • Prompt: $C(7),!,"No need to move accession to the same patient"
  • Line Location: REST+9
Function Call: WRITE
  • Prompt: $C(7),!,LRP,"already has an accession with the same internal file number."
  • Line Location: REST+10
Function Call: WRITE
  • Prompt: $C(7),!
  • Line Location: REST+11
Routine Call
  • DIE
  • Line Location:
    • REST+33
    • REST+41
Routine Call
  • DIR
  • Line Location:
    • REST+13

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+3, REST+8
^LR - [#63] REST+1, REST+4, REST+10, REST+14, REST+18!, REST+19*, REST+20!, REST+24
^LRO(68 - [#68] LRAPMV+11, REST, REST+1, REST+4, REST+15*
^LRO(69.2 - [#69.2] REST+27, REST+28, REST+35, REST+36

Label References

Name Line Occurrences
END LRAPMV+9, LRAPMV+10, W
REST W+1
W W, W+1

Naked Globals

Name Field # of Occurrence
^(0 REST+1, REST+14*, REST+18*, REST+19*

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> % LRAPMV+10*
%DT LRAPMV+10*!
%DT("A" LRAPMV+10*
%DT(0 LRAPMV+10*
>> %X REST+15*
>> %Y REST+15*
>> DA REST+5*, REST+29*, REST+37*
>> DIE REST+5*
>> DIK REST+29*, REST+37*
DIR REST+11!, REST+13!
DIR("?" REST+12*
DIR("A" REST+11*
DIR("B" REST+11*
DIR(0 REST+11*
DTIME W
FDA END!
FDA(1 REST+31*, REST+32*, REST+39*, REST+40*
FDAIEN END!
FDAIEN(1 REST+30*, REST+38*
>> HRCN REST+3
>> LR("CK" W!, REST+5
>> LRAA LRAPMV+11, REST, REST+1, REST+4, REST+15, REST+27, REST+28, REST+31, REST+32, REST+35
, REST+36, REST+39, REST+40
>> LRAA(1 REST+4
>> LRABV REST+19, REST+20
>> LRAD LRAPMV+10*, LRAPMV+11, REST, REST+1, REST+4, REST+15, REST+19, REST+20
>> LRAN W*, REST, REST+1, REST+4, REST+15, REST+19, REST+20, REST+27, REST+28, REST+29
, REST+30, REST+35, REST+36, REST+37, REST+38
>> LRDFN REST+1*, REST+4, REST+5, REST+9, REST+10, REST+14, REST+15, REST+19, REST+24, REST+27
, REST+31, REST+35, REST+39
>> LRDICS LRAPMV+9*
>> LRDPF REST+8
LRFINAL REST+22*, REST+25*, REST+26, REST+34, END!
>> LRH(0 LRAPMV+10*, LRAPMV+11, REST
>> LRI REST+4*, REST+5, REST+10, REST+18, REST+19, REST+20, REST+24, REST+32, REST+40
LRNODE REST+22*, REST+24*, REST+25, END!
>> LRO REST+5*, REST+9, REST+18, REST+20, REST+28, REST+36
>> LRO(68 LRAPMV+11, REST
>> LRP REST+3, REST+10
>> LRSF REST+14
>> LRSS REST+4, REST+10, REST+14, REST+17, REST+18, REST+19, REST+23, REST+24
>> LRXR REST+19, REST+20
>> LRXREF REST+19, REST+20
>> P("F" REST+3
U W, REST+3, REST+8, REST+25, REST+27, REST+28, REST+35, REST+36
X W!, REST+1*, REST+18*, REST+19*, REST+20
X(1 REST+18*
Y LRAPMV+9, LRAPMV+10, W!, REST+7, REST+13
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