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
Print Page as PDF
Routine: HDISDOLL

Package: Health Data and Informatics

Routine: HDISDOLL


Information

HDISDOLL ;BPFO/DTG - DISPLAY LOOKUP ITEMS FOR LABORATORY; Apr 07, 2018@12:42

Source Information

Source file <HDISDOLL.m>

Entry Points

Name Comments DBIA/ICR reference
EN ; Display found orderable items for Lab
EN1 ;
L1
L1E ; end of flip from XML
REPORT ;
; basic repeats
R1
R2
R3
R4
RCHKC
PAUSE
DONE ; final quit point
PLE ;
PDONE ; print done
RHEAD ;Description: Prints the report header.
RORD ; print order info
RLPI ; print lab primary info
RLTI ; print lab test
RLTS1 ; print specimen info
RLTS2 ; print initial mltf info
EXPORT ; output as export file
; basic repeats
E1
E2
E3
E4
EOUT ;
EHEAD ; export header
GETORD
GETLPI ; get primary lab item
GETLTI ; get lab test item
GETLTS ; get lab specimen and mltf item
CHAR(A) ; check for ctrl chars, <, >, &
N(K) ;get value
XML ; entry if output is XML
DISPL(S,F,E) ; display lines
DISPL1 ;

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !
  • Line Location: PAUSE+1
Function Call: WRITE
  • Prompt: !
  • Line Location: PAUSE+3
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: RHEAD+3
Function Call: WRITE
  • Prompt: !,?(40-($L(HD)\2)),HD
  • Line Location: RHEAD+4
Function Call: WRITE
  • Prompt: !,?(40-($L(HD1)\2)),HD1
  • Line Location: RHEAD+5
Function Call: WRITE
  • Prompt: !,?(40-($L(HD2)\2)),HD2
  • Line Location: RHEAD+6
Function Call: WRITE
  • Prompt: !,?27,"Date Printed: "_$$FMTE^XLFDT(DT),?70,"Page ",PAGE
  • Line Location: RHEAD+7
Function Call: WRITE
  • Prompt: !,ULINE
  • Line Location: RHEAD+10
Function Call: WRITE
  • Prompt: !,"Orderable Item Name: ",OINM
  • Line Location: RORD+2
Function Call: WRITE
  • Prompt: !," IEN: ",OIEN,?15,"Mnemonic: ",$S(($E(OIMEN)="Y"):"Yes",1:"No"),?29,"Inactive Date: ",OIDT
  • Line Location: RORD+4
Function Call: WRITE
  • Prompt: ?63,"Status: ",$S(OIST=1:"Inactive",1:" Active")
  • Line Location: RORD+6
Function Call: WRITE
  • Prompt: !," Synonyms: "
  • Line Location: RORD+8
Function Call: WRITE
  • Prompt: !,ULINE
  • Line Location: RORD+11
Function Call: WRITE
  • Prompt: !,"Laboratory Primary Item for Orderable Item: ",$E(LPNM,1,33),"..."
  • Line Location: RLPI+3
Function Call: WRITE
  • Prompt: !,"With IEN of: ",LTIEN," Not Found in Laboratory Test File"
  • Line Location: RLPI+5
Function Call: WRITE
  • Prompt: !,"Laboratory Primary Item: ",LPNM,?70,"IEN: ",$E(" ",1,(5-$L(LPIEN))),LPIEN
  • Line Location: RLPI+6
Function Call: WRITE
  • Prompt: !," Panel: ",LPPN
  • Line Location: RLPI+8
Function Call: WRITE
  • Prompt: !,"Laboratory Test: ",LTINM,?70,"IEN: ",$E(" ",1,(5-$L(LTIEN))),LTIEN
  • Line Location: RLTI+2
Function Call: WRITE
  • Prompt: !," Type: ",$P(LTITYP," ",1),?17,"Data Location: ",LTIDA,?46,"Data Loc Physical: ",LTIDAP
  • Line Location: RLTI+4
Function Call: WRITE
  • Prompt: $S(($E(LTIST)=1):"Inactive",1:" Active")
  • Line Location: RLTI+6
Function Call: WRITE
  • Prompt: !,"Specimen: ",LTSNM,?70,"IEN: ",$E(" ",1,(5-$L(LTSIEN))),LTSIEN
  • Line Location: RLTS1+2
Function Call: WRITE
  • Prompt: $S(($E(LTSST)=1):"Inactive",1:" Active")
  • Line Location: RLTS1+4
Function Call: WRITE
  • Prompt: !,"Master Lab Test Name: SPECIMEN NOT ASSOCIATED TO MASTER LABORATORY TEST File"
  • Line Location: RLTS2+3
Function Call: WRITE
  • Prompt: !,"Master Lab Test Name: "
  • Line Location: RLTS2+4
Function Call: WRITE
  • Prompt: $S(($E(LTMST)=1):"Inactive",1:" Active")
  • Line Location: RLTS2+8
Function Call: WRITE
  • Prompt: !," Alternate Name: "
  • Line Location: RLTS2+11
Function Call: WRITE
  • Prompt: !," LOINC Code: ",LTMLON
  • Line Location: RLTS2+15
Function Call: WRITE
  • Prompt: !," Component: "
  • Line Location: RLTS2+18
