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
Print Page as PDF
Routine: LRLNC63B

Package: Lab Service

Routine: LRLNC63B


Information

LRLNC63B ;DALOI/FHS-HISTORICAL LOINC MAPPING MODIFIER ;01/30/2001 15:19

Source Information

Source file <LRLNC63B.m>

Entry Points

Name Comments DBIA/ICR reference
EN ;
SELECT ;Indicate which DATANAMES LOINC definition to be changed.
DISPLAY ;Show what has been recorded
CHK ;
; K ^TMP("LR",$J)
FIRE ;Run the mapping tasking function
END ;
SHO ;
EDIT ;
EXPAND ;If panel test expand to get parts

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: EN+1
Function Call: WRITE
  • Prompt: !!,$$CJ^XLFSTR("This option will allow you to manage how specific DataNames",80)
  • Line Location: EN+2
Function Call: WRITE
  • Prompt: !,$$CJ^XLFSTR("will be mapped to LOINC Codes for historical data.",80)
  • Line Location: EN+3
Function Call: WRITE
  • Prompt: !!,$$LJ^XLFSTR("You are able to override file definitions to correct past LOINC mappings.",80)
  • Line Location: EN+4
Function Call: WRITE
  • Prompt: !,$$LJ^XLFSTR("Select the CH subsripted test, indicate the suffix to be used.",80)
  • Line Location: EN+5
Function Call: WRITE
  • Prompt: !,$$LJ^XLFSTR("You can indicate if this suffix should override previous LOINC Mapping.",80),!
  • Line Location: EN+6
Function Call: WRITE
  • Prompt: !,$$LJ^XLFSTR("This option will REMAP your entire database.",80),!!
  • Line Location: EN+7
Function Call: WRITE
  • Prompt: !,$$LJ^XLFSTR("This option should only be run on weekends after hours.",80),!
  • Line Location: EN+8
Function Call: WRITE
  • Prompt: !!
  • Line Location: SELECT+3
Function Call: WRITE
  • Prompt: !,$$CJ^XLFSTR("Selection can be a 'CH' Atomic or Panel test.",80),!
  • Line Location: SELECT+5
Function Call: WRITE
  • Prompt: !?5,"Nothing was selected, Process Aborted",!
  • Line Location: DISPLAY+2
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: DISPLAY+3
Function Call: WRITE
  • Prompt: !,$$CJ^XLFSTR("Here is a list of what you have selected.",80)
  • Line Location: DISPLAY+4
Function Call: WRITE
  • Prompt: !,$$CJ^XLFSTR("[O] indicates override current mapping.",80),!
  • Line Location: DISPLAY+5
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: DISPLAY+14
Function Call: WRITE
  • Prompt: !,"Here is a list of what you have selected."
  • Line Location: DISPLAY+15
Function Call: WRITE
  • Prompt: !,"[O] indicates override current mapping.",!
  • Line Location: DISPLAY+16
Function Call: WRITE
  • Prompt: !
  • Line Location: CHK+2
Function Call: WRITE
  • Prompt: !
  • Line Location: CHK+7
Function Call: WRITE
  • Prompt: !,$QS(NODE,3)_" "_$S($P(LRX,U,6):"[O]",1:" "),?7,$E($P(LRX,U,3),1,30),?40,$E($P(LRX,U,4),1,25),?70,"/ ",$P(LRX,U,5)
  • Line Location: SHO+3
Function Call: WRITE
  • Prompt: !?5,Y_" Entry not Valid",!
  • Line Location: EDIT+5
Function Call: WRITE
  • Prompt: !?5,Y_" Entry not Valid",!
  • Line Location: EDIT+7
Info |  Source |  Entry Points |  Interaction Calls