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 |  Marked Items |  All
Print Page as PDF
Routine: LR7OU641

Package: Lab Service

Routine: LR7OU641


Information

LR7OU641 ;SLC/DCM/DALOI/FHS - RESULT NLT LINKING UTILITY SEMI-MANUAL ; 12/3/1997

Source Information

Source file <LR7OU641.m>

Call Graph

Call Graph Total: 11

Package Total Call Graph
Kernel 5 (,HOME)^%ZIS  ^%ZISC  ^%ZTLOAD  $$HTE^XLFDT  ($$CJ,$$LJ)^XLFSTR  
VA Fileman 4 ^DIC  ^DIE  $$GET1^DIQ  ^DIR  
Lab Service 2 END^LR7OU64  ^LRCAPD  

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Lab Service 1 LR7O MAN RESULT NLT  

Entry Points

Name Comments DBIA/ICR reference
EN ;
END ;
LLIST ;
LIST ;
LK ;
LAB ;
START
64 ;User assigns links between 60 (64.1) and 64 (NLT)
PRT ;
TXT ;;
MSG ;
SELX
SEL ;
CHECK ;
DQ

External References

Name Field # of Occurrence
^%ZIS LLIST+8
HOME^%ZIS LLIST+9
^%ZISC LLIST+14, DQ+8
^%ZTLOAD LLIST+13
^DIC SEL+5
^DIE SELX+7
$$GET1^DIQ SELX+10
^DIR 64+11, 64+13, MSG+2, START+3, SELX+13, LLIST+4, PRT+1
END^LR7OU64 END+2
^LRCAPD 64+12
$$HTE^XLFDT DQ+1
$$CJ^XLFSTR 64+6, 64+7, 64+8, 64+9, START+1, LAB+3
$$LJ^XLFSTR START+2

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !?5,"You have not yet ran the Semi-automatic Linking of RESULT NLT option",!
  • Line Location: 64+3
Function Call: WRITE
  • Prompt: !?20,"[LR70 641-64 AUTO]",!
  • Line Location: 64+4
Function Call: WRITE
  • Prompt: !,"IT IS STRONGLY RECOMMENDED YOU RUN THE AUTOMATIC OPTION FIRST",!!
  • Line Location: 64+5
Function Call: WRITE
  • Prompt: !,$$CJ^XLFSTR("This option will allow you to assign RESULT NLT Code to Atomic Lab Tests.",80)
  • Line Location: 64+6
Function Call: WRITE
  • Prompt: !,$$CJ^XLFSTR("You must select any WKLD CODE ",80)
  • Line Location: 64+7
Function Call: WRITE
  • Prompt: !,$$CJ^XLFSTR("Tests with the type of NEITHER or null will be skipped in the Auto Mode.",80)
  • Line Location: 64+8
Function Call: WRITE
  • Prompt: !,$$CJ^XLFSTR("ONLY ATOMIC LAB TEST YIELDING RESULTS SHOULD BE ASSIGNED RESULT CODES.",80),!!
  • Line Location: 64+9
Function Call: WRITE
  • Prompt: !
  • Line Location: MSG+1
Function Call: WRITE
  • Prompt: !
  • Line Location: START+0
Function Call: WRITE
  • Prompt: !!,$$CJ^XLFSTR(DIR("A"),80)
  • Line Location: START+1
Function Call: WRITE
  • Prompt: !,$$LJ^XLFSTR(LN,80)
  • Line Location: START+2
Function Call: WRITE
  • Prompt: !!
  • Line Location: START+3
Function Call: READ
  • Timeout: DTIME
  • Variable: LRN
  • Line Location: LIST+1
Function Call: WRITE
  • Prompt: !
  • Line Location: LK+1
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: SEL+3
Function Call: WRITE
  • Prompt: !!?5,"Currently linked to [ ",$P(Y64,U)_" ] "_$P(Y64,U,2),!!
  • Line Location: SELX+3
Function Call: WRITE
  • Prompt: !!,"Now select a RESULT NLT CODE for "_LRDATA,!
  • Line Location: SELX+4
Function Call: WRITE
  • Prompt: !!?3,"IEN: [",DA,"] ",$P(^LAB(60,LRIEN,0),U)," RESULT NLT CODE: ",$$GET1^DIQ(60,LRIEN_",",64.1,"")
  • Line Location: SELX+10
Function Call: WRITE
  • Prompt: !,$S($G(ZTSK):"Task Number "_ZTSK,1:"Failed to Queue Job")
  • Line Location: LLIST+13
Function Call: WRITE
  • Prompt: !!?5,"Listing of ",$S(LRANS=1:"ALL",LRANS=2:"LINKED",1:"UNLINKED")," Laboratory Test [ ",$$HTE^XLFDT($H)," ] ",!!
  • Line Location: DQ+1
Function Call: WRITE
  • Prompt: !?20,"**** End of Print List ****",!!!
  • Line Location: DQ+7
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: PRT+1
Function Call: WRITE
  • Prompt: !?5,LRN,?45,"[ ",$S(LRTY="B":"BOTH",LRTY="N":"NEITHER",LRTY="O":"OUTPUT",1:"INPUT")," ]",!
  • Line Location: PRT+2
