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 |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All
Print Page as PDF
Routine: LRORD2

Package: Lab Service

Routine: LRORD2


Information

LRORD2 ;VA/SLC/CJS - MORE OF LAZY ACCESSION LOGGING ;8/11/97 [ 04/09/2003 8:55 AM ]

Source Information

Source file <LRORD2.m>

Call Graph

Call Graph Total: 7

Package Total Call Graph
VA Fileman 5 ^DIC  DO^DIC1  YN^DICN  DQ^DICQ  EN^DIQ  
Lab Service 2 DUP^LRORD2  GS^LRORD3  

Caller Graph

Caller Graph Total: 14

Package Total Caller Graph
Lab Service 13 LREXECU  LREXECU1  LRMIBL  LRORD  LRORD1  LRORD1GU  LRORD2  LRORDD  
LRORDGUI  LRORDST  LROW1A  LROW2  LRWU1  
IHS Changes To Lab 1 BLRORD1  

Entry Points

Name Comments DBIA/ICR reference
Q20 ;
TCOM(TEST,COM) ;Get comments by test
URG ;from LRMIBL, LRORD1, LRWU1
LRM ; F LRSSX=LRM:1 D Q15,^DIC Q:Y<1 S LRWPC=LRWPC+1,LRTSTS=+Y,LRTX(LRTSTS)="",LRURGG=$P(Y(0),U,18) D ENQ K DIC("S") D GS^LRORD3 I LRSAMP>0&(LRSPEC>0) D Q20 S:'LREND LRM=LRM+1 I LREND K LRSAME Q
; ----- BEGIN IHS/OIT/MKK - LR*5.2*1030 -- S:Y<1 %=1 corrects an issue at Q14^LRORD1
RC1
GCOM ;from LRORD1, LRPHITEM, LRTSTJAN, LRWU1
RCS ;from LREXECU, LRORDST, LROW2
Q15 ;from LRORD
ENQ
ZQ
URG1
DUP ;from LRORDD
RCOM ;from LRORDST, LROW1
Z3
Z0
Z1
Z2
MORE ;get more tests, from LRORD1

External References

Name Field # of Occurrence
^DIC LRM+2, URG+8
DO^DIC1 ZQ
YN^DICN Z3+1
DQ^DICQ ZQ
EN^DIQ ENQ
DUP^LRORD2 Q20+4
GS^LRORD3 LRM+2

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!?20," ~ ",$P(^LAB(60,LRTSTS,0),U)," ",$S($D(^LAB(62,LRSAMP,0)):$P(^(0),U),1:"")," ",$S($D(^LAB(61,LRSPEC,0)):$P(^(0),U),1:"")," ~"
  • Line Location: Q20+1
Function Call: WRITE
  • Prompt: !," ",DIC,^(DR,0)
  • Line Location: Q20+8
Function Call: WRITE
  • Prompt: !," ",DIC,^(DR,0)
  • Line Location: Q20+10
Function Call: READ
  • Timeout: DTIME
  • Variable: %
  • Line Location: Q20+14
Function Call: WRITE
  • Prompt: !,"Answer 'Y' or 'N': "
  • Line Location: Q20+14
Function Call: WRITE
  • Prompt: !,"For ",$P(^TMP("LRSTIK",$J,LRSSX),U,2)
  • Line Location: Q20+15
Function Call: WRITE
  • Prompt: !,"No up-arrows or semicolons allowed."
  • Line Location: RC1+0
Function Call: WRITE
  • Prompt: " (",$E(B3,1,$L(B3)-1),")"
  • Line Location: Z0+0
Function Call: WRITE
  • Prompt: !,"Unless special comments are required, this comment will be associated with",!,"all tests requested for this entry."
  • Line Location: Z3+1
Function Call: WRITE
  • Prompt: " too long",!
  • Line Location: Z1+0
Function Call: WRITE
  • Prompt: !,"Since this test, collection sample, and site/specimen has already",!,"been requested on this order, it will NOT be duplicated.",$C(7),!,"If you really need a duplicate, place a separate order."
  • Line Location: DUP+1
Function Call: WRITE
  • Prompt: !,"Since this test, collection sample, and site/specimen has already",!
  • Line Location: DUP+3
Function Call: WRITE
  • Prompt: "been requested on this order, it will NOT be duplicated.",$C(7),!
  • Line Location: DUP+4
Function Call: WRITE
  • Prompt: "If you really need a duplicate, place a separate order."
  • Line Location: DUP+5
