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

Package: Lab Service

Routine: LR469A


Information

LR469A ;DSS/TFF - LAB ANATOMIC PATHOLOGY INSTALLATION SUPPORT;03/04/16 12:21 ;08/12/16 11:25

Source Information

Source file <LR469A.m>

Entry Points

Name Comments DBIA/ICR reference
ENV ; Environment Check
ENVT ; Environment Check Orderable Items
ENVS ; Enviroment Check Specimen
POST ; Post Install - REBUILD THE AP DIALOG DATA
TEST(IEN,NAM) ; Get/Set the old global entry
SPEC(IEN,SPC,NAM,CODE) ; Get the old global sub entry for specimen
FIND1(TAG,NAM,CODE) ; Lookup
BUILD ; Build the Transport Routine Text
TTEST ; Dialog data to convert
TSPEC ; Specimen data to convert

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !
  • Line Location: ENV+1
Function Call: WRITE
  • Prompt: !!," *********************** AP SPECIMEN ***********************"
  • Line Location: ENV+3
Function Call: WRITE
  • Prompt: !," * COLLECTION SAMPLE (File 62) 'AP SPECIMEN' is missing! *"
  • Line Location: ENV+4
Function Call: WRITE
  • Prompt: !," *********************** AP SPECIMEN ***********************"
  • Line Location: ENV+5
Function Call: WRITE
  • Prompt: !," *** There is no ORDERABLE ITEM with the name '"_NAM_"'"
  • Line Location: ENVT+5
Function Call: WRITE
  • Prompt: !," *** ORDERABLE ITEM '"_NAM_"' exists but there are multiple entries"
  • Line Location: ENVT+11
Function Call: WRITE
  • Prompt: !," *** There is no ORDERABLE ITEM '"_NAM_"' within the ANATOMIC PATHOLOGY display group"
  • Line Location: ENVT+13
Function Call: WRITE
  • Prompt: !," Found ORDERABLE ITEM '"_NAM_"'"
  • Line Location: ENVT+14
Function Call: WRITE
  • Prompt: !!," *** '"_NAM_"'",!,?10,"SNOMED CT for SPECIMEN not provided for '"_NAM_"'"
  • Line Location: ENVS+5
Function Call: WRITE
  • Prompt: !!," *** '"_NAM_"'",!,?10,"SNOMED CT '"_CODE_"' has not been assigned to a SPECIMEN"
  • Line Location: ENVS+7
Function Call: WRITE
  • Prompt: !!," *** '"_NAM_"'",!,?10,"Multiple matches for SNOMED CT '"_CODE_"' with "
  • Line Location: ENVS+14
Function Call: WRITE
  • Prompt: $S(SUCCS>1:"same name matches",1:"no name match")
  • Line Location: ENVS+15
Function Call: WRITE
  • Prompt: !!," *** '"_NAM_"'",!,?10,"Found SPECIMEN for SNOMED CT '"_CODE_"' and name '"_NAM_"'"
  • Line Location: ENVS+16
Function Call: WRITE
  • Prompt: !!," *** '"_NAM_"'",!,?10,"Found SPECIMEN for SNOMED CT '"_CODE_"'"
  • Line Location: ENVS+17
Function Call: WRITE
  • Prompt: !,"***** No configuration to print. *****",!
  • Line Location: BUILD+2
Function Call: WRITE
  • Prompt: !,"TTEST ; Dialog data to convert",!
  • Line Location: BUILD+3
Function Call: WRITE
  • Prompt: " ;;",ND,";",$P($G(^ORD(101.43,ND,0)),U),!
  • Line Location: BUILD+5
Function Call: WRITE
  • Prompt: " ;;",!," Q",!," ;",!
  • Line Location: BUILD+6
Function Call: WRITE
  • Prompt: "TSPEC ; Specimen data to convert",!
  • Line Location: BUILD+7
Function Call: WRITE
  • Prompt: " ;;",SPEC(SP),!
  • Line Location: BUILD+12
Function Call: WRITE
  • Prompt: " ;;",!," Q",!
  • Line Location: BUILD+13

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^ORD(101.43 - [#101.43] GET1^DIQ
^LAB(61 - [#61] GET1^DIQ
^LAB(62 - [#62] FIND1^DIC
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call