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 |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All
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>

Call Graph

Call Graph Total: 6

Package Total Call Graph
Kernel 3 ^%ZIS  ^%ZISC  ($$CJ,$$LJ)^XLFSTR  
Lab Service 2 EX1^LREXPD  QUE^LRLNC63  
VA Fileman 1 ^DIR  

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Lab Service 1 LR LOINC HISTORICAL MODIFY  

Entry Points

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

External References

Name Field # of Occurrence
^%ZIS DISPLAY+7
^%ZISC DISPLAY+19
^DIR EN+10, SELECT+10, DISPLAY+13, CHK+3, CHK+4, CHK+8, EDIT+3, EDIT+9, EXPAND+7, EXPAND+10
EX1^LREXPD EXPAND+5
QUE^LRLNC63 FIRE+1
$$CJ^XLFSTR EN+2, EN+3, SELECT+5, DISPLAY+4, DISPLAY+5
$$LJ^XLFSTR EN+4, EN+5, EN+6, EN+7, EN+8

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
Routine Call
  • DIR
  • Line Location:
    • EN+10
    • SELECT+10
    • DISPLAY+13
    • CHK+3
    • CHK+4
    • CHK+8
    • EDIT+3
    • EDIT+9
    • EXPAND+7
    • EXPAND+10
Routine Call
  • %ZIS
  • Line Location:
    • DISPLAY+7

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^LAB(60 - [#60] EXPAND+3, EXPAND+13, EXPAND+15
^TMP("LR" EN+11!, EXPAND+1!, EXPAND+11, EXPAND+12
^TMP("LRLNC63" EN+11!, DISPLAY+2, CHK+10, EDIT+5, EDIT+10!, EXPAND+15*
^XTMP("LRLNC63" EN+11!, CHK+14*, END+2!

Label References

Name Line Occurrences
DISPLAY CHK+9
EDIT CHK+9, EDIT+5, EDIT+7, EDIT+11
END CHK+3, CHK+5, CHK+8
EXPAND SELECT+13
SELECT CHK+4
SHO DISPLAY+17, EDIT+8

Naked Globals

Name Field # of Occurrence
^( EXPAND+12
^(0 EXPAND+15

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
DIR EN+1!, SELECT+4!, DISPLAY+9~, DISPLAY+10*, CHK+4!, EDIT+1!, EXPAND+2!, EXPAND+9!
DIR("?" SELECT+6*, SELECT+7*
DIR("A" EN+9*, SELECT+9*, CHK+3*, CHK+4*, CHK+8*, EDIT+2*, EXPAND+6*, EXPAND+9*
DIR("S" SELECT+8*
DIR(0 EN+9*, SELECT+8*, CHK+3*, CHK+4*, EDIT+3*, EDIT+9*, EXPAND+6*, EXPAND+9*
DIRUT DISPLAY+1!, DISPLAY+11, DISPLAY+13, CHK+3, END+1!, EDIT+1!, EDIT+4, EDIT+9
IO DISPLAY+8
IOF EN+1, DISPLAY+3, DISPLAY+14, DISPLAY+18
IOSL DISPLAY+12
IOST DISPLAY+13, DISPLAY+18
>> LRCFL EXPAND+1*
LRCNT EN+11!, EDIT+3, EXPAND+14*, EXPAND+15
LRMOD SELECT+1!, CHK+11*
>> LRN EXPAND+12*, EXPAND+15
>> LRNX EXPAND+4*, EXPAND+12*, EXPAND+13, EXPAND+15
LROX EN+11!
>> LRSUF EXPAND+8*, EXPAND+10*, EXPAND+15
LRTEST EXPAND+2!
LRTEST( EXPAND+3*
LRX SHO+1~, SHO+2*, SHO+3, EXPAND+2!
LRXY SHO+1~
LRY SELECT+1!, SELECT+2*, SELECT+3, SELECT+11*, SELECT+12, DISPLAY+1!, EDIT+5*, EDIT+10, EXPAND+3
>> LRYY SELECT+12*
NODE SELECT+1!, DISPLAY+11*, CHK+12*, CHK+13*, CHK+14, SHO+2, SHO+3, EDIT+6*, EDIT+7*
>> POP DISPLAY+7
T1 EXPAND+2!, EXPAND+3*
U SELECT+12, CHK+5, CHK+8, SHO+3, EXPAND+3, EXPAND+8, EXPAND+10, EXPAND+13, EXPAND+15
X SELECT+4!
>> Y EN+10, SELECT+11, CHK+3, CHK+4, CHK+5, CHK+8, CHK+9, EDIT+5, EDIT+6, EDIT+7
, EDIT+10, EXPAND+7, EXPAND+10
>> Y(0 SELECT+12, EXPAND+8
>> ZTSAVE("LRMOD" CHK+11*
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All