Routine Call
  • DIC
  • Line Location:
    • LRM+2
    • URG+8

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^LAB(60 - [#60] Classic Fileman Calls
^LAB(62.05 - [#62.05] Classic Fileman Calls
^LAB(62.5 - [#62.5] Classic Fileman Calls

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^LAB(60 - [#60] Q20+4, Q20+7, Q20+10, URG+1, TCOM+3
^LAB(61 - [#61] Q20+4
^LAB(62 - [#62] Q20+4
^LAB(62.07 - [#62.07] RCOM+3
^LAB(62.5 - [#62.5] Z2
^LAB(69.9 - [#69.9] URG+2
^TMP("LRSTIK" %+1

Label References

Name Line Occurrences
% %
ENQ LRM+2
Q15 LRM+2
Q20 LRM+2
RCOM RCOM+3, Z3+1, ZQ+1, GCOM+1
TCOM Z3+2
URG Q20+12
URG1 URG+1
Z1 Z0
Z2 Z1
Z3 RC1, Z3+1
ZQ RC1, Z0

Naked Globals

Name Field # of Occurrence
^( Q20+10, RCOM+3
^(0 Q20+4, Q20+7, URG+1
^(9 Z2

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> % LRM+2*, %*, Z3+1*
A4 Z0!, Z1*
B3 Z0*!, Z1*
B6 Z0!, Z1*, Z2*
>> BGUPRAM URG+6
>> BLRGUI Q20+4, Q20+10, URG+5, URG+6, RCOM+3, RCOM+4, RCOM+5, RC1, Z0, Z3
, Z3+1, DUP+2, DUP+7
>> BPCCOM RCOM+5
COM TCOM~, TCOM+2, TCOM+4
>> D ZQ*
>> DA ENQ*
DIC ENQ*, Q15+3*, Q20+10*, URG+5!*, URG+6*, URG1!, ZQ*!
DIC("A" URG+5*
DIC("B" Q20+12*, URG+5*, URG+6*
DIC("S" LRM+2!, Q15+1*, Q15+2*, URG+5*, URG+8*, ZQ*
DIC(0 Q15+3*, URG+5*, URG+6*, ZQ*
>> DIE ZQ*
DO ZQ!
>> DR ENQ*, Q20+10*
DTIME %, RCOM+4
>> DZ ZQ*
H URG+1*, URG+8, URG1!
H(0 URG+1*, URG+5, URG+6
>> I Z2
>> LRCCOM RCOM+1*, RCOM+3, RCOM+4*, RCOM+5*, RC1, Z0*, Z3+1*, Z3+2, Z1, Z1+1*
, ZQ, GCOM+1
>> LREND LRM+2, Q20+3*, Q20+6, DUP+6*, DUP+7*
>> LREXP Q20+7*, Q20+12, RCOM+1*, RCOM+3, RCOM+4, GCOM+1*
>> LRGCOM GCOM+1*
>> LRKIL RCOM+3
>> LRLABKY ENQ, Q15+1, Q20+10
>> LRM LRM+2*
>> LRORDR Q15+1, URG+5, URG+6, URG+8
>> LRORDRR Q15+2
>> LROT( Q20+4, Q20+7*, Q20+12*, URG1*, DUP+2, DUP+7
>> LROUTINE Q20+12, URG+2*, URG+5
LRPCE Z0*, Z1+1!
>> LRQ Z3
LRSAME LRM+2!, LRM+4!
>> LRSAMP LRM+2, Q20+4, Q20+7, Q20+10, Q20+12, URG1, DUP+2, DUP+7
>> LRSPEC LRM+2, Q20+4, Q20+7, Q20+12, URG1, DUP+2, DUP+7
>> LRSSX LRM+2*, Q20+7, Q20+12, %+1, URG1
>> LRTCOM( TCOM+3*, TCOM+4*
>> LRTEST( Z3+2
>> LRTSTN Z3+2
>> LRTSTNM RCOM+1*
>> LRTSTS LRM+2*, ENQ, Q20+4, Q20+7, Q20+10, URG+1, DUP+2, DUP+7
>> LRTX( LRM+2*
LRURGG LRM+2*, URG+1!
>> LRWPC LRM+2*
TEST TCOM~, TCOM+2, TCOM+3, TCOM+4
U LRM+2, Q15+1, Q20+4, Q20+7, %+1, URG+1, URG+2, Z2
>> V Z1*
X URG+1*, URG+6*, URG+8*, URG1, Z2, ZQ*, TCOM+1~, TCOM+3*, TCOM+4*
>> Y LRM+2, URG+8, Z1*, Z2*
>> Y(0 LRM+2
>> Z Q20+3*, Q20+4*, DUP+2, DUP+7
Info |  Source |  Call Graph |  Caller 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