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

Package: Lab Service

Routine: LRLNCSUF


Information

LRLNCSUF ;DALOI/RSH-PRINT WKLD/NLT CODE LOINC MAPPINGS ;1-OCT-1998

Source Information

Source file <LRLNCSUF.m>

Call Graph

Call Graph Total: 6

Package Total Call Graph
Kernel 5 ^%ZIS  ^%ZISC  ^%ZTLOAD  ($$FMTE,$$NOW)^XLFDT  $$CJ^XLFSTR  
VA Fileman 1 ^DIR  

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Lab Service 1 LR LOINC PRINT DEFAULT/LOINC  

Entry Points

Name Comments DBIA/ICR reference
SDEFCD ;SET DEFAULT LOINC CODE
EN ;
END ;
HDR ;
ACWK ;GET ACCESSION WORKLOAD CODE
GRNLT(LRNLTIEN) ;GET RESULT NLT CODE
GTLNC ;GET LOINC CODE BASED ON THE SPECIMEN
PRT ;PRINT INFO
SMPCD ;GET SAMPLE WORKLOAD CODE
ASK ;
VRWKD ;GET VERIFY WORKLOAD CODE
TOP ;
DQ ;

External References

Name Field # of Occurrence
^%ZIS ASK+4
^%ZISC END+3
^%ZTLOAD ASK+6
^DIR ASK+2, TOP+4
$$FMTE^XLFDT DQ+3
$$NOW^XLFDT DQ+3
$$CJ^XLFSTR EN+2, EN+3, HDR+4, HDR+5

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: @IOF,!!
  • Line Location: EN+1
Function Call: WRITE
  • Prompt: $$CJ^XLFSTR("This option will print WORKLOAD CODES and their LOINC CODES.",IOM)
  • Line Location: EN+2
Function Call: WRITE
  • Prompt: !,$$CJ^XLFSTR("You may use the option 'MAP LOINC TEST TO NLT' to make necessary changes.",IOM)
  • Line Location: EN+3
Function Call: WRITE
  • Prompt: !!?5," Tasked to Print on : ",ION
  • Line Location: ASK+6
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: ASK+7
Function Call: WRITE
  • Prompt: !,LRTSTNM,?45,"THERE IS NO RESULT NLT CODE"
  • Line Location: DQ+23
Function Call: WRITE
  • Prompt: !,LRLINE
  • Line Location: DQ+24
Function Call: WRITE
  • Prompt: !?2,$G(LRTSTNM),?47,$G(LRSPNM)
  • Line Location: PRT+2
Function Call: WRITE
  • Prompt: !?2,$G(LRNLTIEN),?12,LRCODE_" "_$G(LRNAME)
  • Line Location: PRT+3
Function Call: WRITE
  • Prompt: !,"LOINC CODE = ",LRLOINC," ",$G(LRFULL)
  • Line Location: PRT+4
Function Call: WRITE
  • Prompt: !,"DEFAULT LOINC CODE = ",$G(LRDEF)
  • Line Location: PRT+5
Function Call: WRITE
  • Prompt: !,LRLINE
  • Line Location: PRT+7
Function Call: WRITE
  • Prompt: !?15,"Total Number of Mapped WKLD CODES/Specimens: ",LRCNT,!
  • Line Location: END+1
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: END+2
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: HDR+1
Function Call: WRITE
  • Prompt: !,$$CJ^XLFSTR("Alphabetical Listing of Laboratory Tests ",IOM)
  • Line Location: HDR+4
Function Call: WRITE
  • Prompt: !,$$CJ^XLFSTR("that are Mapped to LOINC Codes.",IOM)
  • Line Location: HDR+5
Function Call: WRITE
  • Prompt: !,?5,LRPDT,?60,"Page: ",LRPAGE
  • Line Location: HDR+6
Function Call: WRITE
  • Prompt: !!,"LABORATORY TEST NAME",?45,"SPECIMEN"
  • Line Location: HDR+7
Function Call: WRITE
  • Prompt: !,"NLT IEN # WKLD CODE Name ",!
  • Line Location: HDR+8
Routine Call
  • DIR
  • Line Location:
    • ASK+2
    • TOP+4
