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

Entry Points

Name Comments DBIA/ICR reference
EN ;
ASK ;
DQ ;
SPEC(LRIEN,LRTOP) ;
END ;
TOP ;
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 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
Info |  Source |  Entry Points |  Interaction Calls