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 |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All
Print Page as PDF
Routine: LRAPPA

Package: Lab Service

Routine: LRAPPA


Information

LRAPPA ; IHS/DIR/AAB - CY/EM/SP PATIENT RPT 8/12/95 08:15 ;

Source Information

Source file <LRAPPA.m>

Call Graph

Call Graph Total: 7

Package Total Call Graph
Lab Service 5 ^LRAP  (E,W)^LRAPCUM  (L,S,SSN,V,XR)^LRU  (EN2,SET)^LRUA  END^LRUTL  
Kernel 1 ^%ZIS  
VA Fileman 1 ^%DT  

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Lab Service 1 LRAPPA  

Entry Points

Name Comments DBIA/ICR reference
A1
A2
END
D ;W @IOF S (A,LRA(2))=0,LRA(1)=$Y+21,B=^LR(LRDFN,LRSS,LRI,0),X=^LR(LRDFN,0),Y=$P(X,"^",3),X=$P(X,"^",2),X=^DIC(X,0,"GL"),X=@(X_Y_",0)") W !,$P(X,"^"),?38,"SSN: ",$P(X,"^",9) D E^LRAPCUM,W^LRAPCUM Q

External References

Name Field # of Occurrence
^%DT LRAPPA+4, LRAPPA+6
^%ZIS LRAPPA+4
^LRAP LRAPPA+3
E^LRAPCUM D+1
W^LRAPCUM D+1
L^LRU A2+3
S^LRU A2+3
SSN^LRU D+1
V^LRU END
XR^LRU A2+3
EN2^LRUA LRAPPA+5
SET^LRUA A2+3
END^LRUTL A2+5

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!?20,LRAA(1)," FINAL PATIENT REPORTS DISPLAY"
  • Line Location: LRAPPA+5
Function Call: READ
  • Prompt: "Start with accession #: "
  • Formatting: !
  • Timeout: DTIME
  • Variable: X
  • Line Location: A1+0
Function Call: WRITE
  • Prompt: $C(7),!,"Enter a number from 1 to 99999"
  • Line Location: A1+0
Function Call: READ
  • Prompt: "Go to accession #: "
  • Formatting: !
  • Timeout: DTIME
  • Variable: X
  • Line Location: A2+0
Function Call: WRITE
  • Prompt: $C(7),!,"Enter a number from 1 to 99999"
  • Line Location: A2+0
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: A2+5
Function Call: WRITE
  • Prompt: !,$P(X,"^"),?38,"SSN: ",$P(X,"^",9)
  • Line Location: D+0
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: D+1
Function Call: WRITE
  • Prompt: !,$P(X,"^"),?38,"HRCN: ",HRCN
  • Line Location: D+1
Routine Call
  • %ZIS
  • Line Location:
    • LRAPPA+4

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DIC - [#1] D+1
^LR - [#63] A2+4, D+1

Label References

Name Line Occurrences
@( A2+4
A1 A1
A2 A2
END LRAPPA+3, LRAPPA+6, A1, A2, A2+5

Naked Globals

Name Field # of Occurrence
^( A2+4

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> %DT LRAPPA+4*, LRAPPA+6*
>> %DT("A" LRAPPA+6*
>> %DT("B" LRAPPA+6*
>> A D+1*
>> B D+1*
>> DFN D+1*
>> DIWF A2+3*
>> DIWL A2+3*
>> DIWR A2+3*
DTIME A1, A2
>> HRCN D+1
IO A2+3, A2+4
IO(0 A2+3, A2+4
IOF A2+5, D+1
IOM A2+3
>> IOP LRAPPA+4*
>> LR("B" A1+1*, A2+1*, A2+2*, A2+4
>> LR("E" A2+1*, A2+4
>> LR("Y" LRAPPA+4*, LRAPPA+6*, A2+4
>> LRA A2+3*
>> LRA(1 D+1*
>> LRA(2 A2+3*, A2+4, D+1*
>> LRAA(1 LRAPPA+5
>> LRABV A2+4
>> LRAN A2+4*
LRAP LRAPPA+5!
>> LRDFN A2+4*, D+1
>> LRDICS LRAPPA+3*
>> LRI A2+4*, D+1
>> LRS(99 LRAPPA+5!
LRSAV LRAPPA+5!
>> LRSS D+1
>> LRXREF A2+4
U A1, A2
>> X LRAPPA+4*, A1*, A1+1, A2*, A2+1*, D+1*
>> Y LRAPPA+3, LRAPPA+4, LRAPPA+6, D+1*
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All