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

Package: Lab Service

Routine: LRAPM


Information

LRAPM ;AVAMC/REG/WTY - ANATOMIC PATH MODIFY MICRO/DX ;10/23/04 22:55

Source Information

Source file <LRAPM.m>

Call Graph

Call Graph Total: 12

Package Total Call Graph
Lab Service 7 A^LRAPD  PNAME^LRAPDA  (C,C1)^LRAPSWK  UPDATE^LRPXRM  (V,YN)^LRU  ^LRUP  DEL^LRWOMEN  
VA Fileman 4 ^%DT  %XY^%RCR  EN^DDIOL  ^DIE  
IHS Changes To Lab 1 $$PATCH^BLRUTIL4  

Entry Points

Name Comments DBIA/ICR reference
A
EM
END
DIE
AK
SP
REST
CY
W
ASK

External References

Name Field # of Occurrence
^%DT AK+2, A+4
%XY^%RCR A+7
$$PATCH^BLRUTIL4 A+32
EN^DDIOL A+17, A+38
^DIE A+18
A^LRAPD LRAPM+10
PNAME^LRAPDA W+2
C^LRAPSWK ASK
C1^LRAPSWK A+20
UPDATE^LRPXRM A+32
V^LRU END
YN^LRU AK+1, ASK+5, ASK+6
^LRUP REST+2
DEL^LRWOMEN A+29

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"Modify data for ",LRH(0)," "
  • Line Location: AK+0
Function Call: WRITE
  • Prompt: $C(7),!!,"NO ",LRAA(1)," ACCESSIONS IN FILE FOR ",LRH(0),!!
  • Line Location: AK+3
Function Call: WRITE
  • Prompt: D
  • Line Location: W+2
Function Call: WRITE
  • Prompt: $C(7),!!,"Accession # ",LRAN," for ",LRH(0)," not in ACCESSION file",!!
  • Line Location: REST+0
Function Call: WRITE
  • Prompt: !,LRP," ID: ",SSN
  • Line Location: REST+3
Function Call: WRITE
  • Prompt: !,LRP," ID: ",HRCN
  • Line Location: REST+4
Function Call: WRITE
  • Prompt: !,$P($G(^(X,0)),U)
  • Line Location: REST+6
Function Call: WRITE
  • Prompt: $C(7),!!,"Report not verified. Do not need to use this option !"
  • Line Location: DIE+1
Function Call: WRITE
  • Prompt: !?14,"1. MODIFY GROSS DESCRIPTION",!?14,"2. MODIFY MICROSCOPIC DESCRIPTION",!?14,"3. MODIFY DIAGNOSIS"
  • Line Location: ASK+1
Function Call: WRITE
  • Prompt: !?14,"4. MODIFY FROZEN SECTION"
  • Line Location: ASK+1
Function Call: READ
  • Timeout: DTIME
  • Variable: X
  • Line Location: ASK+2
Function Call: WRITE
  • Prompt: !,"CHOOSE (1-",LRB,"): "
  • Line Location: ASK+2
Function Call: WRITE
  • Prompt: $C(7),!,"Choose from 1 to ",LRB
  • Line Location: ASK+3
Function Call: WRITE
  • Prompt: !
  • Line Location: A+8
Function Call: WRITE
  • Prompt: $C(7),!!,"No changes were made to ",LRB(LRB)
  • Line Location: A+24
Routine Call
  • DIE
  • Line Location:
    • A+18

FileMan Files Accessed Via FileMan Db Call

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

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^LR - [#63] REST+2, REST+6, DIE, ASK+5, A, A+1, A+3*, A+5*, A+14, A+18
, A+19, A+21, A+22, A+25!, A+26, A+27*, A+28
^LRO(68 - [#68] AK+3, REST, REST+1, REST+5
^LRO(69.2 - [#69.2] LRAPM+15, A+33, A+34, A+39*, A+40, A+41

Label References

Name Line Occurrences
@( LRAPM+11, LRAPM+12
A ASK+5
ASK ASK+3
DIE W+2
END AK+1, AK+2, AK+3, W+1
REST W+3
W W+2, W+3

Naked Globals

Name Field # of Occurrence
^( REST+6, A+21, A+22
^(0 LRAPM+15*, REST+2, A*, A+21, A+26, A+28*, A+40*

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> % AK+1*, AK+2, ASK+5*, ASK+6*
%DT AK+2*!, A+4*
%DT("A" AK+2*
%DT(0 AK+2*
>> %X A+6*
>> %Y A+6*
>> A A+1*, A+21*, A+22*, A+26*, A+27
>> B A*, A+1*
>> C A*, A+1*, A+2*, A+3
>> DA A+8*, A+14, A+19
>> DA(1 A+8*
>> DIE A+8*
>> DR A+8*, A+10*
>> DR(2 A+11*, A+12*, A+13*
DTIME W, ASK+2
DUZ A+5
>> HRCN REST+4
>> LRAA LRAPM+15, AK+3, REST, REST+1, REST+5, A+33, A+34, A+39, A+40, A+41
>> LRAA(1 AK+3
>> LRAD AK+2*, AK+3, REST, REST+1, REST+5
>> LRAN W*, W+1, W+2, REST, REST+1, REST+5, A+33, A+39, A+40
>> LRB ASK+1*, ASK+2, ASK+3, ASK+4*, ASK+5, ASK+6, A, A+24
>> LRB( ASK+5, ASK+6, A+24
>> LRB(1 LRAPM+13*
>> LRB(2 LRAPM+13*
>> LRB(3 LRAPM+14*
>> LRB(4 LRAPM+14*
>> LRC A+21*, A+22*, A+23
>> LRCAPA LRAPM+11, ASK, A+20
>> LRDFN REST+1*, REST+2, REST+6, DIE, ASK+5, A, A+1, A+3, A+5, A+8
, A+14, A+18, A+19, A+21, A+22, A+25, A+26, A+27, A+28, A+32
, A+39
LRDTMOD A+3*, A+5, A+21, A+22, A+25, END!
>> LRE ASK+4*, A, A+1, A+3, A+5, A+21, A+22, A+25, A+26, A+27
>> LRF ASK+4*, ASK+5, A+8, A+9, A+21, A+22
>> LRH(0 AK, AK+2*, AK+3, REST, A+39
>> LRI REST+5*, REST+6, DIE, ASK+5, A, A+1, A+3, A+5, A+8, A+18
, A+21, A+22, A+25, A+26, A+27, A+28, A+32, A+39
>> LRLLOC REST+1*
>> LRP REST+4
>> LRQ( A
>> LRQ(1 SP*, CY*, EM*
>> LRQ(2 SP*, CY*, EM*
>> LRQ(3 SP*, CY*, EM*
>> LRQ(4 SP*
>> LRRC A+18*
>> LRSS LRAPM+11, LRAPM+12, REST+6, DIE, ASK+1, ASK+5, A, A+1, A+3, A+5
, A+11, A+12, A+13, A+14, A+18, A+19, A+21, A+22, A+25, A+26
, A+27, A+28, A+29, A+32
>> LRT(1 A*, A+3
MSG A+15*, A+16*, A+17!, A+38!
MSG(1 A+35*, A+36*
MSG(2 A+37*
>> SEX A+29
U W+1, REST+6, ASK+2, ASK+4
X W!, REST+1*, REST+2*, REST+6*, DIE*, DIE+1, ASK+2*, ASK+3, ASK+4, A+4*
, A+18*!, A+21*, A+22*, A+26*, A+27, A+28*, A+40*
Y LRAPM+10, AK+2, W!, A+5, A+26*, A+27, A+28*
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