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 |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All
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>

Call Graph

Call Graph

Call Graph Total: 8

Package Total Call Graph
Kernel 5 (,HOME)^%ZIS  ^%ZISC  ^%ZTLOAD  $$HTE^XLFDT  $$CJ^XLFSTR  
VA FileMan 2 GETS^DIQ  ^DIR  
Lab Service 1 LOINCLA^LRSRVR1  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

action A extended action Ea event driver Ed subscriber Su protocol O limited protocol LP run routine RR broker B edit E server Se print P screenman SM inquire I

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Lab Service 1 8685  

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

External References

Name Field # of Occurrence
^%ZIS WHICH+9
HOME^%ZIS QUE+5
^%ZISC WHICH+13
^%ZTLOAD QUE+3
GETS^DIQ NMAP+7
^DIR WHICH+5, SING+11
LOINCLA^LRSRVR1 YMAP+8, YMAP+12
$$HTE^XLFDT INI+3
$$CJ^XLFSTR EN+2, EN+3, EN+4, EN+5, SING+4, SING+5, SING+6

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
Routine Call
  • %ZIS
  • Line Location:
    • WHICH+9
Routine Call
  • %ZIS
  • Line Location:
    • QUE+5
Routine Call
  • DIR
  • Line Location:
    • WHICH+5
    • SING+11

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^LAM - [#64] GETS^DIQ

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^LAB(60 - [#60] START+7, EN1+6, EN1+9, NMAP+4
^LAM("AL" EN1+10, EN1+11, YMAP+10
^LAM("AM" EN1+10, EN1+11, YMAP+6
^TMP($J YMAPPRTYMAPPRT+2, YMAPPRT+4, YMAP+2*, YMAP+13*, YMAP+14*, INI+1!, EXIT+6!

Label References

Name Line Occurrences
EN1 START+4
EXIT WHICH+6, WHICH+8, WHICH+9, START+8
HDR YMAPPRT+3, NMAP+1
INI START+3
NMAP EN1+10
QUE WHICH+10
SING WHICH+8
START WHICH+13
YMAP START+7, EN1+11
YMAPPRT START+8

Naked Globals

Name Field # of Occurrence
^(0 EN1+6

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
%ZIS WHICH+9!*
DIR WHICH+2!, WHICH+5!, SING+7!, EXIT+3!
DIR("?" WHICH+3*, SING+10*
DIR("S" SING+9*
DIR(0 WHICH+4*, SING+8*
DIRUT WHICH+6, SING+11, EXIT+3!
DTIME HDR+1
DUOUT EXIT+4!
I EXIT+3!
IO WHICH+12
IO("Q" WHICH+10, QUE+6!
IOF EN+1, HDR+3, EXIT
IOM EN+2, EN+3, EN+4, EN+5, SING+4, SING+5, SING+6, INI+2, HDR+4
ION QUE+4
IOSL YMAPPRT+3, NMAP+1
IOST HDR+1, EXIT
J EXIT+3!
LINE START+1~, START+2*, YMAP+1*, YMAP+2*, YMAP+13*, YMAP+14*
LOINCDTA START+1~
LOINCDTB START+1~
LOINCTAS START+1~
LRA YMAP+4~, YMAP+7*, YMAP+11*, EXIT+3!
LRAA START+1~
LRAA1 START+1~
>> LRDBUG EXIT+2
LREND EN+1!, WHICH+8, SING+3*, SING+12*, EN1+3, YMAPPRT+2, YMAPPRT+3, NMAP+1, INI+2*, HDR+1*
EXIT+3!
LRIEN START+6*, START+7*, EN1+5*, EN1+6, EN1+9, EN1+10, EN1+11, NMAP+4, YMAP+6, YMAP+10
EXIT+3!
LRLINE INI+2*, HDR+7, EXIT+4!
LRLOC EXIT+3!
LRLOINC EXIT+4!
LRMAP EN+1!, WHICH+2!, WHICH+7*, SING+1, SING+2!, SING+3*, START+4, START+5, EN1+10, EN1+11
HDR+3, HDR+5, HDR+6, EXIT+4!
LRMAP( SING+11*, START+7
LRMAP(0 SING+12
LRNLT EN1+8~, EN1+9*, NMAP+4*, NMAP+5, NMAP+7, NMAP+8, YMAP+5*, YMAP+6*, YMAP+7, YMAP+9*
YMAP+10*, YMAP+11, EXIT+5!
LRNLTN EXIT+5!
LRNLTX YMAP+4~
LRNLTX( YMAP+6, YMAP+7*, YMAP+10, YMAP+11*
LRNODE START+7*, EN1+6*, EN1+7, NMAP+2, YMAP+2, EXIT+5!
LROUT NMAP+6~
LROUT(64 NMAP+8
LRPAGE INI+2*, HDR+1, HDR+2*, HDR+4, EXIT+3!
LRPDT INI+3*, HDR+4, EXIT+4!
LRPNTA START+1~
LRPNTB START+1~
LRPREV EXIT+3!
LRPRT YMAPPRT+1*, YMAPPRT+2*, YMAPPRT+4, EXIT+5!
LRSPEC EXIT+4!
LRSPECN EXIT+5!
LRSUB START+1~, YMAP+3*
LRTEST EN1+1*, EXIT+4!
LRTESTN NMAP+2*, NMAP+3, EXIT+4!
LRTST EN1+2*, EN1+3*, EN1+4, EN1+5, EXIT+5!
LRX EXIT+4!
N HDR+1*, EXIT+5!
POP WHICH+9, EXIT+5!
U EN1+7, EN1+9, NMAP+2, NMAP+4, YMAP+2
X SING+7!
Y WHICH+6, WHICH+7, WHICH+8, SING+7!, SING+11, EXIT+5!
ZTDESC QUE+2*, EXIT+3!
ZTIO EXIT+3!
ZTQUEUED EXIT+1, EXIT+5!
ZTREQ EXIT+1*, EXIT+5!
ZTRTN QUE+1*, EXIT+3!
ZTSAVE EXIT+4!
ZTSAVE("LRMAP*" QUE+2*
ZTSK QUE+4, EXIT+5!
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All