Routine Call
  • %ZIS
  • Line Location:
    • ASK+4

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^LAB(60 - [#60] DQ+14, DQ+15, DQ+16, SMPCD+2, SMPCD+3, SMPCD+4, SMPCD+5, VRWKD+1, VRWKD+2, VRWKD+3
, ACWK+2, ACWK+3, ACWK+4
^LAB(61 - [#61] GTLNC+7
^LAB(95.3 - [#95.3] GTLNC+6, GTLNC+7
^LAM - [#64] GRNLT+1, GRNLT+2, GRNLT+4, SDEFCD+1, SDEFCD+3, GTLNC+1, GTLNC+3, GTLNC+5

Label References

Name Line Occurrences
ACWK DQ+19
DQ ASK+7
END ASK+3, ASK+5, ASK+6, ASK+8
GRNLT DQ+17, DQ+18, DQ+19, DQ+21
GTLNC GRNLT+4
HDR DQ+6, DQ+25, PRT+8
PRT SDEFCD+3, GTLNC+8
SMPCD DQ+17
TOP DQ+25, GRNLT+3, GTLNC+2, GTLNC+4, PRT+1, PRT+8
VRWKD DQ+18

Naked Globals

Name Field # of Occurrence
^(0 GRNLT+2, SDEFCD+1, GTLNC+6

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
%ZIS ASK+4!*
DIR ASK+1!, ASK+2!, DQ+1~, END+4!
DIR(0 ASK+1*, TOP+4*
DIRUT ASK+3, END+4!, TOP+5
>> DTOUT ASK+3
DUOUT ASK+3, END+4!, TOP+5
IO ASK+6
IO(0 ASK+6
IOF EN+1, ASK+7, END+2, HDR+1
IOM EN+2, EN+3, DQ+2, HDR+4, HDR+5
ION ASK+6
IOSL TOP+2
IOST END+2, TOP+3
LRACCIEN DQ+13*, DQ+19, DQ+20, ACWK+5*, END+4!
LRASP GTLNC+3*, GTLNC+5, END+4!
LRCNT DQ+4*, DQ+8*, PRT+6*, END+1, END+4!
LRCODE GRNLT+2*, PRT+3, END+4!
LRD1 SMPCD+1*, SMPCD+2*, SMPCD+3, SMPCD+4, SMPCD+5, VRWKD+1*, VRWKD+2*, VRWKD+3, END+4!
LRD2 SMPCD+1*, SMPCD+4*, SMPCD+5, END+4!
LRDEF DQ+5*, SDEFCD+1*, SDEFCD+2*, PRT+5, PRT+6, END+4!
LREND EN+1*, DQ+1~, DQ+4*, DQ+9, DQ+10, DQ+25, GRNLT+3, GTLNC+1, GTLNC+2, GTLNC+4
, PRT+1, PRT+8, END+5!, TOP+1, TOP+3, TOP+5*
LRFULL GTLNC+7*, GTLNC+9*, PRT+4, END+5!
LRIEN DQ+12*, DQ+14, DQ+15, DQ+16, SMPCD+2, SMPCD+3, SMPCD+4, SMPCD+5, VRWKD+1, VRWKD+2
, VRWKD+3, ACWK+2, ACWK+3, ACWK+4, END+5!
LRLINE DQ+2*, DQ+24, PRT+7, END+5!
LRLOINC DQ+13*, GTLNC+6*, GTLNC+8, GTLNC+9*, PRT+4, PRT+6, END+5!
LRNAME GRNLT+2*, PRT+3, END+5!
LRNLTIEN GRNLT~, GRNLT+1, GRNLT+2, GRNLT+4, SDEFCD+1, SDEFCD+3, GTLNC+1, GTLNC+3, GTLNC+5, PRT+3
, END+5!
LRNODE DQ+8*, DQ+9*, DQ+10, DQ+11, DQ+12, END+5!
LRPAGE DQ+4*, END+5!, HDR+1, HDR+2*, HDR+6
LRPDT DQ+3*, END+6!, HDR+6
LRREC ACWK+4*, ACWK+5, END+6!
LRRNLT DQ+16*, DQ+21, DQ+22, END+6!
LRSEL ASK+4*, END+6!
LRSMPIEN DQ+13*, DQ+17, DQ+20, SMPCD+6*, END+6!
LRSPEC GTLNC+1*, GTLNC+3, GTLNC+5, GTLNC+7, END+6!
LRSPNM GTLNC+7*, PRT+2, END+6!
LRSREC SMPCD+5*, SMPCD+6, END+6!
LRSUB ACWK+1*, ACWK+3*, ACWK+4, END+6!
LRTOP DQ+2*, END+7!, HDR+3
LRTSTNM DQ+11*, DQ+23, PRT+2, END+7!
LRVACD DQ+15*, END+7!
LRVREC VRWKD+3*, VRWKD+4, END+7!
LRVWKIEN DQ+13*, DQ+18, DQ+20, VRWKD+4*, END+7!
LRX DQ+14*, GTLNC+5*, GTLNC+6, GTLNC+7, END+7!
POP ASK+5, END+7!
U DQ+14, DQ+15, DQ+16, SMPCD+6, VRWKD+4, ACWK+5, GRNLT+2, SDEFCD+1, GTLNC+6, GTLNC+7
>> Y ASK+3, ASK+4
ZTDESC ASK+6*, END+7!
ZTIO ASK+6*, END+7!
>> ZTQUEUED DQ+3
>> ZTREQ DQ+3*
ZTRTN ASK+6*, END+7!
ZTSAVE END+7!
ZTSAVE("LRSEL" ASK+6*
>> ZTSK ASK+6
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All