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 |  Marked Items |  All
Print Page as PDF
Routine: LR7OU5

Package: Lab Service

Routine: LR7OU5


Information

LR7OU5 ;DALOI/DCM/FHS-NLT LINKING UTILITY SEMI-MANUAL ; 2/23/07 6:53am

Source Information

Source file <LR7OU5.m>

Call Graph

Call Graph Total: 9

Package Total Call Graph
Kernel 5 ^%ZIS  ^%ZISC  ^%ZTLOAD  $$HTE^XLFDT  ($$CJ,$$LJ)^XLFSTR  
Lab Service 2 (91,END,LINK)^LR7OU4  ^LRCAPD  
VA Fileman 2 ^DIC  ^DIR  

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Lab Service 1 LR7O 60-64 MANUAL  

Entry Points

Name Comments DBIA/ICR reference
EN ;
OK
LLIST ;
LIST ;Print LOINC Code Status
LK ;
LAB ;
START
64 ;User assigns links between 60 and 64 (NLT)
PRT ;
TXT ;;
MSG ;
END ;
SEL ;
CHECK ;
DQ

External References

Name Field # of Occurrence
^%ZIS LLIST+5
^%ZISC LLIST+5, DQ+7
^%ZTLOAD LLIST+5
^DIC CHECK+9, SEL+3, SEL+9
^DIR 64+12, 64+14, MSG+2, START+3, LLIST+2
91^LR7OU4 CHECK+4
END^LR7OU4 END+1
LINK^LR7OU4 OK+2
^LRCAPD 64+13
$$HTE^XLFDT DQ+1
$$CJ^XLFSTR 64+6, 64+7, 64+8, 64+9, 64+10, START+1, LAB+3, CHECK+8
$$LJ^XLFSTR START+2

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !?5,"You have not yet ran the 'Semi-automatic Linking of file 60 to 64' option",!
  • Line Location: 64+3
Function Call: WRITE
  • Prompt: !?20,"[LR70 60-64 AUTO]",!
  • Line Location: 64+4
Function Call: WRITE
  • Prompt: !,"IT IS STRONGLY RECOMMENDED YOU RUN THE AUTOMATIC OPTION FIRST",!!
  • Line Location: 64+5
Function Call: WRITE
  • Prompt: !,$$CJ^XLFSTR("This option will allow you to make links between file 64 (NLT) and file 60.",80)
  • Line Location: 64+6
Function Call: WRITE
  • Prompt: !,$$CJ^XLFSTR("You may select ANY NLT code to create ",80)
  • Line Location: 64+7
Function Call: WRITE
  • Prompt: !,$$CJ^XLFSTR("a linkage of entries between these two files. ",80)
  • Line Location: 64+8
Function Call: WRITE
  • Prompt: !,$$CJ^XLFSTR("Tests with the type of NEITHER or null will be skipped in the Auto Mode.",80)
  • Line Location: 64+9
Function Call: WRITE
  • Prompt: !,$$CJ^XLFSTR("ONLY ORDERABLE LAB TEST NEED TO BE LINKED TO WKLD CODES.",80),!
  • Line Location: 64+10
Function Call: WRITE
  • Prompt: !
  • Line Location: MSG+1
Function Call: WRITE
  • Prompt: !
  • Line Location: START+0
Function Call: WRITE
  • Prompt: !!,$$CJ^XLFSTR(DIR("A"),80)
  • Line Location: START+1
Function Call: WRITE
  • Prompt: !,$$LJ^XLFSTR(LN,80)
  • Line Location: START+2
Function Call: WRITE
  • Prompt: !!
  • Line Location: START+3
Function Call: READ
  • Timeout: DTIME
  • Variable: LRN
  • Line Location: LIST+1
Function Call: WRITE
  • Prompt: !
  • Line Location: LK+1
Function Call: WRITE
  • Prompt: !,"Database is corrupted for WKLD CODE ",LRCODE
  • Line Location: CHECK+5
Function Call: WRITE
  • Prompt: !,$$CJ^XLFSTR("Select NLT code to be linked with LAB TEST",80),!,$$CJ^XLFSTR(LRDATA,80),!
  • Line Location: CHECK+8
Function Call: WRITE
  • Prompt: !!,"Database is corrupted for IEN ",LRMIEN
  • Line Location: OK+0
Function Call: WRITE
  • Prompt: !!,"60 = ",LRDATA,!,"64 = ",LRMNAME_" "_LRCODE
  • Line Location: OK+1
Function Call: WRITE
  • Prompt: !!?5,"Currently linked to [ ",$P(Y64,U)_" ] "_$P(Y64,U,2),!!
  • Line Location: SEL+6
Function Call: WRITE
  • Prompt: !!,"Now select ANY WKLD CODE for "_LRDATA,!!
  • Line Location: SEL+7
Function Call: WRITE
  • Prompt: !?5,"Would you like a list of Laboratory Tests"
  • Line Location: LLIST+1
Function Call: WRITE
  • Prompt: !!?5,"Listing of ",$S(LRANS=1:"ALL",LRANS=2:"LINKED",1:"UNLINKED")," Laboratory Test [ ",$$HTE^XLFDT($H)," ] ",!!
  • Line Location: DQ+1