Function Call: WRITE
  • Prompt: !," Property: "
  • Line Location: RLTS2+22
Function Call: WRITE
  • Prompt: !," Time Aspect: "
  • Line Location: RLTS2+26
Function Call: WRITE
  • Prompt: !," Specimen: "
  • Line Location: RLTS2+29
Function Call: WRITE
  • Prompt: !," Scale: "
  • Line Location: RLTS2+33
Function Call: WRITE
  • Prompt: !," Method: "
  • Line Location: RLTS2+37
Function Call: WRITE
  • Prompt: $P(HDIFAC,U,1),TAB,$P(HDIFAC,U,2),TAB,$P(HDIFAC,U,3),TAB,HDIA,TAB,$P(HDIFAC,U,4),TAB,$P(HDIFAC,U,5),TAB
  • Line Location: E4+2
Function Call: WRITE
  • Prompt: OIEN,TAB,OINM,TAB,($S(($E(OIMEN)="Y"):"Yes",1:"No")),TAB,OIDT,TAB,($S(OIST=1:"Inactive",1:"Active")),TAB
  • Line Location: E4+3
Function Call: WRITE
  • Prompt: TAB,LPIEN,TAB,LPNM,TAB,LPPN,TAB,LTIEN,TAB,LTINM,TAB,LTITYP,TAB,LTIDA,TAB,LTIDAP,TAB,LTIDT,TAB,A,TAB
  • Line Location: E4+7
Function Call: WRITE
  • Prompt: LTSIEN,TAB,LTSNM,TAB,LTSUN,TAB,LTSDT,TAB,A,TAB,LTMIEN,TAB,LTMNM,TAB,LTMANM,TAB,LTMDT,TAB
  • Line Location: E4+9
Function Call: WRITE
  • Prompt: A,TAB,LTMLON,TAB,LTMCOM,TAB,LTMPRO,TAB,LTMTIM,TAB,LTMSPC,TAB,LTMSCA,TAB,LTMMET
  • Line Location: E4+11
Function Call: WRITE
  • Prompt: !
  • Line Location: E4+12
Function Call: WRITE
  • Prompt: "Facility_Name-Number",TAB,"Production_Account",TAB,"Net_Name",TAB,"Area",TAB,"Type_of_Lookup",TAB
  • Line Location: EHEAD+1
Function Call: WRITE
  • Prompt: "Partial_Name",TAB,"Orderable_Item_IEN",TAB
  • Line Location: EHEAD+2
Function Call: WRITE
  • Prompt: "Orderable_Item_Name",TAB,"Orderable_Item_Mnemonic",TAB,"Orderable_Item_Inactive_Date",TAB,"Orderable_Item_Status",TAB
  • Line Location: EHEAD+3
Function Call: WRITE
  • Prompt: "Orderable_Item_Synonyms",TAB,"Lab_Primary_Test_IEN",TAB,"Lab_Primary_Test_Name",TAB,"Lab_Primary_Test_Panel",TAB
  • Line Location: EHEAD+4
Function Call: WRITE
  • Prompt: "Lab_Test_IEN",TAB,"Lab_Test_Name",TAB,"Lab_Test_Type",TAB,"Lab_Test_Data_Location",TAB,"Lab_Test_Data_Loc_Physical",TAB
  • Line Location: EHEAD+5
Function Call: WRITE
  • Prompt: "Lab_Test_Inactive_Date",TAB,"Lab_Test_Status",TAB,"Lab_Test_Specimen_IEN",TAB,"Lab_Test_Specimen_Name",TAB
  • Line Location: EHEAD+6
Function Call: WRITE
  • Prompt: "Lab_Test_Specimen_Units",TAB,"Lab_Test_Specimen_Inactive_Date",TAB,"Lab_Test_Specimen_Status",TAB
  • Line Location: EHEAD+7
Function Call: WRITE
  • Prompt: "Master_Lab_Test_IEN",TAB,"Master_Lab_Test_Name",TAB,"Master_Lab_Test_Alternate_Name",TAB,"Master_Lab_Test_Inactive_Date",TAB
  • Line Location: EHEAD+8
Function Call: WRITE
  • Prompt: "Master_Lab_Test_Status",TAB,"Master_Lab_Test_LOINC_Code",TAB,"Master_Lab_Test_Component",TAB
  • Line Location: EHEAD+9
Function Call: WRITE
  • Prompt: "Master_Lab_Test_Property",TAB,"Master_Lab_Test_Time_Aspect",TAB,"Master_Lab_Test_Specimen",TAB
  • Line Location: EHEAD+10
Function Call: WRITE
  • Prompt: "Master_Lab_Test_Scale",TAB,"Master_Lab_Test_Method"
  • Line Location: EHEAD+11
Function Call: WRITE
  • Prompt: !
  • Line Location: EHEAD+12
Function Call: WRITE
  • Prompt: $G(@RET1@(A)),!
  • Line Location: XML+3
Function Call: WRITE
  • Prompt: S
  • Line Location: DISPL+3
Function Call: WRITE
  • Prompt: " <"
  • Line Location: DISPL+6
Function Call: WRITE
  • Prompt: !," > "
  • Line Location: DISPL+9
Info |  Source |  Entry Points |  Interaction Calls