Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Entry Points |  Interaction Calls
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>

Entry Points

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

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
Info |  Source |  Entry Points |  Interaction Calls