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

Package: Automated Lab Instruments

Routine: LA7UCFG


Information

LA7UCFG ;DALOI/JMC - Configure Lab Universal Interface ;9/26/16 12:13

Source Information

Source file <LA7UCFG.m>

Entry Points

Name Comments DBIA/ICR reference
EN ; Configure files #62.48 and #62.4 and auto release
E6248 ; Setup/edit file #62.48
E624 ; Setup/edit file #62.4
PRINT ; Print lab universal interface configuration report
DQP ; entry point from above and TaskMan
CLEAN ; Clean up and quit
HDR ; Header for lab universal interface configuration report
SH1 ;Sub header #1
SH2 ;Sub head #2
TERM ;
ENKEY ;entry point to holder(s) of lab key(s) option
START ;print users holding lab keys
EXIT ;
KEYHDR ;header for security key report

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !
  • Line Location: E6248+3
Function Call: WRITE
  • Prompt: !?5,"Another user is editing this entry."
  • Line Location: E6248+9
Function Call: WRITE
  • Prompt: !
  • Line Location: E624+6
Function Call: WRITE
  • Prompt: !?5,"Another user is editing this entry."
  • Line Location: E624+13
Function Call: WRITE
  • Prompt: !!,"Setting fields for auto download FILE BUILD ENTRY (#93) to: EN"
  • Line Location: E624+23
Function Call: WRITE
  • Prompt: !," FILE BUILD ROUTINE (#94) to: LA7UID"
  • Line Location: E624+24
Function Call: WRITE
  • Prompt: !,"Error Reported by FileMan: ",$G(LA7ERR(1,"DIERR",1,"TEXT",1))
  • Line Location: E624+29
Function Call: WRITE
  • Prompt: !!,"As this auto instrument is configured for auto release,"
  • Line Location: E624+36
Function Call: WRITE
  • Prompt: !,"please designate the associated load list profile to be used for auto release.",!
  • Line Location: E624+37
Function Call: WRITE
  • Prompt: !,"Editing load list: ",$P(^LRO(68.2,LA7682,0),U),!
  • Line Location: E624+38
Function Call: WRITE
  • Prompt: !,"VistA Lab Auto Release Master: ",$S($$GET^XPAR("SYS^PKG","LA UI AUTO RELEASE MASTER",1,"E")="":"NO (DISABLED)",1:$$GET^XPAR("SYS^PKG","LA UI AUTO RELEASE MASTER",1,"E"))
  • Line Location: DQP+11
Function Call: WRITE
  • Prompt: !!,"VistA Application Proxy",?28,"ID/DUZ",?45,"HL7 encoding format",!,LA7LINE2
  • Line Location: DQP+13
Function Call: WRITE
  • Prompt: ?38," ",LA7PROXID_"-"_LA7SITE_"^"_$$HLNAME^XLFNAME(LA7PROXY,"S","^")_"^^^^99VA4"
  • Line Location: DQP+21
Function Call: WRITE
  • Prompt: !!,"HL7 Components: <ID Number (ST)> ^ <Family Name (FN)> ^ <Given Name (ST)> ^ ^ ^ ^ ^ <Source Table (IS)> ^"
  • Line Location: DQP+22
Function Call: WRITE
  • Prompt: !!!,"Instrument Auto Download Status.: ",$$GET1^DIQ(62.4,LA7624_",",98)
  • Line Location: DQP+24
Function Call: WRITE
  • Prompt: !?10,"**Warning - Auto Download not enabled for auto instrument: ",$P(LA7624(0),"^",1)
  • Line Location: DQP+25
Function Call: WRITE
  • Prompt: !,"Instrument Auto Download Routine: ",$S($$GET1^DIQ(62.4,LA7624_",",93)'="":$$GET1^DIQ(62.4,LA7624_",",93),1:"(Entry Not Defined)"),$S($$GET1^DIQ(62.4,LA7624_",",94)'="":"^"_$$GET1^DIQ(62.4,LA7624_",",94),1:"(Routine Not Defined)")
  • Line Location: DQP+26
Function Call: WRITE
  • Prompt: !!,"Instrument Auto Release Status: ",$$GET1^DIQ(62.4,LA7624_",",99)
  • Line Location: DQP+28
