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

Package: Lab Service

Routine: LRLNC63A


Information

LRLNC63A ;DALOI/FHS-HISTORICAL LOINC MAPPER UTILITY ;01/30/2001 15:19

Source Information

Source file <LRLNC63A.m>

Call Graph

Call Graph Total: 11

Package Total Call Graph
Kernel 4 $$S^%ZTLOAD  ($$FMTE,$$NOW)^XLFDT  $$CJ^XLFSTR  SETUP^XQALERT  
Lab Service 3 $$DATE^LRDAGE  (LK6304,QUE)^LRLNC63  LIST^LRLNC63A  
VA Fileman 3 FILE^DIE  ($$GET1,GETS)^DIQ  ^DIR  
MailMan 1 ^XMD  

Caller Graph

Caller Graph Total: 3

Package Total Caller Graph
Lab Service 3 LR LOINC HISTORICAL RESTART 63  LRLNC63  LRLNC63A  

Entry Points

Name Comments DBIA/ICR reference
MAP ;Provide a list of mapped test in ^ delimited format
XTMP(LRSUB) ;Setup XTMP("LRLNC",1,LRSUB)=Result NLT code
XQA ;Send alert message
DECIMAL ;Check for possible LRDFN's >999999 - LRDFN maybe set to LRIDT format
LIST ;List those test not have result NLT codes defined
NLT(X) ;
UPDATE ;If mapping complete, send list of tests not having result NLT codes
MAPMAIL ;Send mail message containing mapped test
RANGE ; Change for high/low ranges $S( statement to a numeric value
DONE ; Send alert message when LRDFN sequence range mapping is finished
CLEAN ;
RERUN ; This will restart the historical mapping from the beginning.
; To restart call QUE^LRLNC63
MAIL ;Send mail message containing tests not having RNLT codes.

External References

Name Field # of Occurrence
$$S^%ZTLOAD DECIMAL+4
FILE^DIE UPDATE+10
$$GET1^DIQ MAP+13
GETS^DIQ LIST+16
^DIR RERUN+7
$$DATE^LRDAGE RANGE+2
LK6304^LRLNC63 DECIMAL+6
QUE^LRLNC63 RERUN+10
LIST^LRLNC63A UPDATE+7
$$FMTE^XLFDT DECIMAL+10, DECIMAL+15
$$NOW^XLFDT DECIMAL+3, DECIMAL+10, DECIMAL+11, DECIMAL+15, DONE+2
$$CJ^XLFSTR RERUN+3, RERUN+4, RERUN+5, RERUN+6
^XMD MAIL+10, MAPMAIL+7
SETUP^XQALERT XQA+2

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,$$CJ^XLFSTR(" This will re-run LOINC Historical Mapping from the beginning ",80)
  • Line Location: RERUN+3
Function Call: WRITE
  • Prompt: !,$$CJ^XLFSTR("reseting all globals to zero.",80)
  • Line Location: RERUN+4
Function Call: WRITE
  • Prompt: !,$$CJ^XLFSTR(" To restart from a stopping point use the",80)
  • Line Location: RERUN+5
Function Call: WRITE
  • Prompt: !,$$CJ^XLFSTR("LAB DATA LOINC Mapping Option.",80),!!
  • Line Location: RERUN+6
Routine Call
  • DIE
  • Line Location:
    • UPDATE+10
Routine Call
  • DIR
  • Line Location:
    • RERUN+7

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^LAB(60 - [#60] GETS^DIQ
^LAB(95.3 - [#95.3] GET1^DIQ

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^LAB(60 - [#60] XTMP+4, XTMP+5, NLT+2, LIST+12, LIST+13, MAP+14, MAP+15
^LAB(61 - [#61] MAP+11
^LAM - [#64] NLT+2
^LR - [#63] DECIMAL+2, DECIMAL+4, DECIMAL+5
^TMP("LRLNC63" LIST+1!, LIST+3*, LIST+4*, LIST+5*, LIST+6*, LIST+7*, LIST+8*, LIST+18*, MAIL+3, MAIL+4*
, MAP+3*, MAP+4*, MAP+5*, MAP+17*, CLEAN+1!
^XTMP("LRLNC63" XTMP+1, XTMP+6*, XTMP+7*, LIST+9, DECIMAL+3*, DECIMAL+4, DECIMAL+5*, DECIMAL+7*, DECIMAL+8, DECIMAL+11*
, DECIMAL+14, DONE+1, DONE+2*, UPDATE+5, RERUN+9!

Label References

Name Line Occurrences
$$NLT XTMP+6
XQA DECIMAL+13, DONE+3

Naked Globals

Name Field # of Occurrence
^( XTMP+6, LIST+9
^(0 NLT+2, MAP+11, MAP+15

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> AGE RANGE+2*
DIR RERUN+2~
DIR("A" RERUN+7*
DIR(0 RERUN+7*
DIRUT RERUN+2~
>> DOB RANGE+2
DT UPDATE+8
>> LR5 RANGE+2, RANGE+9*
LRANS LIST+2~, LIST+14~
LRANS(60 LIST+18
LRCDEF MAP+1~, MAP+12*, MAP+17
>> LRCDT RANGE+2
>> LRCH LIST+11*, LIST+12
LRCHK XTMP+2~, XTMP+3*, XTMP+4, XTMP+6*, XTMP+7
LRCNT LIST+2~, LIST+9*, LIST+17*, LIST+18
>> LRDATA5 RANGE+4, RANGE+9*
LRERR UPDATE+2!
LRFDA UPDATE+2!
LRFDA(95 UPDATE+8*, UPDATE+9*
LRLNC MAP+1~, MAP+13*, MAP+17
>> LRLST UPDATE+4, UPDATE+9
>> LRMCNT MAP+2*, MAP+6*, MAP+16*, MAP+17
LRNLT MAP+1~, MAP+10*, MAP+17
LRNOP UPDATE+2!, UPDATE+3*, UPDATE+4, UPDATE+5*, UPDATE+6
LRNOW DECIMAL+9~, DECIMAL+10*, DECIMAL+12
>> LRNXT DECIMAL+1*, DECIMAL+4*, DECIMAL+5, DECIMAL+6, DECIMAL+7
LRP RANGE+1!, RANGE+3*, RANGE+4, RANGE+9
LRSB LIST+2~, LIST+9*, LIST+11, MAP+1~, MAP+9*, MAP+14, MAP+17
>> LRSEQ DECIMAL+1*, DECIMAL+2, DECIMAL+3, DECIMAL+4, DECIMAL+5, DECIMAL+7, DECIMAL+11, DECIMAL+12, DECIMAL+14, DECIMAL+15
, DONE+1, DONE+2
LRSEQX UPDATE+2!, UPDATE+4*, UPDATE+5
>> LRSPEC MAP+9*, MAP+11, MAP+17
LRSPECN MAP+1~, MAP+11*, MAP+17
LRSUB XTMP~, XTMP+1, XTMP+4, XTMP+6, XTMP+7
LRTST XTMP+2~, XTMP+3*, XTMP+4*, XTMP+5, XTMP+6, LIST+11*, LIST+12*, LIST+13, LIST+15, LIST+18
, MAP+1~, MAP+14*, MAP+15*, MAP+17
LRV LIST+14~, LIST+15*, LIST+16, LIST+18
LRX LIST+2~, LIST+9*, LIST+10
NODE MAP+1~, MAP+7*, MAP+8*, MAP+9, MAP+10, MAP+12, MAP+13
U XTMP+5, NLT+2, MAP+11, MAP+15, MAP+17, DECIMAL+11
VAL RANGE+1!, RANGE+4*, RANGE+5, RANGE+6, RANGE+7
VALX RANGE+1!, RANGE+7*, RANGE+8, RANGE+9
X NLT~, NLT+2
XMDUZ MAIL+5~, MAIL+8*, MAPMAIL+2~, MAPMAIL+5*
XMSUB MAIL+5~, MAIL+6*, MAPMAIL+2~, MAPMAIL+3*
XMTEXT MAIL+5~, MAIL+7*, MAPMAIL+2~, MAPMAIL+4*
XMY MAIL+5~, MAPMAIL+2~
XMY("G.LMI" MAIL+9*, MAPMAIL+6*
>> XQA("G.LMI" XQA+1*
>> XQAMSG DECIMAL+12*, DECIMAL+15*
Y NLT+1~, NLT+2*, NLT+3, RERUN+2~, RERUN+8
>> ZTSTOP DECIMAL+4*
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 |  All