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

Package: Automated Lab Instruments

Routine: LA7SRPT2


Information

LA7SRPT2 ;DALOI/JDB - CODE USAGE REPORT ;03/07/12 09:04

Source Information

Source file <LA7SRPT2.m>

Entry Points

Name Comments DBIA/ICR reference
ASK ;
; Prompts for Identifier and Coding System then performs search
MAIN(CODE,SYS,MSGCFG,SHPCFG) ;
FIND(CODE,SYS,MSGCFG,SHPCFG,STOP) ;
; Searches and displays search results for the code/code system
; in files #61,61.2,62,62.06,62.47,62.48,62.9
; Inputs
; CODE : Code (or Identifier)
; SYS : Coding System (ie "SCT")
; MSGCFG : <opt> Message Config (#62.48)
; SHPCFG : <opt> Shipping Config (#62.9)
; STOP : <byref> See Outputs
NP(ABORT,PGNUM,HDR,FTR,BM) ;
; ABORT : <byref> Set if uses enters "^" at "MORE" prompt
; PGNUM : <byref> Page Number Counter
; HDR : Executable code to write the header
; FTR : Executable code to write the footer
; BM : Bottom Margin

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,"Invalid SCT code"
  • Line Location: FIND+23
Function Call: WRITE
  • Prompt: !,"SCT FSN: ",DATA("F")
  • Line Location: FIND+24
Function Call: WRITE
  • Prompt: !,"Invalid LOINC code"
  • Line Location: FIND+28
Function Call: WRITE
  • Prompt: !,"LOINC FSN: ",X
  • Line Location: FIND+29
Function Call: WRITE
  • Prompt: !!,"Checking TOPOGRAPHY file (#61)"
  • Line Location: FIND+33
Function Call: WRITE
  • Prompt: !,?5,"No matches"
  • Line Location: FIND+37
Function Call: WRITE
  • Prompt: !,?2,"#",R61,": ",X
  • Line Location: FIND+44
Function Call: WRITE
  • Prompt: !!,"Checking ETIOLOGY FIELD (#61.2) file"
  • Line Location: FIND+50
Function Call: WRITE
  • Prompt: !,?5,"No matches"
  • Line Location: FIND+54
Function Call: WRITE
  • Prompt: !,?2,"#",R612,": ",X
  • Line Location: FIND+61
Function Call: WRITE
  • Prompt: !!,"Checking COLLECTION SAMPLE (#62) file"
  • Line Location: FIND+68
Function Call: WRITE
  • Prompt: !,?5,"No matches"
  • Line Location: FIND+72
Function Call: WRITE
  • Prompt: !,?2,"#",R62,": ",X
  • Line Location: FIND+79
Function Call: WRITE
  • Prompt: !!,"Checking ANTIMICROBIAL SUSCEPTIBILITY (#62.06) file"
  • Line Location: FIND+86
Function Call: WRITE
  • Prompt: !,?5,"No matches"
  • Line Location: FIND+90
Function Call: WRITE
  • Prompt: !,?2,"#",R6206,": ",X
  • Line Location: FIND+97
Function Call: WRITE
  • Prompt: !!,"Checking LAB CODE MAPPING (#62.47) file"
  • Line Location: FIND+104
Function Call: WRITE
  • Prompt: !,?5,"No matches"
  • Line Location: FIND+108
Function Call: WRITE
  • Prompt: !,?2,X," (#62.47:",R6247,")"
  • Line Location: FIND+120
Function Call: WRITE
  • Prompt: !,?4,"#",R624701,": ",F01," (",F22,")"
  • Line Location: FIND+130
Function Call: WRITE
  • Prompt: !,?6,"$$HL2LAH:",X
  • Line Location: FIND+136
Function Call: WRITE
  • Prompt: "$$HL2VA:",Y
  • Line Location: FIND+139
Function Call: WRITE
  • Prompt: !
  • Line Location: FIND+142
Function Call: WRITE
  • Prompt: !!,"Checking LA7 MESSAGE PARAMETER (#62.48) file"
  • Line Location: FIND+150
Function Call: WRITE
  • Prompt: !,?5,"No matches"
  • Line Location: FIND+154
Function Call: WRITE
  • Prompt: !,?2,X," (#62.48:",R6248,")"
  • Line Location: FIND+163
Function Call: WRITE
  • Prompt: !,?2,"NON-VA ORDER SNOMED CODES sub-file"
  • Line Location: FIND+163
Function Call: WRITE
  • Prompt: !,?4,"#",R624802,": ",$$VARPTR01^LA7XREF(VAENTRY)," (#",X,")"
  • Line Location: FIND+174
Function Call: WRITE
  • Prompt: !,?6," .01 is mapped"
  • Line Location: FIND+178
Function Call: WRITE
  • Prompt: ", "
  • Condition for execution: NL
  • Line Location: FIND+181
Function Call: WRITE
  • Prompt: "Used as override"
  • Line Location: FIND+181
Function Call: WRITE
  • Prompt: !
  • Line Location: FIND+182
Function Call: WRITE
  • Prompt: !!,"Checking LAB SHIPPING CONFIGURATION (#62.9) file"
  • Line Location: FIND+190
Function Call: WRITE
  • Prompt: !,?5,"No matches"
  • Line Location: FIND+194
Function Call: WRITE
  • Prompt: !,?2,X," (#62.9:",R629,")"
  • Line Location: FIND+204
Function Call: WRITE
  • Prompt: !,?4,"Test Profile"
  • Line Location: FIND+214
Function Call: WRITE
  • Prompt: !,?4,"#",R629001,": ",X
  • Line Location: FIND+214
Function Call: WRITE
  • Prompt: !,?6
  • Line Location: FIND+223
Function Call: WRITE
  • Prompt: "Specimen"
  • Line Location: FIND+226
Function Call: WRITE
  • Prompt: ", "
  • Condition for execution: F09+F53+F57>0
  • Line Location: FIND+226
Function Call: WRITE
  • Prompt: "Sample"
  • Line Location: FIND+227
Function Call: WRITE
  • Prompt: ", "
  • Condition for execution: F53+F57>0
  • Line Location: FIND+227
Function Call: WRITE
  • Prompt: "Non-HL7 Specimen"
  • Line Location: FIND+228
Function Call: WRITE
  • Prompt: ", "
  • Condition for execution: F57
  • Line Location: FIND+228
Function Call: WRITE
  • Prompt: "Non-HL7 Sample"
  • Line Location: FIND+229
Function Call: WRITE
  • Prompt: !
  • Line Location: FIND+230
Function Call: WRITE
  • Prompt: !!," N O M A T C H E S"
  • Line Location: FIND+236

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^LAB(60 - [#60] GET1^DIQ
62.4701 GETS^DIQ
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call