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

Package: Lab Service

Routine: LRLNCNLT


Information

LRLNCNLT ;DALOI/FHS-PRINT LAB TEST W/O RESULT NLT CODE ;1-OCT-1998

Source Information

Source file <LRLNCNLT.m>

Call Graph

Call Graph Total: 6

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

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Lab Service 1 LR LOINC PRINT RESULT NLT  

Entry Points

Name Comments DBIA/ICR reference
EN ;
END ;
HDR ;
TOF1
NLTPRT(LRC) ;
ASK ;
TOF ;
DQ ;

External References

Name Field # of Occurrence
^%ZIS ASK+6
^%ZISC END+3
^%ZTLOAD ASK+8
^DIR ASK+3, TOF1+1
$$FMTE^XLFDT DQ+2
$$NOW^XLFDT DQ+2
$$CJ^XLFSTR EN+2, EN+3, EN+4, EN+5, HDR+3, HDR+4, HDR+5
$$RJ^XLFSTR DQ+17, NLTPRT+7

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: @IOF,!!
  • Line Location: EN+1
Function Call: WRITE
  • Prompt: $$CJ^XLFSTR("This option will print tests and their RESULT NLT CODES",IOM)
  • Line Location: EN+2
Function Call: WRITE
  • Prompt: !,$$CJ^XLFSTR("assigned. Result NLT codes are required for LEDI and LOINC",IOM)
  • Line Location: EN+3
Function Call: WRITE
  • Prompt: !,$$CJ^XLFSTR("Mapping software to function properly.",IOM)
  • Line Location: EN+4
Function Call: WRITE
  • Prompt: !,$$CJ^XLFSTR("You may use the option 'Link Result NLT Manual' to make necessary changes.",IOM)
  • Line Location: EN+5
Function Call: WRITE
  • Prompt: !!?5," Tasked to Print on : ",ION
  • Line Location: ASK+8
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: ASK+9
Function Call: WRITE
  • Prompt: !,$$RJ^XLFSTR(LRIEN,5),?8,LRNAME
  • Line Location: DQ+17
Function Call: WRITE
  • Prompt: !?15," **** Corrupt DATABASE ****"
  • Line Location: NLTPRT+3
Function Call: WRITE
  • Prompt: !?5,"[ ",$P(^LAM(LRC,0),U,2),?18,$P(^(0),U)," ]",!
  • Line Location: NLTPRT+4
Function Call: WRITE
  • Prompt: !,$$RJ^XLFSTR(LRIEN,5),?8,LRNAME
  • Line Location: NLTPRT+7
Function Call: WRITE
  • Prompt: !?10,"Specimen [ ",$P($G(^LAB(61,LRSPEC,0)),U),"] Mapped to LOINC CODE"
  • Line Location: NLTPRT+8
Function Call: WRITE
  • Prompt: !,$G(^LAB(95.3,LRX,80)),!
  • Line Location: NLTPRT+9
Function Call: WRITE
  • Prompt: !?20,"Total Printed Tests: ",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: !,?5,LRPDT,?60,"Page: ",LRPAGE
  • Line Location: HDR+2
Function Call: WRITE
  • Prompt: !,$$CJ^XLFSTR("Alphabetical Listing of CH Subscripted Lab Tests",IOM)
  • Line Location: HDR+3
Function Call: WRITE
  • Prompt: !,$$CJ^XLFSTR("That have RESULT NLT CODES assigned",IOM),!
  • Line Location: HDR+4
Function Call: WRITE
  • Prompt: !,$$CJ^XLFSTR("That do not have RESULT NLT CODES assigned",IOM),!
  • Line Location: HDR+5
Function Call: WRITE
  • Prompt: !," IEN Lab Test Name "
  • Line Location: HDR+6
Function Call: WRITE
  • Prompt: !
  • Line Location: HDR+6
Function Call: WRITE
  • Prompt: !," NLT # Result NLT Code Name ",!
  • Line Location: HDR+7
Routine Call
  • DIR
  • Line Location:
    • ASK+3
    • TOF1+1
Routine Call
  • %ZIS
  • Line Location:
    • ASK+6

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^LAB(60 - [#60] DQ+8, DQ+9, DQ+11, NLTPRT+5, NLTPRT+6
^LAB(61 - [#61] NLTPRT+8
^LAB(95.3 - [#95.3] NLTPRT+9
^LAM - [#64] NLTPRT+3, NLTPRT+4

Label References

Name Line Occurrences
DQ ASK+9
END ASK+4, ASK+7, ASK+8, ASK+9
HDR DQ+4
NLTPRT DQ+18
TOF DQ+16, NLTPRT+1
TOF1 NLTPRT+7

Naked Globals

Name Field # of Occurrence
^(0 NLTPRT+4

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
%ZIS ASK+6!*
DIR ASK+1!, ASK+3!, DQ+1~, END+4!
DIR("?" ASK+2*
DIR(0 ASK+1*, TOF1+1*
DIRUT ASK+4, END+4!, TOF1+2
>> DTOUT ASK+4
DUOUT ASK+4, END+4!, TOF1+2
IO ASK+8
IO(0 ASK+8
IOF EN+1, ASK+9, END+2, HDR+1
IOM EN+2, EN+3, EN+4, EN+5, HDR+3, HDR+4, HDR+5
ION ASK+8
IOSL NLTPRT+7, TOF+1
IOST END+2, TOF1
LRC DQ+8*, DQ+13, DQ+14, DQ+18, NLTPRT~, NLTPRT+3, NLTPRT+4, END+4!
LRCNT DQ+3*, DQ+5*, DQ+15*, END+1, END+4!
LREND EN+1*, DQ+1~, DQ+3*, DQ+6, DQ+7, DQ+16, NLTPRT+1, NLTPRT+5, NLTPRT+7, END+4!
, TOF1, TOF1+2*
LRIEN DQ+8*, DQ+9, DQ+11, DQ+17, NLTPRT+5, NLTPRT+6, NLTPRT+7, END+4!
LRNAME DQ+8*, DQ+17, NLTPRT+7, END+4!
LRNODE DQ+5*, DQ+6*, DQ+7, DQ+8, END+4!
LRPAGE DQ+3*, END+4!, HDR+1, HDR+2*
LRPDT DQ+2*, END+5!, HDR+2
LRSEL ASK+5*, DQ+13, DQ+14, END+5!, HDR+4, HDR+5, HDR+6
LRSPEC NLTPRT+2~, NLTPRT+5*, NLTPRT+6, NLTPRT+8
LRX DQ+9*, DQ+10, DQ+12, NLTPRT+6*, NLTPRT+9, END+5!
POP ASK+7, END+5!
U DQ+8, DQ+9, DQ+12, NLTPRT+4, NLTPRT+8
>> Y ASK+5
ZTDESC ASK+8*, END+5!
ZTIO ASK+8*, END+5!
>> ZTQUEUED DQ+2
>> ZTREQ DQ+2*
ZTRTN ASK+8*, END+5!
ZTSAVE END+5!
ZTSAVE("LRSEL" ASK+8*
>> ZTSK ASK+8
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All