Function Call: WRITE
  • Prompt: !?5,LRN,?45,$S(LRTY="B":"BOTH",LRTY="N":"NEITHER",LRTY="O":"OUTPUT",1:"INPUT"),!
  • Line Location: PRT+1
Function Call: WRITE
  • Prompt: $P(^(0),U,2),?15,$P(^(0),U)
  • Line Location: PRT+2
Function Call: WRITE
  • Prompt: !
  • Line Location: PRT+3
Routine Call
  • DIC
  • Line Location:
    • CHECK+9
    • SEL+3
    • SEL+9
Routine Call
  • DIR
  • Line Location:
    • 64+12
    • 64+14
    • MSG+2
    • START+3
    • LLIST+2
Routine Call
  • %ZIS
  • Line Location:
    • LLIST+5

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^LAB(60 - [#60] Classic Fileman Calls
^LAM - [#64] Classic Fileman Calls

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^LAB(60 - [#60] 64+2, LAB+1, LAB+2, CHECK+1, CHECK+2, SEL+5, DQ+2, DQ+3, DQ+5, DQ+6
, PRT+2
^LAM - [#64] CHECK+3, CHECK+5, CHECK+6, OK, SEL+5, PRT+2
^LAM("C" CHECK+6

Label References

Name Line Occurrences
CHECK LAB+2
END 64+1, 64+12, MSG+2, START+3, LIST+1, LAB+4, SEL+3
LLIST 64+1
OK CHECK+3, SEL+10
PRT DQ+4, DQ+5, DQ+6
SEL START+3, SEL+9, SEL+10
START 64+12

Naked Globals

Name Field # of Occurrence
^( LAB+2, DQ+3
^(0 CHECK+2, CHECK+3, CHECK+5, SEL+5, DQ+3, PRT+2
^(64 SEL+5

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
%ZIS LLIST+5!*
>> AUTO LK+1*, OK+2, SEL+1*
DIC CHECK+1!, CHECK+7!*, SEL+2!, SEL+3*, SEL+8!*
DIC("A" SEL+2*, SEL+8*
DIC(0 CHECK+7*, SEL+3*, SEL+8*
DIR 64+11!, 64+13!, MSG+1!, START!, START+3!, LIST+1!, SEL+2!, LLIST+2!
DIR("?" START*, START+2*
DIR("A" 64+11*, 64+13*, MSG+1*, START*, START+1
DIR("B" 64+11*
DIR(0 64+11*, 64+13*, MSG+1*, START*, LLIST+2*
DIROUT END+3!
DIRUT 64+12, MSG+2, START+3, END+3!, LLIST+3
DTIME LIST+1
DTOUT 64+12, MSG+2, START+3, END+3!, LLIST+3
DUOUT 64+12, MSG+2, START+3, END+3!, LLIST+3
>> END LAB+1*, LAB+2, LAB+3, CHECK+1, CHECK+9*
>> I START+2*
IO DQ
IO("Q" LLIST+5
IOF DQ+7
IOST DQ+7
LINKED END+2!
LN START+2*, START+3!
LRANS END+1!, LLIST+4*, DQ+1, DQ+4, DQ+5, DQ+6
>> LRCODE CHECK+3*, CHECK+5*, CHECK+6, CHECK+10*, OK+1, SEL+9*
>> LRDATA CHECK+2*, CHECK+8, OK+1, SEL+4*, SEL+7
LREND 64+1, END+1!, DQ+2, DQ+3
>> LRIEN LAB+2*, CHECK+1, CHECK+2, OK+2, SEL+4*, DQ+2*, DQ+3*, DQ+5, DQ+6, PRT+2
LRMIEN CHECK+3, CHECK+4!, CHECK+5*, CHECK+6*, CHECK+10*, OK, OK+2, SEL+9*
LRMNAME CHECK+3*, CHECK+10*, OK+1, END+2!, SEL+9*
LRN LIST+1*, LK+1*, LAB+1*, LAB+2, END+1!, DQ+2*, DQ+3, PRT+1
LRNLT END+2!, PRT+2*
LRTY CHECK+2*, END+1!, DQ+3*, PRT+1
POP END+2!, LLIST+5
U LIST+1, CHECK+2, CHECK+3, CHECK+5, CHECK+9, CHECK+10, SEL+4, SEL+6, SEL+9, DQ+3
, PRT+2
>> X CHECK+9
X1 END+3!
X60 END+3!, SEL+4*, SEL+5
X64 END+3!, SEL+9*
>> Y 64+12, MSG+2, START+3, CHECK+3*, CHECK+9, CHECK+10, SEL+3, SEL+4, SEL+9, LLIST+3
, LLIST+4
>> Y(0 CHECK+3*, CHECK+10, SEL+4, SEL+9
Y64 END+3!, SEL+5*, SEL+6
ZTDESC END+2!, END+3!, LLIST+5*
ZTQUEUED END+2!, DQ
>> ZTREQ DQ*
ZTRTN END+2!, LLIST+5*
ZTSAVE END+1!, LLIST+5!
ZTSAVE("LRANS" LLIST+5*

Marked Items

Name Field # of Occurrence
$T(TXT+I START+2
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 |  Marked Items |  All