Function Call: WRITE
  • Prompt: !,"National VA LAB CODE",?23,$P(^(0),U,2)," ",$P(^(0),U)
  • Line Location: PRT+4
Function Call: WRITE
  • Prompt: !,"Result NLT Code",?23,$P(^(0),U,2)," ",$P(^(0),U)
  • Line Location: PRT+5
Function Call: WRITE
  • Prompt: !
  • Line Location: PRT+6
Routine Call
  • %ZIS
  • Line Location:
    • LLIST+9
Routine Call
  • DIE
  • Line Location:
    • SELX+7
Routine Call
  • DIC
  • Line Location:
    • SEL+5
Routine Call
  • DIR
  • Line Location:
    • 64+11
    • 64+13
    • MSG+2
    • START+3
    • SELX+13
    • LLIST+4
    • PRT+1
Routine Call
  • %ZIS
  • Line Location:
    • LLIST+8

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^LAB(60 - [#60] Classic Fileman Calls,  GET1^DIQ

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^LAB(60 - [#60] 64+2, LAB+1, LAB+2, CHECK+1, CHECK+2, CHECK+3, SELX, SELX+2, SELX+8, SELX+10
, DQ+2, DQ+3, DQ+5, DQ+6, PRT+3
^LAM - [#64] SELX+2, PRT+4, PRT+5

Label References

Name Line Occurrences
CHECK LAB+2
END 64+11, MSG+2, START+3, LIST+1, LAB+4, SEL+2, SEL+5
LLIST 64+1
PRT DQ+4, DQ+5, DQ+6
SEL START+3, SELX+1, SELX+14
SELX CHECK+4
START 64+11

Naked Globals

Name Field # of Occurrence
^( LAB+2, DQ+3
^(0 CHECK+3, SELX+2, DQ+3, PRT+4, PRT+5
^(64 SELX+2

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
%ZIS LLIST+7!, LLIST+8*
DA SEL+4!, SELX+5!, SELX+6*, SELX+10, SELX+11!
DIC CHECK+2!, SEL+4!, SEL+5*!, SELX+5!, SELX+6*, SELX+11!
DIC("A" SEL+4*
DIC("S" SEL+5*
DIC(0 SEL+5*
DIE SEL+4!, SELX+5!, SELX+6*, SELX+11!
DIR 64+10!, 64+11!, 64+12!, 64+13!, MSG+1!, MSG+2!, START!, START+3!, LIST+1!, SEL+4!
, SELX+13!, LLIST+1!, PRT+1!
DIR("?" START*, START+2*
DIR("A" 64+10*, 64+12*, MSG+1*, START*, START+1, LLIST+2*
DIR("B" 64+10*
DIR(0 64+10*, 64+12*, MSG+1*, START*, SELX+13*, LLIST+3*, PRT+1*
DIRUT 64+11, MSG+2, START+3, END+1!, SELX+13, LLIST+5, PRT+1
DR SEL+4!, SELX+5!, SELX+6*, SELX+11!
DTIME LIST+1
DX 64+1!
I START+2*, START+3!
IO DQ
IO("Q" LLIST+10
IOF SEL+3, DQ+8, PRT+1
IOSL PRT+1
IOST DQ+8, PRT+1
LN START+2*, START+3!
LRANS END+1!, LLIST+6*, DQ+1, DQ+4, DQ+5, DQ+6
LRAUTO LK+1*, END+1!, SEL+1*, SEL+2, SELX+1, SELX+12
LRDATA CHECK+3*, END+1!, SEL+6*, SELX+4
LREND 64+1*, LAB+1*, LAB+2, LAB+3, CHECK+2, END+1!, SEL+2, SELX+9*, SELX+13*, DQ+2
, DQ+3, PRT+1*
LRIEN LAB+2*, CHECK+1, CHECK+2, CHECK+3, CHECK+4, END+1!, SEL+6*, SELX, SELX+6, SELX+8
, SELX+10, DQ+2*, DQ+3*, DQ+5, DQ+6, PRT+3
LRN LIST+1*, LK+1*, LAB+1*, LAB+2, END+1!, DQ+2*, DQ+3, PRT+2
LRNLT END+1!, PRT+3*, PRT+4, PRT+5
LRTY CHECK+3*, END+1!, DQ+3*, PRT+2
N END+1!
>> POP LLIST+9
U CHECK+2, CHECK+3, SEL+6, SELX+2, SELX+3, SELX+10, DQ+3, DQ+5, DQ+6, PRT+4
, PRT+5
X END+1!
X60 CHECK+4*, END+1!, SEL+6*, SELX+2
Y 64+11, MSG+2, START+3, END+1!, SEL+5, SEL+6, SELX+9, LLIST+5, LLIST+6
Y(0 SEL+6
Y64 END+1!, SELX+2*, SELX+3
ZTDESC LLIST+11~, LLIST+12*
>> ZTQUEUED DQ
>> ZTREQ DQ*
ZTRTN LLIST+11~, LLIST+12*
ZTSAVE END+1!, LLIST+11~
ZTSAVE("LRANS" LLIST+12*
>> ZTSK LLIST+13

Marked Items

Name Field # of Occurrence
$T(TXT+I START+2
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 |  Marked Items |  All