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 |  FileMan Files Accessed Via FileMan Db Call
Print Page as PDF
Routine: LRLNCPMP

Package: Lab Service

Routine: LRLNCPMP


Information

LRLNCPMP ;DALOI/FHS - PRINT LAB TESTS MAPPED/NOT MAPPED TO LOINC CODES ;1-OCT-1998

Source Information

Source file <LRLNCPMP.m>

Entry Points

Name Comments DBIA/ICR reference
EN ;
WHICH ;
SING ; Select individual lab test for report
QUE ;
START ; Begins report
EN1 ; Print mapped or not mapped lab tests if there is a data name
YMAPPRT
NMAP ;
YMAP ;
INI ; Initialize variables
HDR ; Print heading
EXIT

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: EN+1
Function Call: WRITE
  • Prompt: !,$$CJ^XLFSTR("This option prints a list of the LABORATORY TESTS from the LABORATORY TEST FILE.",IOM)
  • Line Location: EN+2
Function Call: WRITE
  • Prompt: !,$$CJ^XLFSTR("You will be prompted to print lab tests that are",IOM)
  • Line Location: EN+3
Function Call: WRITE
  • Prompt: !,$$CJ^XLFSTR("mapped/not mapped to a LOINC code.",IOM)
  • Line Location: EN+4
Function Call: WRITE
  • Prompt: !,$$CJ^XLFSTR("Inactive(Type:Neither) lab tests are not reported.",IOM)
  • Line Location: EN+5
Function Call: WRITE
  • Prompt: !!!,"Print lab tests that are mapped/not mapped to a LOINC code."
  • Line Location: WHICH+1
Function Call: WRITE
  • Prompt: !,$$CJ^XLFSTR("You can only select test that have been mapped.",IOM)
  • Line Location: SING+4
Function Call: WRITE
  • Prompt: !,$$CJ^XLFSTR("You can a quick list of mapped tests by entering '?'.",IOM)
  • Line Location: SING+5
Function Call: WRITE
  • Prompt: !,$$CJ^XLFSTR("Then enter 'Yes' you want a complete list.",IOM),!
  • Line Location: SING+6
Function Call: WRITE
  • Prompt: !!?5,"Nothing Selected"
  • Line Location: SING+12
Function Call: WRITE
  • Prompt: !,"REQUEST QUEUED ",ION
  • Line Location: QUE+4
Function Call: WRITE
  • Prompt: !,^TMP($J,"LRDATA",LRPRT)
  • Line Location: YMAPPRT+4
Function Call: WRITE
  • Prompt: !,?1,LRTESTN
  • Line Location: NMAP+3
Function Call: WRITE
  • Prompt: !?5,$G(LROUT(64,LRNLT_",",1,"E")),?18,$G(LROUT(64,LRNLT_",",.01,"E"))
  • Line Location: NMAP+8
Function Call: WRITE
  • Prompt: !
  • Line Location: NMAP+9
Function Call: READ
  • Variable: N
  • Timeout: DTIME
  • Line Location: HDR+1
Function Call: WRITE
  • Prompt: !?5,LRPDT,?(IOM-15)," Page ",$J(LRPAGE,3)
  • Line Location: HDR+4
Function Call: WRITE
  • Prompt: !,?5,"LAB TEST"
  • Line Location: HDR+5
Function Call: WRITE
  • Prompt: !,?10,"RESULT NLT"
  • Line Location: HDR+6
Function Call: WRITE
  • Prompt: !,LRLINE,!
  • Line Location: HDR+7
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: EXIT+0

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^LAM - [#64] GETS^DIQ
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call