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 |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All
Print Page as PDF
Routine: LRBEPRPT

Package: Lab Service

Routine: LRBEPRPT


Information

LRBEPRPT ;VA/DALOI/FHS - PRINT CPT CODES FOR TESTS AND PANELS ;03/30/2005

Source Information

Source file <LRBEPRPT.m>

Call Graph

Call Graph Total: 9

Package Total Call Graph
Kernel 5 (,HOME)^%ZIS  ^%ZISC  ^%ZTLOAD  $$FMTE^XLFDT  $$CJ^XLFSTR  
Lab Service 2 PANEL^LRBEBA4  $$NLT^LRVER1  
DRG Grouper 1 $$CPT^ICPTCOD  
VA Fileman 1 ^DIR  

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Lab Service 1 LRBE PANEL CPT REPORT  

Entry Points

Name Comments DBIA/ICR reference
LOAD ;%ZTLOAD section
BEBA ;Individual test CPT code look-up
NLT ;
LN ;Check line spacing
DEV ;Select print device
T1 ;
HDR ;Report header
ASK ;Present user with a selection of options
WRT ;
ATOMIC ; Print Atomic test of panel
CLEAN ;Clean-up
TEST ;List all test with CPT codes
DISPLAY ;
LOOP ;
PANEL ;Display panel test CPT

External References

Name Field # of Occurrence
^%ZIS DEV+3
HOME^%ZIS LOAD+6
^%ZISC ASK+14, ASK+21, LOAD+5, CLEAN+8
^%ZTLOAD LOAD+4
^DIR BEBA+6, LN+3, ASK+6
$$CPT^ICPTCOD WRT+5
PANEL^LRBEBA4 LOOP+22, NLT+1
$$NLT^LRVER1 LOOP+7
$$FMTE^XLFDT HDR+2
$$CJ^XLFSTR HDR+2

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: BEBA+8
Function Call: WRITE
  • Prompt: !,+LRBEBY_" = "_$P(^LAB(60,+LRBEBY,0),U)
  • Line Location: BEBA+12
Function Call: WRITE
  • Prompt: !,"********** ","Invalid data prevents display.",!
  • Line Location: BEBA+13
Function Call: WRITE
  • Prompt: !
  • Line Location: LOOP+27
Function Call: WRITE
  • Prompt: !,LRBETST_" = "_LRREQ_$P($G(LRBEBY),U,2)_" "
  • Line Location: NLT+8
Function Call: WRITE
  • Prompt: !
  • Line Location: DISPLAY+2
Function Call: WRITE
  • Prompt: !,LRBETST_" = "_LRREQ_$P(^LAB(60,LRBETST,0),U)
  • Line Location: DISPLAY+6
Function Call: WRITE
  • Prompt: " / "_$P(^(0),U)
  • Line Location: DISPLAY+6
Function Call: WRITE
  • Prompt: !?6,$P(XCODE,U,2)_" "_$P(XCODE,U,3)_" ["_LRBECPT(LRBETST,LRI,LRCPT)_"]"_$G(LRPANEL)
  • Line Location: WRT+6
Function Call: WRITE
  • Prompt: @IOF,!
  • Line Location: HDR+1
Function Call: WRITE
  • Prompt: $$CJ^XLFSTR($G(LRHDR)_" "_$$FMTE^XLFDT(DT,5)_" Pg "_LRPG,IOM),!
  • Line Location: HDR+2
Function Call: WRITE
  • Prompt: !
  • Line Location: T1+7
Function Call: WRITE
  • Prompt: !,+LRBEBY_" = "_$P(^LAB(60,+LRBEBY,0),U),!,"**********"
  • Line Location: ATOMIC+2
Function Call: WRITE
  • Prompt: ?15,LRBEBY,!
  • Line Location: ATOMIC+9
Function Call: WRITE
  • Prompt: @IOF,!,$S($G(ZTSK):"Queued to device "_LRDEV,1:"Not Queued"),!
  • Line Location: LOAD+4
Routine Call
  • %ZIS
  • Line Location:
    • LOAD+6
Routine Call
  • DIR
  • Line Location:
    • BEBA+6
    • LN+3
    • ASK+6
