Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call
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>

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

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

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
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call