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 |  Local Variables  | All
Print Page as PDF
Routine: LA7VSET

Package: Automated Lab Instruments

Routine: LA7VSET


Information

LA7VSET ;DALOI/JMC - MENU TO SETUP VISN LABS ;11/15/11 9:13

Source Information

Source file <LA7VSET.m>

Call Graph

Call Graph

Call Graph Total: 11

Package Total Call Graph
Automated Lab Instruments 4 ($$FINDSITE,$$NVAF,$$RETFACID)^LA7VHLU2  TCP^LA7VLL  COLLECT^LA7VSET1  HOST^LA7VSTP  
VA FileMan 4 (,$$FIND1)^DIC  ^DIE  ($$GET1,GETS)^DIQ  ^DIR  
Health Level Seven 1 LINK^HLUTIL3  
Kernel 1 $$NS^XUAF4  
Registration 1 ($$PRIM,$$SITE)^VASITE  

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

Package Total Caller Graph
Automated Lab Instruments 2 LA7V SETUP  LA7VSET1  

Entry Points

Name Comments DBIA/ICR reference
MAIN() ; Display the main LEDI setup screen
KDIR ; kill all DIR variables
HOST ; HOST Lab Setup Menu
HOSTBLD ; Build list of host facilities.
; Identify all HOST labs using LA7 MESSAGE PARAMETER file (#62.48)
HSTHDR ; HOST setup header
HOSTLST ;
AEHOST ;
HSTHDR2 ;
LMC ; Edit lab message configuration file.
HLAB(LRI) ;Add Host LAB
HLL ;add/edit logical link
CHTST ;Enter CHEM Test into the AUTO INSTRUMENT file (#62.4)
CHSET ; Edit chem test multiple for selected fields
; Entry locked from above.
REMOTE ;COLLECTION Lab Setup Menu
MHLP ;Main help
H1HLP ;HOST Lab(s) help
H2HLP ;HOST Lab Setup help
CONV ;Convert #62.4 and #62.48 from REMOTE to COLLECTION (File #771 will remain REMOTE).
GETLL(LA7X) ; Get Lower Level Protocol information for displaying
; Call with LA7X = ien of file #101 protocol

External References

Name Field # of Occurrence
^DIC LMC+5, HLAB+10, CHTST+5, CHSET+7
$$FIND1^DIC HSTHDR2+12, HSTHDR2+13, HSTHDR2+18, HSTHDR2+21
^DIE LMC+9, CHTST+15, CHSET+13, CONV+10, CONV+20
$$GET1^DIQ HSTHDR2+14, HSTHDR2+19, HSTHDR2+22, CHSET+10, GETLL+11
GETS^DIQ GETLL+7
^DIR MAIN+14, HOST+7, AEHOST+2, HLAB+4, HLL+18, CONV+26
LINK^HLUTIL3 HSTHDR2+9
$$FINDSITE^LA7VHLU2 HOSTBLD+9
$$NVAF^LA7VHLU2 HLAB+21
$$RETFACID^LA7VHLU2 HLAB+15
TCP^LA7VLL HLL+20
COLLECT^LA7VSET1 REMOTE+2
HOST^LA7VSTP HLAB+22
$$PRIM^VASITE LA7VSET+11
$$SITE^VASITE LA7VSET+13
$$NS^XUAF4 HOSTBLD+10, HLAB+15

Interaction Calls

Name Line Occurrences
Function Call: READ
  • Formatting: !
  • Prompt: "Press RETURN to continue: "
  • Variable: X
  • Timeout: DTIME
  • Line Location: LA7VSET+16
Function Call: WRITE
  • Prompt: !!,"No Primary Site is defined!!!!",!!
  • Line Location: LA7VSET+16
Function Call: WRITE
  • Prompt: @IOF,!
  • Line Location: MAIN+2
Function Call: WRITE
  • Prompt: "-"
  • Line Location: MAIN+2
Function Call: WRITE
  • Prompt: !,?((80-$L(HDR))/2),HDR
  • Line Location: MAIN+3
Function Call: WRITE
  • Prompt: !
  • Line Location: MAIN+4
Function Call: WRITE
  • Prompt: "-"
  • Line Location: MAIN+4
Function Call: WRITE
  • Prompt: !
  • Line Location: MAIN+5
Function Call: WRITE
  • Prompt: !,"COLLECTION Labs: Use option #1 to setup HOST labs."
  • Line Location: MAIN+6
Function Call: WRITE
  • Prompt: !," HOST Labs : Use option #2 to setup COLLECTION labs."
  • Line Location: MAIN+7
Function Call: WRITE
  • Prompt: !!
  • Line Location: MAIN+8
Function Call: WRITE
  • Prompt: !,HDRCNT,".",?5,HDR(HDRCNT)
  • Line Location: MAIN+10
Function Call: WRITE
  • Prompt: !!
  • Line Location: MAIN+12
Function Call: WRITE
  • Prompt: !!
  • Line Location: HOST+6
Function Call: WRITE
  • Prompt: @IOF,!
  • Line Location: HSTHDR+2
Function Call: WRITE
  • Prompt: "-"
  • Line Location: HSTHDR+2
Function Call: WRITE
  • Prompt: !,?((80-$L(HOST))/2),HOST
  • Line Location: HSTHDR+3
Function Call: WRITE
  • Prompt: !
  • Line Location: HSTHDR+4
Function Call: WRITE
  • Prompt: "-"
  • Line Location: HSTHDR+4
Function Call: WRITE
  • Prompt: !!
  • Line Location: HSTHDR+5
Function Call: WRITE
  • Prompt: !,LA7,".",?5,$P(HOST(LA7),U,2)_" ("_$P(HOST(LA7),U,3)_")"
  • Line Location: HOSTLST+2
Function Call: WRITE
  • Prompt: !,LA7CNT,".",?5,"Add HOST Lab"
  • Line Location: HOSTLST+3
Function Call: WRITE
  • Prompt: !!,"1. HOST Lab: ",?15,$P(HOST(LA7A),U,2)
  • Line Location: HSTHDR2+4
Function Call: WRITE
  • Prompt: !,"2. Logical Link: ",$G(LA7X(LA7870))
  • Line Location: HSTHDR2+16
Function Call: WRITE
  • Prompt: !,"3. Message Configuration: ",$$GET1^DIQ(62.48,LA76248_",",.01)
  • Line Location: HSTHDR2+19
Function Call: WRITE
  • Prompt: !,"4. Auto Instrument: ",$$GET1^DIQ(62.4,LA7624_",",.01)
  • Line Location: HSTHDR2+22
Function Call: WRITE
  • Prompt: !,"You have not entered a "_LAB_" lab."
  • Line Location: LMC+6
Function Call: WRITE
  • Prompt: !,"To add your Hospital as a HOST site just add COLLECTION sites."
  • Line Location: HLAB+13
Function Call: WRITE
  • Prompt: @IOF,!
  • Line Location: HLL+4
Function Call: WRITE
  • Prompt: "-"
  • Line Location: HLL+4
Function Call: WRITE
  • Prompt: !,?((80-$L(HDR))/2),HDR
  • Line Location: HLL+5
Function Call: WRITE
  • Prompt: !
  • Line Location: HLL+6
Function Call: WRITE
  • Prompt: "-"
  • Line Location: HLL+6
Function Call: WRITE
  • Prompt: !,?3,"Protocol",?40,"Logical Link",!,?3,"----------",?40,"---------------"
  • Line Location: HLL+7
Function Call: WRITE
  • Prompt: !!
  • Line Location: HLL+8
Function Call: WRITE
  • Prompt: !!
  • Line Location: HLL+15
Function Call: WRITE
  • Prompt: !!,"AUTOMATED INSTRUMENT: ",$P(^LAB(62.4,LA7624,0),U)
  • Line Location: CHTST+9
Function Call: WRITE
  • Prompt: !,?5,"Another user is editing this entry."
  • Line Location: CHTST+12
Function Call: WRITE
  • Prompt: !,"Add Chem Tests to the "_AI_" Automated Instrument for "_$P(HOST(LA7A),U,2)_".",!!
  • Line Location: CHTST+16
Function Call: WRITE
  • Prompt: !
  • Line Location: CHSET+14
Function Call: WRITE
  • Prompt: !,"Renaming Auto-Instrument "_$P(^LAB(62.4,IEN,0),U)_" to "_NAME
  • Line Location: CONV+9
Function Call: WRITE
  • Prompt: !,"Renaming LA7 Message Configuration "_$P(^LAHM(62.48,IEN,0),U)_" to "_NAME
  • Line Location: CONV+19
Function Call: WRITE
  • Prompt: !!,"For consistency and clarity the above Auto-Instrument names"
  • Line Location: CONV+24
Function Call: WRITE
  • Prompt: !,"and Message Configurations have been changed from REMOTE to COLLECTION."
  • Line Location: CONV+25
Function Call: WRITE
  • Prompt: !,?3,$G(LA7Y(101,LA7X_",",.01,"E"))
  • Line Location: GETLL+9
Function Call: WRITE
  • Prompt: ?40,$G(LA7Y(101,LA7X_",",770.7,"E"))
  • Line Location: GETLL+10
Function Call: WRITE
  • Prompt: " ("_$$GET1^DIQ(870,+LA7Y(101,LA7X_",",770.7,"I")_",",2)_")"
  • Line Location: GETLL+11
Routine Call
  • DIC
  • Line Location:
    • LMC+5
    • HLAB+10
    • CHTST+5
    • CHSET+7
Routine Call
  • DIC
  • Line Location:
    • HSTHDR2+12
    • HSTHDR2+13
    • HSTHDR2+18
    • HSTHDR2+21
Routine Call
  • DIE
  • Line Location:
    • LMC+9
    • CHTST+15
    • CHSET+13
    • CONV+10
    • CONV+20
Routine Call
  • DIR
  • Line Location:
    • MAIN+14
    • HOST+7
    • AEHOST+2
    • HLAB+4
    • HLL+18
    • CONV+26

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^ORD(101 - [#101] GETS^DIQ
^DIC(4 - [#4] Classic Fileman Calls
^LAB(62.4 - [#62.4] Classic Fileman Calls,  FIND1^DIC,  GET1^DIQ
^LAHM(62.48 - [#62.48] Classic Fileman Calls,  FIND1^DIC,  GET1^DIQ
^LAM - [#64] GET1^DIQ
^HLCS(870 - [#870] FIND1^DIC,  GET1^DIQ

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DD(62.4 CHSET+5
^LAB(60 - [#60] CHSET+10
^LAB(62.4 - [#62.4] CHTST+9, CHTST+11, CHTST+19, CONV+5, CONV+6, CONV+7, CONV+9
^LAHM(62.48 - [#62.48] HOSTBLD+7, CONV+15, CONV+16, CONV+17, CONV+19
^ORD(101 - [#101] HLL+9, HLL+12

Label References

Name Line Occurrences
$$MAIN LA7VSET+20
@( LA7VSET+20
AEHOST HOST+9
CHSET CHTST+17
CHTST AEHOST+6
CONV LA7VSET+7
GETLL HLL+10, HLL+13
H1HLP HOST+7
H2HLP AEHOST+2
HLAB AEHOST+3
HLL AEHOST+4
HOSTBLD HOST+5
HOSTLST HOST+5
HSTHDR HOST+5, AEHOST+2
HSTHDR2 AEHOST+2
KDIR MAIN+11, MAIN+16, HOST+5, AEHOST+2, AEHOST+7, HLAB+4, HLL+16
LMC AEHOST+5
MHLP MAIN+14

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
AI CHTST+2~, CHTST+4*, CHTST+16
CHA AEHOST+1~, AEHOST+2*, AEHOST+3, AEHOST+4, AEHOST+5, AEHOST+6
DA LA7VSET+22!, LMC+2~, LMC+8*, HLAB+7~, CHTST+2~, CHTST+14*, CHSET+2~, CHSET+9~, CHSET+11*, CONV+2!
CONV+8*, CONV+12!, CONV+18*
DA(1 CHSET+4*, CHSET+5, CHSET+11*
DIC LA7VSET+22!, LMC+2~, LMC+4*, HLAB+7~, HLAB+8*, CHTST+2~, CHTST+5*, CHTST+14, CHSET+2~, CHSET+5*
CHSET+8, CHSET+9~
DIC("DR" CHSET+5*
DIC("P" CHSET+5*
DIC("S" HLAB+9*
DIC(0 LMC+4*, HLAB+8*, CHTST+5*, CHSET+5*
DIE LA7VSET+22!, LMC+2~, LMC+8*, CHTST+2~, CHTST+14*, CHSET+2~, CHSET+8*, CONV+2!, CONV+3*, CONV+12!
CONV+13*
DIR KDIR+1!, CONV+23~
DIR("?" MHLP+1*, MHLP+2*, MHLP+3*, MHLP+4*, MHLP+5*, MHLP+6*, MHLP+7*, MHLP+8*, MHLP+9*, H1HLP+1*
H1HLP+2*, H2HLP+1*, H2HLP+2*, H2HLP+3*, H2HLP+4*, H2HLP+5*, H2HLP+6*
DIR("A" HLAB+4*, HLL+17*
DIR(0 MAIN+13*, HOST+6*, AEHOST+2*, HLAB+4*, HLL+17*, CONV+26*
DIROUT KDIR+1!
DIRUT KDIR+1!, HOST+8, HLL+19, CONV+23~
DLAYGO CHSET+2~, CHSET+4*, CHSET+9~
DO LA7VSET+22!, HLAB+7~, CHSET+2~
DR LA7VSET+22!, LMC+2~, LMC+8*, CHTST+2~, CHTST+14*, CHSET+2~, CHSET+12*, CONV+2!, CONV+8*, CONV+12!
CONV+18*
DT LA7VSET+11, LA7VSET+13
DTIME LA7VSET+16
DTOUT KDIR+1!
DUOUT KDIR+1!
>> DUZ(2 HLAB+12
HDR LA7VSET+9~, LA7VSET+18*, MAIN+3, HLL+2~, HLL+3*, HLL+5
HDR( MAIN+10
HDR(1 LA7VSET+19*
HDR(2 LA7VSET+19*
HDRA MAIN+1~, MAIN+15*, MAIN+17
HDRCNT MAIN+1~, MAIN+9*, MAIN+10*
HOST LA7VSET+9~, HOST+2~, HOSTBLD+5!, HSTHDR+1*, HSTHDR+3, AEHOST+2*
HOST( HOSTBLD+11*, HOSTBLD+12*, HOSTLST+2, AEHOST+3, HSTHDR2+4, HSTHDR2+5, HSTHDR2+7, HSTHDR2+9, HSTHDR2+12, HSTHDR2+13
HSTHDR2+18, HSTHDR2+21, HLAB+4, HLAB+6, HLAB+14*, HLAB+15*, HLAB+17*, HLAB+19, HLAB+21, HLAB+22
HLL+3, HLL+9, HLL+12, HLL+20, CHTST+4, CHTST+16
IEN CONV+1~, CONV+6*, CONV+7, CONV+8, CONV+9, CONV+16*, CONV+17, CONV+18, CONV+19
INST HLAB+2~, HLAB+11*, HLAB+12, HLAB+15
IOF MAIN+2, HSTHDR+2, HLL+4
LA7 HOST+2~, HOSTBLD+3~, HOSTBLD+6*, HOSTBLD+7*, HOSTBLD+8, HOSTBLD+11, HOSTLST+1*, HOSTLST+2*
LA74 HOSTBLD+3~, HOSTBLD+9*, HOSTBLD+10, HOSTBLD+11
LA7624 HSTHDR2+1~, HSTHDR2+21*, HSTHDR2+22, CHTST+2~, CHTST+7*, CHTST+9, CHTST+11, CHTST+14, CHTST+19, CHSET+4
CHSET+11
LA76248 LA7VSET+9~, HOSTBLD+3~, HSTHDR2+1~, HSTHDR2+18*, HSTHDR2+19
LA7629 LA7VSET+9~, HOSTBLD+3~, HLAB+2~
LA7870 HSTHDR2+1~, HSTHDR2+10*, HSTHDR2+11, HSTHDR2+12*, HSTHDR2+13*, HSTHDR2+14, HSTHDR2+16
LA7A HOST+2~, HOST+4, HOST+8*, HOST+9*, AEHOST+3, HSTHDR2+4, HSTHDR2+5, HSTHDR2+7, HSTHDR2+9, HSTHDR2+12
HSTHDR2+13, HSTHDR2+18, HSTHDR2+21, LMC+4, HLAB+4, HLAB+6, HLAB+14, HLAB+15, HLAB+17, HLAB+19
, HLAB+21, HLAB+22, HLL+3, HLL+9, HLL+12, HLL+20, CHTST+4, CHTST+16
LA7CNT HOST+2~, HOST+6, HOSTBLD+6*, HOSTBLD+11*, HOSTBLD+12, HOSTLST+1*, HOSTLST+2*, HOSTLST+3, AEHOST+2, HSTHDR2+3*
HSTHDR2+15*, HSTHDR2+18*, HSTHDR2+21*, H1HLP+1, H1HLP+2
LA7LL HLL+2~
LA7NLT CHSET+2~, CHSET+10*, CHSET+12
LA7P HOST+2~, HOSTBLD+6*, HOSTBLD+7
LA7VER HLAB+2~, HLAB+20*, HLAB+21*, HLAB+22
LA7VNVC LA7VSET+9~, HLAB+2~
LA7VS LA7VSET+9~, LA7VSET+11*, LA7VSET+12, LA7VSET+13*, LA7VSET+14, HLL+20
LA7X HSTHDR2+1~, HSTHDR2+9, HLAB+2~, GETLL~, GETLL+7, GETLL+9, GETLL+10, GETLL+11
LA7X( HSTHDR2+14*, HSTHDR2+16
LA7X(0 HSTHDR2+10
LA7Y CHSET+2~, CHSET+6, CHSET+7*, CHSET+10, CHSET+11, GETLL+5~
LA7Y(101 GETLL+9, GETLL+10, GETLL+11
LAB LA7VSET+9~, LA7VSET+20*, LMC+4, LMC+6
LRI HLAB~
LRX LA7VSET+9~
LRY LA7VSET+9~
NAME LA7VSET+9~, CONV+7*, CONV+8, CONV+9, CONV+17*, CONV+18, CONV+19
PR HLL+2~, HLL+9*, HLL+10, HLL+12*, HLL+13
PRIMARY LA7VSET+9~, LA7VSET+14*, LA7VSET+16, HLAB+12, HLAB+19, HLAB+22
PRSITE LA7VSET+9~, LA7VSET+14*, HLAB+22
REMOTE LA7VSET+9~
RMT CONV+1~, CONV+4*, CONV+5*, CONV+6, CONV+14*, CONV+15*, CONV+16
RMT1 CONV+1~, CONV+4*, CONV+5, CONV+14*, CONV+15
SNAME HOST+2~, HOST+10!, HOSTBLD+3~, HOSTBLD+10*, HOSTBLD+11
SNUM HOST+2~, HOSTBLD+3~, HOSTBLD+8*, HOSTBLD+9, HOSTBLD+11
U LA7VSET+14, HOSTBLD+11, HOSTLST+2, AEHOST+3, HSTHDR2+4, HSTHDR2+5, HSTHDR2+7, HSTHDR2+12, HSTHDR2+13, HSTHDR2+18
HSTHDR2+21, LMC+4, HLAB+4, HLAB+6, HLAB+15, HLAB+17, HLAB+19, HLAB+22, HLL+3, HLL+9
HLL+12, CHTST+4, CHTST+9, CHTST+16, CHSET+5, CHSET+10, CONV+7, CONV+9, CONV+17, CONV+19
UI AEHOST+1~
UPDT CONV+1~, CONV+11*, CONV+21*, CONV+22
X LA7VSET+16*, MAIN+2*, MAIN+4*, KDIR+1!, HSTHDR+2*, HSTHDR+4*, LMC+4*, HLL+4*, HLL+6*, CHTST+4*
Y MAIN+15, KDIR+1!, HOST+9, AEHOST+2, LMC+6, LMC+8, HLAB+4, HLAB+10, HLAB+11, HLL+20
CHTST+6, CHTST+7, CHSET+7
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 |  Local Variables  | All