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

Package: Lab Service

Routine: LRLNCPRT


Information

LRLNCPRT ;DALOI/FHS - PRINT WKLD/NLT CODE LOINC MAPPINGS ;1-OCT-1998

Source Information

Source file <LRLNCPRT.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 NLT/LOINC  

Entry Points

Name Comments DBIA/ICR reference
EN ;
END ;
HDR ;
TOP ;
SPEC(LRIEN,LRTOP) ;
ASK ;
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: !?5,"*** WKLD CODE ",LRCN," ***",!?10," [ ",LRNAME," ] IS CORRUPTED ",!
  • Line Location: SPEC+11
Function Call: WRITE
  • Prompt: !?2,LRIEN,?12,LRCN_" "_LRNAME
  • Line Location: SPEC+13
Function Call: WRITE
  • Prompt: !?5,"Specimen: ",$P($G(^LAB(61,LRSPEC,0)),U)
  • Line Location: SPEC+14
Function Call: WRITE
  • Prompt: !?10,"Collection Type: ",$P($G(^LAB(64.061,LRASP,0)),U)
  • Line Location: SPEC+15
Function Call: WRITE
  • Prompt: !,"LOINC= ",LRX," [",$G(^LAB(95.3,LRX,80)),"]"
  • Line Location: SPEC+16
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 Workload (WKLD) CODES ",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: !!,"NLT IEN # WKLD CODE Name ",!
  • Line Location: HDR+7
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(61 - [#61] SPEC+14
^LAB(64.061 - [#64.061] SPEC+15
^LAB(95.3 - [#95.3] SPEC+10, SPEC+16
^LAM - [#64] DQ+10, SPEC+2, SPEC+3, SPEC+5, SPEC+7, SPEC+9

Label References

Name Line Occurrences
DQ ASK+7
END ASK+3, ASK+5, ASK+6, ASK+7, DQ+12
HDR DQ+5
SPEC DQ+11
TOP SPEC+4, SPEC+6, SPEC+8, SPEC+12

Naked Globals

Name Field # of Occurrence
^(0 SPEC+2

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
>> LRASP SPEC+7*, SPEC+9, SPEC+15
LRC END+4!
LRCK SPEC+1~, SPEC+7*, SPEC+8*, SPEC+18
>> LRCN SPEC+2*, SPEC+11, SPEC+13
LRCNT DQ+4*, DQ+6*, SPEC+17*, END+1, END+4!
LREND EN+1*, DQ+1~, DQ+4*, DQ+7, DQ+8, SPEC+4, SPEC+5, SPEC+6, SPEC+8, SPEC+12
, END+4!, TOP+1, TOP+3, TOP+5*
LRIEN DQ+9*, DQ+10, DQ+11, SPEC~, SPEC+2, SPEC+3, SPEC+5, SPEC+7, SPEC+9, SPEC+13
, END+4!
>> LRLINE DQ+2*, SPEC+18
LRNAME SPEC+2*, SPEC+11, SPEC+13, END+4!
LRNODE DQ+6*, DQ+7*, DQ+8, DQ+9, END+4!
LRPAGE DQ+4*, END+4!, HDR+1, HDR+2*, HDR+6
LRPDT DQ+3*, END+5!, HDR+6
LRSEL ASK+4*, END+5!
>> LRSPEC SPEC+5*, SPEC+7, SPEC+9, SPEC+14
LRTOP DQ+2*, SPEC~, HDR+3
LRX DQ+10*, SPEC+9*, SPEC+10, SPEC+16, END+5!
POP ASK+5, END+5!
U DQ+10, SPEC+2, SPEC+14, SPEC+15
>> Y ASK+3, ASK+4
ZTDESC ASK+6*, END+5!
ZTIO ASK+6*, END+5!
>> ZTQUEUED DQ+3
>> ZTREQ DQ+3*
ZTRTN ASK+6*, END+5!
ZTSAVE END+5!
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