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

Package: IHS Lab LOINC Surveillance

Routine: BLSLNCPM


Information

BLSLNCPM ;DALOI/FHS/TPF - PRINT LAB TESTS MAPPED/NOT MAPPED TO LOINC CODES - THIS IS MODIFIED TO PRINT OUT LOINC TESTS AS DEVELOPED BY CIMARRON FOR LAB PATCH 15

Source Information

Source file <BLSLNCPM.m>

Call Graph

Call Graph Total: 8

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

Entry Points

Name Comments DBIA/ICR reference
EXIT
EN ;
HDR ;PRINT HEADING
START ;BEGINS REPORT
NMAP ;
YMAPPRT
YMAP ;
EN1 ;PRINT MAPPED OR NOT MAPPED LAB TESTS IF THERE IS A DATA NAME
QUE ;
INI ;INITIALIZE VARIABLES
WHICH ;
SING ; Select individual lab test for report
BLRLOINC ;

External References

Name Field # of Occurrence
^%ZIS WHICH+11
HOME^%ZIS QUE+5
^%ZISC WHICH+13
^%ZTLOAD QUE+3
GETS^DIQ NMAP+7
^DIR WHICH+7, SING+11
LOINCLA^LRSRVR YMAP+7, YMAP+11
$$FMTE^XLFDT INI+3
$$NOW^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
  • Timeout: DTIME
  • Variable: N
  • Line Location: HDR+1
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: HDR+2
Function Call: WRITE
  • Prompt: !?5,LRPDT,?(IOM-15)," Page ",$J(LRPAGE,3)
  • Line Location: HDR+5
Function Call: WRITE
  • Prompt: !?5,"LAB TEST"
  • Line Location: HDR+6
Function Call: WRITE
  • Prompt: !,?10,"RESULT NLT"
  • Line Location: HDR+7
Function Call: WRITE
  • Prompt: !!?5,"LAB TEST",?37,"SPECIMEN",?67,"LOINC CODE"
  • Line Location: HDR+8
Function Call: WRITE
  • Prompt: !!?5,"LAB TEST",?37,"SPECIMEN"
  • Line Location: HDR+9
Function Call: WRITE
  • Prompt: !,LRLINE,!
  • Line Location: HDR+10
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: EXIT+0
Function Call: WRITE
  • Prompt: ?67,BLRLOINC,!,$G(^LAB(95.3,BLRLOINC,80)),!
  • Line Location: BLRLOINC+10
Routine Call
  • %ZIS
  • Line Location:
    • QUE+5
Routine Call
  • DIR
  • Line Location:
    • WHICH+7
    • SING+11
Routine Call
  • %ZIS
  • Line Location:
    • WHICH+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+13, NMAP+4, BLRLOINC+3, BLRLOINC+4
^LAB(61 - [#61] BLRLOINC+7
^LAB(95.3 - [#95.3] BLRLOINC+10
^LAM("AL" EN1+14, EN1+15, YMAP+9
^LAM("AM" EN1+14, EN1+15, YMAP+5
^TMP($J YMAPPRT, YMAPPRT+2, YMAPPRT+4, YMAP+2*, YMAP+12*, YMAP+13*, INI+1!, EXIT+6!

Label References

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