Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call
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>

Entry Points

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

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
  • Variable: LRN
  • Timeout: DTIME
  • 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

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^LAB(60 - [#60] Classic Fileman Calls
^LAM - [#64] Classic Fileman Calls
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call