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

Entry Points

Name Comments DBIA/ICR reference
EN ;
ASK ;
DQ ;
SMPCD ;GET SAMPLE WORKLOAD CODE
VRWKD ;GET VERIFY WORKLOAD CODE
ACWK ;GET ACCESSION WORKLOAD CODE
GRNLT(LRNLTIEN) ;GET RESULT NLT CODE
SDEFCD ;SET DEFAULT LOINC CODE
GTLNC ;GET LOINC CODE BASED ON THE SPECIMEN
PRT ;PRINT INFO
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: !,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
Info |  Source |  Entry Points |  Interaction Calls