Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Call Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables |  Marked Items  | All
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>

Call Graph

Call Graph

Call Graph Total: 4

Package Total Call Graph
VA FileMan 3 $$FIND1^DIC  (IXALL,IXALL2)^DIK  $$GET1^DIQ  
Kernel 1 $$UP^XLFSTR  

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

External References

Name Field # of Occurrence
$$FIND1^DIC ENV+2
IXALL^DIK POST+10
IXALL2^DIK POST+10
$$GET1^DIQ ENVT+8, FIND1+7, BUILD+11
$$UP^XLFSTR ENVT+3, ENVT+7, ENVT+8, ENVS+3, ENVS+9, POST+3, POST+6, FIND1+2, FIND1+6, FIND1+7
, FIND1+12

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
Routine Call
  • DIC
  • Line Location:
    • ENV+2

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
^LAB(69.73 - [#69.73] Classic Fileman Calls

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^LAB(61 - [#61] ENVS+6, ENVS+8, ENVS+9, FIND1+11, FIND1+12, BUILD+10
^LAB(69.73 - [#69.73] POST+9!, TEST+1, TEST+4, TEST+8!, SPEC+3, SPEC+8!, BUILD+2, BUILD+4, BUILD+8
^ORD(101.43 - [#101.43] ENVT+4, ENVT+6, ENVT+7, FIND1+4, FIND1+5, FIND1+6, BUILD+5

Label References

Name Line Occurrences
$$FIND1 POST+4, POST+7, TEST+3, SPEC+2
$$TEST POST+4
ENVS ENV+1
ENVT ENV+1
SPEC POST+7

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
CAP TEST+2~, TEST+9, SPEC+1~, SPEC+7
CAP( TEST+6*, TEST+7*, TEST+10, SPEC+5*, SPEC+6*, SPEC+9
CODE ENVS+1~, ENVS+3*, ENVS+4, ENVS+6, ENVS+7, ENVS+8, ENVS+14, ENVS+16, ENVS+17, SPEC~
, SPEC+2, FIND1~, FIND1+2*, FIND1+10, FIND1+11
CT TEST+2~, TEST+4*, TEST+5, TEST+6, TEST+7, TEST+10*, SPEC+1~, SPEC+3*, SPEC+4, SPEC+5
, SPEC+6, SPEC+9*, FIND1+1~, FIND1+5*, FIND1+6, FIND1+7, FIND1+8, FIND1+11*, FIND1+12, FIND1+14*
, FIND1+15
DIK POST+1~, POST+10*
I ENVT+1~, ENVT+2*, ENVS+1~, ENVS+2*, POST+1~, POST+2*
IEN ENVT+1~, ENVT+6*, ENVT+7, ENVT+8, ENVS+1~, ENVS+8*, ENVS+9, ENVS+11*, ENVS+12, POST+1~
POST+3*, POST+4*, POST+5, POST+7, TEST~, TEST+1, TEST+4, TEST+8, TEST+9, SPEC~
, SPEC+3, SPEC+8, SPEC+9, FIND1+1~, FIND1+5*, FIND1+8*, FIND1+12*, FIND1+14*, FIND1+15*, FIND1+16*
, FIND1+17
NAM ENVT+1~, ENVT+3*, ENVT+4, ENVT+5, ENVT+6, ENVT+7, ENVT+11, ENVT+13, ENVT+14, ENVS+1~
ENVS+3*, ENVS+5, ENVS+7, ENVS+12, ENVS+14, ENVS+16, ENVS+17, POST+1~, POST+3*, POST+4
, TEST~, TEST+3, SPEC~, SPEC+2, FIND1~, FIND1+2*, FIND1+4, FIND1+5, FIND1+6, FIND1+15
ND BUILD+1~, BUILD+4*, BUILD+5, BUILD+8*, BUILD+9, BUILD+10, BUILD+11
NEW TEST+2~, TEST+3*, TEST+5, TEST+7, TEST+11, SPEC+1~, SPEC+2*, SPEC+4, SPEC+6
S POST+1~, POST+5*
SCODE POST+1~, POST+6*, POST+7
SIEN POST+1~, POST+6*, POST+7
SNAM POST+1~, POST+6*, POST+7
SP BUILD+1~, BUILD+10*, BUILD+11, BUILD+12*
SPC SPEC~, SPEC+3, SPEC+8
SPEC ENVS+1~, ENVS+8!, FIND1+1~, FIND1+11!, BUILD+1~, BUILD+12
SPEC( ENVS+9*, ENVS+11, ENVS+12, FIND1+12*, FIND1+14, FIND1+15, BUILD+11*, BUILD+12
STR ENVT+1~, ENVT+2*, ENVT+3, ENVS+1~, ENVS+2*, ENVS+3, POST+1~, POST+2*, POST+3, POST+5*
POST+6, TEST+2~, TEST+5*, TEST+6, TEST+7, SPEC+1~, SPEC+4*, SPEC+5, SPEC+6
SUCCS ENVT+1~, ENVT+6*, ENVT+9*, ENVT+10, ENVT+12, ENVT+14, ENVS+1~, ENVS+8*, ENVS+9*, ENVS+10
ENVS+11*, ENVS+12*, ENVS+13, ENVS+15, FIND1+1~, FIND1+2*, FIND1+8*, FIND1+11*, FIND1+12*, FIND1+13
, FIND1+14*, FIND1+15*, FIND1+16, FIND1+17
TAG FIND1~, FIND1+3, FIND1+9
U ENVT+7, ENVS+9, FIND1+6, FIND1+12, BUILD+5, BUILD+10, BUILD+11
>> XPDQUIT ENV+2*, ENVT+4*, ENVT+10*, ENVT+12*, ENVS+4*, ENVS+6*, ENVS+13*

Marked Items

Name Field # of Occurrence
$T(TSPEC+I ENVS+2
$T(TSPEC+S POST+5
$T(TTEST+I ENVT+2, POST+2
Info |  Source |  Call Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables |  Marked Items  | All