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

Package: Lab Service

Routine: LR7OU64


Information

LR7OU64 ;SLC/DCM/FHS/DALISC - RESULT CODE NLT LINKING UTILITY AUTO ; 6/12/12 2:00

Source Information

Source file <LR7OU64.m>

Entry Points

Name Comments DBIA/ICR reference
EN ;
LIST ;
LK
LAB ;
CHECK ;
64 ;Look for NATIONAL VA LAB CODE
LINK(X60,X641,DOIT) ;Link the 2 files
L1
L2
END ;
LST ;
DQ
CLEAN
MSG

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !
  • Line Location: LIST+5
Function Call: WRITE
  • Prompt: !!,$$CJ^XLFSTR("Do you want to automatically link entries when there is an exact match",80)
  • Line Location: LK+0
Function Call: WRITE
  • Prompt: !,$$CJ^XLFSTR("on the NAME in both files",80)
  • Line Location: LK+1
Function Call: WRITE
  • Prompt: !!,$$CJ^XLFSTR("Answer YES to automatically link the entries, or NO to be prompted for each",80)
  • Line Location: LK+2
Function Call: WRITE
  • Prompt: !!,"60 = ",LRDATA,!,"64 = ",LRMNAME_" "_LRCODE
  • Line Location: CHECK+8
Function Call: WRITE
  • Prompt: !,$C(7),?5,"Did not find a exact name match for Lab Test "_LRDATA,!
  • Line Location: 64+3
Function Call: WRITE
  • Prompt: !," Want to use the ["_$P(^LAM(LRMIEN,0),U)_"] NATIONAL VA LAB CODE instead?"
  • Line Location: 64+5
Function Call: WRITE
  • Prompt: !?5,"Link the two entries"
  • Line Location: L1+0
Function Call: WRITE
  • Prompt: !,"Enter Yes to link the entries, No to leave it alone."
  • Line Location: L1+2
Function Call: WRITE
  • Prompt: !?32,"o----LINKED----o",!
  • Line Location: L2+1
Function Call: READ
  • Variable: X
  • Timeout: 1
  • Line Location: L2+2
Function Call: WRITE
  • Prompt: !?20,"User terminated update",!,$C(7)
  • Line Location: L2+2
Function Call: WRITE
  • Prompt: !!?15,"***************** NOT LINKED ***************",!
  • Line Location: L2+3
Function Call: READ
  • Variable: X
  • Timeout: DTIME
  • Line Location: L2+4
Function Call: WRITE
  • Prompt: !!?5,"Press Return to continue"
  • Line Location: L2+4
Function Call: WRITE
  • Prompt: !,"Nothing in X-Ref to Print.",!!
  • Line Location: LST+1
Function Call: WRITE
  • Prompt: !!,$$CJ^XLFSTR("I will produce a list of ",80)
  • Line Location: LST+2
Function Call: WRITE
  • Prompt: !,$$CJ^XLFSTR("NATIONAL VA Code / Result NLT codes from LABORATORY TEST file",80),!
  • Line Location: LST+3
Function Call: WRITE
  • Prompt: !!?10,"Report Queued to "_ION,!
  • Line Location: LST+5
Function Call: WRITE
  • Prompt: !!,$$CJ^XLFSTR("List of NATIONAL VA Code / Result NLT codes from LABORATORY TEST file",80),!!
  • Line Location: DQ+1
Function Call: WRITE
  • Prompt: ?6,$$NOW^XLFDT,!
  • Line Location: DQ+2
Function Call: WRITE
  • Prompt: !,"Test Name: ",$P(^LAB(60,DA,0),U)
  • Line Location: DQ+8
Function Call: WRITE
  • Prompt: !,$$CJ^XLFSTR("This option will Auto Link NLT RESULT CODE to Laboratory test file (#60).",80)
  • Line Location: MSG+0
Function Call: WRITE
  • Prompt: !,$$CJ^XLFSTR("NLT RESULT CODE is used by the LEDI software to identify",80)
  • Line Location: MSG+1
Function Call: WRITE
  • Prompt: !,$$CJ^XLFSTR("test results returned by Host Laboratories.",80)
  • Line Location: MSG+2
Function Call: WRITE
  • Prompt: !,$$CJ^XLFSTR("ONLY GENERIC NLT CODES CAN BE LINKED TO LAB TEST ",80),!!
  • Line Location: MSG+3
Function Call: WRITE
  • Prompt: !,$$CJ^XLFSTR("Only ATOMIC lab tests can have an NLT RESULT CODE.",80),!
  • Line Location: MSG+4

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^LAB(60 - [#60] Classic Fileman Calls
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call