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 |  Local Variables |  All
Print Page as PDF
Routine: LRSORC1A

Package: Lab Service

Routine: LRSORC1A


Information

LRSORC1A ;VA/DALISC/DRH - LRSORC Continued ;07-22-93

Source Information

Source file <LRSORC1A.m>

Call Graph

Call Graph Total: 6

Package Total Call Graph
Kernel 3 ^%ZISC  $$HTE^XLFDT  ($$CJ,$$TRIM)^XLFSTR  
IHS Changes To Lab 1 LABHDR^BLRUTIL2  
Lab Service 1 LRGLIN^LRX  
VA Fileman 1 ^DIR  

Caller Graph

Caller Graph Total: 2

Package Total Caller Graph
IHS Changes To Lab 1 BLRSORC  
Lab Service 1 LRSORC  

Entry Points

Name Comments DBIA/ICR reference
CONTROL ;
SORT ;
END ;
HDR ;
CRITICL ;
RANGE ;
SUMMARY ;
INIT ;
PRNTST ;
PRINT ;
CONT
COM ;Print comments on specimen
WAIT ;

External References

Name Field # of Occurrence
^%ZISC END+2
LABHDR^BLRUTIL2 HDR+6
^DIR WAIT+1
LRGLIN^LRX HDR+17
$$HTE^XLFDT HDR+14
$$CJ^XLFSTR HDR+8, HDR+13, HDR+14
$$TRIM^XLFSTR HDR+11

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: SUMMARY+1
Function Call: WRITE
  • Prompt: !
  • Line Location: SUMMARY+2
Function Call: WRITE
  • Prompt: ?20,"END OF SPECIAL REPORT"
  • Line Location: SUMMARY+3
Function Call: WRITE
  • Prompt: !!?30,"NO MATCHING DATA FOUND",!!
  • Line Location: PRINT+2
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: PRINT+17
Function Call: WRITE
  • Prompt: !,$E(PNM,1,22),?23,$E(SSN,1,11)
  • Line Location: PRINT+23
Function Call: WRITE
  • Prompt: ?35,$E(LRLOC,1,12),?48,$E(LRAN,1,14)
  • Condition for execution: LRDPF=2
  • Line Location: PRINT+23
Function Call: WRITE
  • Prompt: !,$E(PNM,1,22),?23,$E(SSN,1,11)
  • Line Location: PRNTST+9
Function Call: WRITE
  • Prompt: ?35,$E(LRLOC,1,12),?48,$E(LRAN,1,14)
  • Condition for execution: LRDPF=2
  • Line Location: PRNTST+9
Function Call: WRITE
  • Prompt: ?32,"Ther: ",LRTLO,"-"
  • Line Location: PRNTST+32
Function Call: WRITE
  • Prompt: LRTHI
  • Line Location: PRNTST+33
Function Call: WRITE
  • Prompt: !
  • Line Location: PRNTST+34
Function Call: WRITE
  • Prompt: !,"COMMENT(S): "
  • Line Location: COM+1
Function Call: WRITE
  • Prompt: !,$E(PNM,1,22),?23,$E(SSN,1,11)
  • Line Location: COM+7
Function Call: WRITE
  • Prompt: ?35,$E(LRLOC,1,12),?48,$E(LRAN,1,14)
  • Condition for execution: LRDPF=2
  • Line Location: COM+7
Function Call: WRITE
  • Prompt: "SPECIAL REPORT: SEARCHING FOR CRITICAL FLAGS "
  • Line Location: HDR+2
Function Call: WRITE
  • Prompt: LRDATE,?65,"Pg ",LRPAG,!,LRHDR2,!
  • Line Location: HDR+3
Function Call: WRITE
  • Prompt: STR,!,$$CJ^XLFSTR(LRHDR2,IOM),!
  • Line Location: HDR+13
Function Call: WRITE
  • Prompt: $$CJ^XLFSTR("Print Date: "_$$HTE^XLFDT($H,"2DZ"),IOM),!
  • Line Location: HDR+14
Function Call: WRITE
  • Prompt: ?31,"Ref. Range: ",LRRLO,"-",LRRHI
  • Line Location: RANGE+1
Function Call: WRITE
  • Prompt: ?57,"Critical: ",LRCLO,"-",LRCHI
  • Line Location: CRITICL+1
Function Call: WRITE
  • Prompt: !?10,"CONTINUED NEXT PAGE",!
  • Line Location: CONT+0