Function Call: WRITE
  • Prompt: !?10,"**Warning - Auto Release not enabled for auto instrument: ",$P(LA7624(0),"^",1)
  • Line Location: DQP+29
Function Call: WRITE
  • Prompt: !!,"Associated Lab UI Message Configuration: ",$$GET1^DIQ(62.4,LA7624_",",8)
  • Line Location: DQP+31
Function Call: WRITE
  • Prompt: !?10,"**Warning - Message Configuration not defined for auto instrument: ",$P(LA7624(0),"^",1)
  • Line Location: DQP+32
Function Call: WRITE
  • Prompt: !!,"Associated Load/Work List: ",$$GET1^DIQ(62.4,LA7624_",",3)
  • Line Location: DQP+34
Function Call: WRITE
  • Prompt: !?10,"**Warning - No load/work list defined for auto instrument: ",$P(LA7624(0),"^",1)
  • Line Location: DQP+36
Function Call: WRITE
  • Prompt: !?10,"**Warning - Unable to identify proxy 'LRLAB,AUTO RELEASE' in NEW PERSON file"
  • Line Location: DQP+38
Function Call: WRITE
  • Prompt: !?5,"Auto Release Profile: ",$$GET1^DIQ(68.23,LRPROF_","_LRLL_",",.01)
  • Line Location: DQP+45
Function Call: WRITE
  • Prompt: !?11,"**Warning - 'LRLAB,AUTO RELEASE' proxy has not been assigned division '",LRDN,"' in",!?24,"the file NEW PERSON (#200), field DIVISION (#16)."
  • Line Location: DQP+49
Function Call: WRITE
  • Prompt: !?11,"**Warning - Performing lab required to be specified for Auto Release."
  • Line Location: DQP+50
Function Call: WRITE
  • Prompt: !?10,"**Warning - No profile defined for auto release"
  • Line Location: DQP+51
Function Call: WRITE
  • Prompt: !?10,"**Warning - No profile enabled for auto release"
  • Line Location: DQP+52
Function Call: WRITE
  • Prompt: !?10,"**Warning - Multiple profiles enabled for auto release (should only be one)"
  • Line Location: DQP+53
Function Call: WRITE
  • Prompt: !,$J("["_I_"]",4),?5,$$GET1^DIQ(62.41,I_","_LA7624_",",.01),?45,$$GET1^DIQ(62.41,I_","_LA7624_",",6),?75,$$GET1^DIQ(62.41,I_","_LA7624_",",7),?95,$$GET1^DIQ(60,LR60_",",400)," [",$P($G(^LAB(60,LR60,.2)),"^",1),"]"
  • Line Location: DQP+61
Function Call: WRITE
  • Prompt: !
  • Line Location: DQP+63
Function Call: WRITE
  • Prompt: ?10,"Specimen: ",$$GET1^DIQ(62.41,I_","_LA7624_",",8)
  • Line Location: DQP+64
Function Call: WRITE
  • Prompt: ?90,"Urgency: ",$$GET1^DIQ(62.41,I_","_LA7624_",",9)
  • Line Location: DQP+65
Function Call: WRITE
  • Prompt: !,$J("["_I_"]",4),?5,$$GET1^DIQ(62.41,I_","_LA7624_",",.01),?45,$$GET1^DIQ(62.41,I_","_LA7624_",",6),?75,$J($$GET1^DIQ(62.41,I_","_LA7624_",",12),5),?85,$$GET1^DIQ(62.41,I_","_LA7624_",",13),?95,$$GET1^DIQ(62.41,I_","_LA7624_",",14)
  • Line Location: DQP+73
Function Call: WRITE
  • Prompt: ?105,$$GET1^DIQ(62.41,I_","_LA7624_",",16),?115,$$GET1^DIQ(62.41,I_","_LA7624_",",17),?125,$$GET1^DIQ(62.41,I_","_LA7624_",",18)
  • Line Location: DQP+74
Function Call: WRITE
  • Prompt: !?10,"Remark Prefix: ",$$GET1^DIQ(62.41,I_","_LA7624_",",19)
  • Line Location: DQP+75
