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: LR7OU641

Package: Lab Service

Routine: LR7OU641


Information

LR7OU641 ;SLC/DCM/DALOI/FHS - RESULT NLT LINKING UTILITY SEMI-MANUAL ; 12/3/1997

Source Information

Source file <LR7OU641.m>

Entry Points

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

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !?5,"You have not yet ran the Semi-automatic Linking of RESULT NLT option",!
  • Line Location: 64+3
Function Call: WRITE
  • Prompt: !?20,"[LR70 641-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 assign RESULT NLT Code to Atomic Lab Tests.",80)
  • Line Location: 64+6
Function Call: WRITE
  • Prompt: !,$$CJ^XLFSTR("You must select any WKLD CODE ",80)
  • Line Location: 64+7
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+8
Function Call: WRITE
  • Prompt: !,$$CJ^XLFSTR("ONLY ATOMIC LAB TEST YIELDING RESULTS SHOULD BE ASSIGNED RESULT CODES.",80),!!
  • Line Location: 64+9
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: @IOF
  • Line Location: SEL+3
Function Call: WRITE
  • Prompt: !!?5,"Currently linked to [ ",$P(Y64,U)_" ] "_$P(Y64,U,2),!!
  • Line Location: SELX+3
Function Call: WRITE
  • Prompt: !!,"Now select a RESULT NLT CODE for "_LRDATA,!
  • Line Location: SELX+4
Function Call: WRITE
  • Prompt: !!?3,"IEN: [",DA,"] ",$P(^LAB(60,LRIEN,0),U)," RESULT NLT CODE: ",$$GET1^DIQ(60,LRIEN_",",64.1,"")
  • Line Location: SELX+10
Function Call: WRITE
  • Prompt: !,$S($G(ZTSK):"Task Number "_ZTSK,1:"Failed to Queue Job")
  • Line Location: LLIST+13
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: !?20,"**** End of Print List ****",!!!
  • Line Location: DQ+7
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: PRT+1
Function Call: WRITE
  • Prompt: !?5,LRN,?45,"[ ",$S(LRTY="B":"BOTH",LRTY="N":"NEITHER",LRTY="O":"OUTPUT",1:"INPUT")," ]",!
  • Line Location: PRT+2
Function Call: WRITE
  • Prompt: !,"National VA LAB CODE",?23,$P(^(0),U,2)," ",$P(^(0),U)
  • Line Location: PRT+4
Function Call: WRITE
  • Prompt: !,"Result NLT Code",?23,$P(^(0),U,2)," ",$P(^(0),U)
  • Line Location: PRT+5
Function Call: WRITE
  • Prompt: !
  • Line Location: PRT+6

FileMan Files Accessed Via FileMan Db Call

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