Routine Call
  • DIR
  • Line Location:
    • WAIT+1

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^LAB(60 - [#60] PRNTST+15, PRNTST+25, PRNTST+26
^LAB(61 - [#61] PRINT+14
^TMP("LR" END+3!, PRINT+2, PRINT+3, PRINT+5, PRINT+7, PRINT+9, PRINT+10, PRNTST+3, PRNTST+4, PRNTST+34
, COM+3, COM+14

Label References

Name Line Occurrences
COM PRNTST+35
CONT PRNTST+7, COM+5
CONTROL INIT+2
CRITICL PRNTST+33, RANGE+2
END SORT+6
HDR SORT+3, SUMMARY+1, PRINT+17, PRNTST+8, COM+6
PRINT SORT+4
PRNTST PRINT+27
RANGE PRNTST+31
SORT CONTROL+1
SUMMARY SORT+5
WAIT SUMMARY+1, END+1, PRINT+17, PRNTST+7, COM+5

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
%DT END+4!
%H END+4!
%ZIS END+4!
AGE END+5!
C END+5!, COM+2*, COM+3*, COM+14
DFN END+5!
DIC END+5!
DIR END+5!, WAIT+1!
DIR(0 WAIT+1*
DOB END+5!
DTOUT END+4!, WAIT+2
DUOUT END+4!, WAIT+2
HRCN END+10!, PRINT+13*, PRINT+24, PRNTST+10, COM+8
I SUMMARY+2*, END+5!, PRNTST+2*, PRNTST+3*, PRNTST+4
IOF SORT+1, SUMMARY+1, END+2, PRINT+17, PRNTST+8, COM+6
IOM HDR+8, HDR+10, HDR+13, HDR+14
IOSL SUMMARY+1, SUMMARY+2, PRINT+17, PRNTST+6, COM+4
IOST SORT+1, SORT+2, SUMMARY+1, END+1, PRINT+17, PRNTST+7, COM+5
L0 END+5!
LRAA END+6!
LRAAA END+9!
LRAD END+6!
LRAN END+7!, PRINT+8*, PRINT+9*, PRINT+10, PRINT+24, PRNTST+3, PRNTST+4, PRNTST+10, PRNTST+34, COM+3
, COM+8, COM+14
LRCHI PRNTST+1~, PRNTST+20*, CRITICL+1
LRCLO PRNTST+1~, PRNTST+19*, CRITICL+1
LRCRTFLG END+7!, PRNTST+5*, PRNTST+30
LRDASH END+7!
LRDAT END+7!
LRDATE END+7!
LRDFN END+6!
LRDPF END+6!, PRINT+11*, PRINT+24, PRNTST+10, COM+8
LREDAT END+8!
LREDT END+8!
LREND SORT+5, SUMMARY+1, END+1, END+6!, PRINT+3, PRINT+5, PRINT+7, PRINT+9, PRINT+17, PRNTST+3
, PRNTST+7, PRNTST+12, COM+3, COM+5, COM+13, WAIT+2*
LRFAN END+6!
LRFLAG PRNTST+1~, PRNTST+14*, PRNTST+17, PRNTST+18, PRNTST+19, PRNTST+20, PRNTST+21, PRNTST+22
LRHDR2 END+9!, HDR+13
LRIDT END+6!
LRLAN END+6!
LRLCS END+6!
LRLLOC END+7!
LRLOC END+8!, PRINT+13*, PRINT+24, PRNTST+10, COM+8
LRPAG END+7!, HDR+1*, HDR+9, HDR+10
LRPDT END+8!
LRPREC END+8!, PRINT+10*, PRINT+11, PRINT+13, PRINT+14, PRINT+15, PRINT+16
LRPTS END+8!
>> LRREF PRNTST+15*, PRNTST+17, PRNTST+18, PRNTST+19, PRNTST+20, PRNTST+21, PRNTST+22, PRNTST+30
LRRHI PRNTST+1~, PRNTST+18*, RANGE+1
LRRLO PRNTST+1~, PRNTST+17*, RANGE+1
LRSDAT END+8!
LRSDT END+8!
LRSPDAT END+8!, PRINT+16*, PRINT+25, PRNTST+11, COM+9
>> LRSPEC PRINT+14*, PRINT+26
>> LRSPNUM PRINT+15*, PRNTST+15
LRSRT END+7!
LRSUB1 END+6!, PRINT+1*, PRINT+2, PRINT+3*, PRINT+5, PRINT+7, PRINT+9, PRINT+10, PRNTST+3, PRNTST+4
, PRNTST+34, COM+3, COM+14
LRSUB2 END+6!, PRINT+4*, PRINT+5*, PRINT+7, PRINT+9, PRINT+10, PRNTST+3, PRNTST+4, PRNTST+34, COM+3
, COM+14
LRSUB3 END+9!, PRINT+6*, PRINT+7*, PRINT+9, PRINT+10, PRNTST+3, PRNTST+4, PRNTST+34, COM+3, COM+14
LRTHI PRNTST+1~, PRNTST+22*, PRNTST+31, PRNTST+33
LRTLO PRNTST+1~, PRNTST+21*, PRNTST+31, PRNTST+32
LRTREC END+8!, PRNTST+4*, PRNTST+5, PRNTST+13, PRNTST+14, PRNTST+17, PRNTST+18, PRNTST+19, PRNTST+20, PRNTST+21
, PRNTST+22
LRTST END+7!, PRNTST+5*, PRNTST+25*, PRNTST+26*, PRNTST+29
LRTVAL END+7!, PRNTST+5*, PRNTST+29
LRTX END+7!, PRNTST+13*, PRNTST+15, PRNTST+25, PRNTST+26
LRWRD END+9!
PGLEN HDR+7~, HDR+9*, HDR+10
PNM END+5!, PRINT+13*, PRINT+24, PRNTST+10, COM+8
POP END+4!
SEX END+5!
SSN END+5!
STR HDR+7~, HDR+8*, HDR+10*, HDR+11*, HDR+13
T END+5!
U INIT+1*, PRINT+11, PRINT+13, PRINT+14, PRINT+15, PRINT+16, PRNTST+5, PRNTST+13, PRNTST+14, PRNTST+17
, PRNTST+18, PRNTST+19, PRNTST+20, PRNTST+21, PRNTST+22, PRNTST+25, PRNTST+26, PRNTST+30
>> VA("BID" END+5!
>> VA("PID" END+5!
VAERR END+5!
VAR PRNTST+1~, PRNTST+23*
X END+5!
Y END+5!
ZTDESC END+4!
ZTIO END+4!
ZTQUEUED END+2, END+4!
ZTRTN END+4!
ZTSAVE END+4!
ZTSK END+4!
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables |  All