Routine Call
  • %ZIS
  • Line Location:
    • DEV+3

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^LAB(60 - [#60] BEBA+12, LOOP+8, LOOP+12, LOOP+13, LOOP+14, LOOP+15, LOOP+20, LOOP+21, NLT+7, DISPLAY+5
, DISPLAY+6, TEST+9, TEST+12, T1+1, ATOMIC+1, ATOMIC+2, ATOMIC+5, ATOMIC+6, ATOMIC+7, ATOMIC+8
^LAB(61 - [#61] NLT+9, DISPLAY+6
^TMP("LR" BEBA+1!, LOOP+5!, CLEAN+7!

Label References

Name Line Occurrences
ASK ASK+9, ASK+12, ASK+20
ATOMIC T1+6
BEBA BEBA+16, ASK+11
CLEAN BEBA+7, BEBA+15, TEST+19, ASK+7
DEV ASK+14, ASK+21
DISPLAY LOOP+25, PANEL+3
HDR TEST+3
LN NLT+4, DISPLAY+4, WRT+1, WRT+4, ATOMIC+9
LOAD ASK+18, ASK+25
LOOP BEBA+10, TEST+13, T1+2
T1 BEBA+14, TEST+16
TEST ASK+19, ASK+26
WRT NLT+10, DISPLAY+7

Naked Globals

Name Field # of Occurrence
^(0 NLT+9, DISPLAY+6, TEST+9, ATOMIC+8

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
%ZIS DEV+1~, DEV+2*
%ZIS("A" DEV+2*
%ZIS("B" DEV+3*
DIC LOOP+3!, CLEAN+2!
DIR BEBA+2!, BEBA+6!, LN+3~, ASK+1!, ASK+6!, CLEAN+2!
DIR("S" BEBA+5*
DIR(0 BEBA+4*, LN+3*, ASK+5*
DIRUT LN+3, CLEAN+2!
DT BEBA+3, LOOP+2, NLT+1, HDR+2, TEST+4, ASK+4
DTOUT CLEAN+2!
DUOUT CLEAN+2!
>> I LOOP+13*, LOOP+14
IO TEST+2, ASK+15, ASK+23
IO(0 ASK+15, ASK+23
IOF BEBA+8, HDR+1, LOAD+4, CLEAN+1
IOM HDR+2
ION LOAD+3
IOSL LN+1
IOST LN+2
>> K LOOP+14*, LOOP+15
LRBEBSY ATOMIC+3~, ATOMIC+4*, ATOMIC+5, ATOMIC+6
LRBEBY BEBA+9*, BEBA+12, LOOP+7, LOOP+8, LOOP+11, LOOP+12, LOOP+13, LOOP+14, LOOP+16, PANEL+6
, NLT+8, TEST+8*, TEST+9, TEST+12*, TEST+17!, T1+1, ATOMIC+1, ATOMIC+2, ATOMIC+4, ATOMIC+6*
, ATOMIC+7, ATOMIC+8*, ATOMIC+9, CLEAN+3!
LRBECDT BEBA+3*, LOOP+2*, NLT+1*, TEST+4*, ASK+4*, CLEAN+3!
LRBECPT BEBA+2*, LOOP+3!, LOOP+6*, LOOP+17!, PANEL+1!, PANEL+5!, T1+3!, CLEAN+3!
LRBECPT( LOOP+23, NLT+3, DISPLAY+3, DISPLAY+7, WRT+3, WRT+6, WRT+7!
LRBECPT(0 PANEL+2, NLT+2, DISPLAY+2
LRBEDT CLEAN+3!
LRBELOP BEBA+9*, PANEL+2, TEST+4*, CLEAN+3!
LRBENLT CLEAN+3!
LRBEPO PANEL+4, ASK+13*, CLEAN+4!
LRBEPSY BEBA+2*, LOOP+1, LOOP+25*, PANEL+1, TEST+11*, T1+8!
LRBEPYS LOOP+18*, PANEL+3*, PANEL+4, CLEAN+3!
LRBETST LOOP+18*, LOOP+19*, LOOP+20, LOOP+21, LOOP+23, PANEL+6*, NLT+3, NLT+7, NLT+8, DISPLAY+3*
, DISPLAY+5, DISPLAY+6, DISPLAY+7, WRT+3, WRT+6, WRT+7, CLEAN+3!
LRBEY TEST+17!, CLEAN+3!
LRBEY( LOOP+11*, LOOP+16*, LOOP+19
LRBEYS CLEAN+3!
LRCFL CLEAN+3!
LRCPT WRT+3*, WRT+5, WRT+6, WRT+7, CLEAN+4!
LRDEV ASK+2!, DEV+3*, LOAD+3*, LOAD+4, CLEAN+6!
LRHDR HDR+2, ASK+10*, ASK+13*, ASK+22*, LOAD+2, CLEAN+6!
LRI NLT+3*, DISPLAY+7*, WRT+3, WRT+6, WRT+7, CLEAN+4!
LRIEN CLEAN+4!
LRII ATOMIC+3~, ATOMIC+4~*, ATOMIC+5*, ATOMIC+6
LRM LOOP+4!, CLEAN+4!
LRMSG DEV+1~
LRMX LOOP+4!, CLEAN+4!
LRNAME LOOP+3!, CLEAN+4!
LRNLT LOOP+3!, LOOP+7*, CLEAN+4!
LRNX CLEAN+4!
LRORD LOOP+3!, CLEAN+4!
LRPANEL LOOP+18*, LOOP+24*, LOOP+26*, WRT+6, CLEAN+4!
LRPG BEBA+2!, HDR+1*, HDR+2, TEST+3, CLEAN+6!
LRPRT BEBA+9*, DISPLAY+2*, WRT+2*, TEST+11*, T1+7, CLEAN+4!
LRREQ NLT+7*, NLT+8, DISPLAY+1!, DISPLAY+5*, DISPLAY+6, ATOMIC+3~, ATOMIC+7*, ATOMIC+8
LRSPEC LOOP+2*, NLT+9, DISPLAY+6, TEST+8*, T1+1*, CLEAN+5!
LRSTOP BEBA+2!, LOOP+1, LOOP+19, PANEL+2, NLT+3, NLT+4, DISPLAY+1, DISPLAY+3, DISPLAY+4, WRT+1
, WRT+3, WRT+4, LN+1, LN+2, LN+3*, TEST+6, TEST+10, TEST+15, TEST+18, T1+1
, T1+5, ATOMIC+5, ATOMIC+6, ASK+1!, CLEAN+5!
LRSUB CLEAN+5!
LRTEST LOOP+3!, CLEAN+5!
LRTEST( LOOP+8*, LOOP+9
LRTEST(1 LOOP+7*
LRTN TEST+5*, TEST+6*, TEST+7, TEST+8, CLEAN+5!
LRTST PANEL+6*, CLEAN+5!
LRXX CLEAN+5!
LRY LOOP+3!, CLEAN+5!
OPT ASK+1!, ASK+8*, ASK+9, ASK+12, ASK+20
OUT BEBA+11, BEBA+14, LOOP+9*, LOOP+10*, LOOP+15*, TEST+14, T1+4, ASK+1!, ASK+3*
POP ASK+1!, ASK+14, ASK+21, CLEAN+6!
S2 CLEAN+5!
T1 LOOP+3!, LOOP+8*, LOOP+9, CLEAN+5!
U BEBA+12, LOOP+7, LOOP+8, LOOP+9, LOOP+14, LOOP+15, LOOP+21, NLT+7, NLT+8, NLT+9
, DISPLAY+5, DISPLAY+6, WRT+6, TEST+9, TEST+12, ATOMIC+2, ATOMIC+7, ATOMIC+8
X BEBA+2!, LOOP+7*, CLEAN+5!
XCODE WRT+5*, WRT+6, WRT+7!
XX LOOP+9*, LOOP+10, LOOP+11, LOOP+15*, LOOP+16, ASK+1!
Y BEBA+2!, BEBA+7, BEBA+9, ASK+1!, ASK+7, ASK+8, CLEAN+5!
YY CLEAN+5!
ZTDESC ASK+2!, DEV+1~, LOAD+2*
ZTDTH ASK+2!, DEV+1~, LOAD+1*
ZTIO ASK+2!, DEV+1~, LOAD+3*
>> ZTQUEUED CLEAN+1
ZTRTN ASK+1!, ASK+17*, ASK+24*
ZTSAVE ASK+2!, DEV+1~
ZTSAVE("LRBEPO" ASK+16*
ZTSAVE("LRHDR" LOAD+3*
ZTSK DEV+1~, LOAD+4
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All