Function Call: WRITE
  • Prompt: !?10,"Param 1: ",$$GET1^DIQ(62.41,I_","_LA7624_",",2)
  • Line Location: DQP+76
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: CLEAN+1
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: HDR+2
Function Call: WRITE
  • Prompt: !,"Lab Universal Interface Configuration Report",?IOM-29," Page: ",LA7PAGE
  • Line Location: HDR+4
Function Call: WRITE
  • Prompt: !," for interface: ",$P(LA7624(0),"^"),?IOM-32," Printed: ",LA7NOW
  • Line Location: HDR+5
Function Call: WRITE
  • Prompt: !,LA7LINE,!
  • Line Location: HDR+6
Function Call: WRITE
  • Prompt: !!,"ORDERABLE TESTS"
  • Line Location: SH1+1
Function Call: WRITE
  • Prompt: !,"Entry",?10,"Name",?45,"UI Test Code",?75,"Accession Area",?95,"Data Name [IEN]"
  • Line Location: SH1+2
Function Call: WRITE
  • Prompt: !,LA7LINE2
  • Line Location: SH1+3
Function Call: WRITE
  • Prompt: !!,"REPORTABLE TESTS"
  • Line Location: SH2+1
Function Call: WRITE
  • Prompt: ?75,"Decimal",?84,"Result to",?95,"Accept",?105,"Ignore",?115,"Remove",?125,"Store"
  • Line Location: SH2+2
Function Call: WRITE
  • Prompt: !,"Entry",?10,"Name",?45,"UI Test Code",?75,"Places",?85,"Remark",?95,"Results",?105,"Results",?115,"Spaces",?125,"Remarks"
  • Line Location: SH2+3
Function Call: WRITE
  • Prompt: !,LA7LINE2
  • Line Location: SH2+4
Function Call: WRITE
  • Prompt: !
  • Line Location: ENKEY+2
Function Call: WRITE
  • Prompt: !!?5,"There are no holders of this key."
  • Line Location: ENKEY+4
Function Call: WRITE
  • Prompt: !!,"No security keys selected."
  • Line Location: ENKEY+6
Function Call: WRITE
  • Prompt: !
  • Line Location: ENKEY+8
Function Call: WRITE
  • Prompt: !
  • Line Location: ENKEY+10
Function Call: WRITE
  • Prompt: !,"NO DEVICE SELECTED OR REPORT PRINTED!!"
  • Line Location: ENKEY+16
Function Call: WRITE
  • Prompt: !,$J(LRID,9),?10,LRNAM
  • Line Location: START+14
Function Call: WRITE
  • Prompt: ?KTAB(LRK),"X"
  • Line Location: START+16
Function Call: WRITE
  • Prompt: !," ** NO USERS FOR SELECTED LAB KEY(S) **"
  • Line Location: START+17
Function Call: WRITE
  • Prompt: !
  • Line Location: EXIT+3
Function Call: WRITE
  • Prompt: !
  • Line Location: KEYHDR+1
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: KEYHDR+3
Function Call: WRITE
  • Prompt: !,PRTDT,?IOM-10,"Page: ",PG
  • Line Location: KEYHDR+5
Function Call: WRITE
  • Prompt: !,?(IOM\2-($L(LIN(I))\2)),LIN(I)
  • Line Location: KEYHDR+7
Function Call: WRITE
  • Prompt: !!?1,"DUZ/ID",?10,"NAME"
  • Line Location: KEYHDR+8
Function Call: WRITE
  • Prompt: ?TAB,I
  • Line Location: KEYHDR+8
Function Call: WRITE
  • Prompt: !,LN
  • Line Location: KEYHDR+9

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^DIC(19.1 - [#19.1] Classic Fileman Calls
^VA(200 - [#200] Classic Fileman Calls,  FIND1^DIC
^DIC(4 - [#4] GET1^DIQ
^LAB(60 - [#60] GET1^DIQ
^LAB(62.4 - [#62.4] Classic Fileman Calls,  GET1^DIQ
62.41 GET1^DIQ
^LAHM(62.48 - [#62.48] Classic Fileman Calls
^LRO(68.2 - [#68.2] Classic Fileman Calls
68.23 GET1^DIQ
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call