Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Desc |  Directly Accessed By Routines |  Pointer To FileMan Files |  Fields |  ICR |  Found Entries |  External References |  Global Variables Directly Accessed |  Naked Globals |  Local Variables  | All
Print Page as PDF
Global: ^DIC(130.4

Package: Surgery

Global: ^DIC(130.4


Information

FileMan FileNo FileMan Filename Package
130.4 ICD SEARCH API Surgery

Description

Directly Accessed By Routines, Total: 3

Package Total Routines
Surgery 3 ^DIC(130.4    DONOR RACE    SROICDGT    

Pointer To FileMan Files, Total: 2

Package Total FileMan Files
DRG Grouper 1 ICD CODING SYSTEMS(#80.4)[.02]    
Kernel 1 PACKAGE(#9.4)[.05]    

Fields, Total: 6

Field # Name Loc Type Details
.001 NUMBER NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>999)!(X<1)!(X?.E1"."1N.N) X
  • LAST EDITED:  FEB 12, 2012
  • HELP-PROMPT:  Type a number between 1 and 999, 0 decimal digits.
  • DESCRIPTION:  
    This is the internal entry number for this field.
.01 APPLICATION NAME 0;1 FREE TEXT
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  K:$L(X)>30!($L(X)<3)!'(X'?1P.E) X
  • LAST EDITED:  FEB 27, 2012
  • HELP-PROMPT:  Enter the name of the application that this API will be used by. Answer must be 3-30 characters in length.
  • DESCRIPTION:  
    This is the name of the application that this API will be used by. A package may have more than one application name if it is required.
  • TECHNICAL DESCR:  This field will be used by applications to enter a name. Some applications may need more than one name, for example in ADT an entry might be created for PTF and another for RUG if they needed different API calls.
    The value in this field will be used in the API to retrieve the correct entry. For example, in Surgery, this field might contain SURG. The input transform for a top level field might read D
    GETAPI^SROICDGT("SURG,"DIAG",DA)
  • CROSS-REFERENCE:  130.4^B
    1)= S ^DIC(130.4,"B",$E(X,1,30),DA)=""
    2)= K ^DIC(130.4,"B",$E(X,1,30),DA)
    This is the regular 'B' cross reference for this file.
  • RECORD INDEXES:  C (#757)
.02 CODING SYSTEM 0;2 POINTER TO ICD CODING SYSTEMS FILE (#80.4) ICD CODING SYSTEMS(#80.4)

  • LAST EDITED:  FEB 27, 2012
  • HELP-PROMPT:  Select the correct coding system for this entry.
  • DESCRIPTION:  
    This is the version that this API will be used to retrieve data for.
  • CROSS-REFERENCE:  ^^TRIGGER^130.4^.04
    1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^DIC(130.4,D0,0)):^(0),1:"") S X=$P(Y(1),U,4),X=X S DIU=X K Y X ^DD(130.4,.02,1,1,1.1) S DIH=$G(^DIC(130.4,DIV(0),0)),DIV=X S $P(^(0),U,4)=DIV,DIH=130.4,DIG=.04 D ^DICR
    1.1)= S X=DIV N SINFO S SINFO=$$SINFO^ICDEX($P(^DIC(130.4,DA,0),U,2)) S X=$S($P(SINFO,U,4)=80:"DIAG",$P(SINFO,U,4)=80.1:"PROC",1:"")
    2)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^DIC(130.4,D0,0)):^(0),1:"") S X=$P(Y(1),U,4),X=X S DIU=X K Y S X="" S DIH=$G(^DIC(130.4,DIV(0),0)),DIV=X S $P(^(0),U,4)=DIV,DIH=130.4,DIG=.04 D ^DICR
    CREATE VALUE)= N SINFO S SINFO=$$SINFO^ICDEX($P(^DIC(130.4,DA,0),U,2)) S X=$S($P(SINFO,U,4)=80:"DIAG",$P(SINFO,U,4)=80.1:"PROC",1:"")
    DELETE VALUE)= @
    FIELD)= TYPE
    This trigger automatically sets the TYPE field to the correct value.
  • CROSS-REFERENCE:  130.4^AC
    1)= S ^DIC(130.4,"AC",$E(X,1,30),DA)=""
    2)= K ^DIC(130.4,"AC",$E(X,1,30),DA)
  • RECORD INDEXES:  C (#757)
.04 TYPE 0;4 SET
  • 'DIAG' FOR DIAGNOSIS;
  • 'PROC' FOR PROCEDURE;

  • LAST EDITED:  AUG 08, 2013
  • HELP-PROMPT:  Select either Diagnosis or Procedure.
  • DESCRIPTION:  
    This is the Type of ICD search API that will be executed for this entry. Current choices are Diagnosis or Procedure.
  • TECHNICAL DESCR:  The value stored in the Database (either DIAG or PROC) is used in calls to retrieve the correct API. For example, in the Surgery file the input transform would be 'D GETAPI^SROICDGT("SURG","DIAG",DA) for a top level
    field.
    This value may also be used for calls to other ICD API's. For example s x=$$ICDDX^ICDEX(CODE,...
  • NOTES:  TRIGGERED by the CODING SYSTEM field of the ICD SEARCH API File
  • RECORD INDEXES:  C (#757)
.05 OWNER PACKAGE 0;5 POINTER TO PACKAGE FILE (#9.4)
************************REQUIRED FIELD************************
PACKAGE(#9.4)

  • LAST EDITED:  FEB 16, 2012
  • HELP-PROMPT:  Enter the package that is responsible for this entry.
  • DESCRIPTION:  
    This is the package that is responsible for this entry.
1 MUMPS CODE TO EXECUTE 1;E1,245 MUMPS

  • INPUT TRANSFORM:  K:$L(X)>245 X D:$D(X) ^DIM
  • LAST EDITED:  FEB 12, 2012
  • HELP-PROMPT:  This is Standard MUMPS code.
  • DESCRIPTION:  
    Enter the MUMPS code to execute the correct search user interface for this coding system.
    WRITE AUTHORITY: @

Found Entries, Total: 6

APPLICATION NAME: SURG    APPLICATION NAME: SURG    APPLICATION NAME: SAMPLE PROC ICD-9    APPLICATION NAME: SAMPLE PROC ICD-10    APPLICATION NAME: SAMPLE DIAG ICD-9    APPLICATION NAME: SAMPLE DIAG ICD-10    

ICR, Total: 1

ICR LINK Subscribing Package(s) Fields Referenced Description
ICR #5990 (130.4).
Access: Both R/W w/Fileman

External References

Name Field # of Occurrence
LEX^DGICD 1(IEN:94)
ASK^DGICP 1(IEN:92)
^DICR .02(XREF 1S), .02(XREF 1K)
^DIM 1+1
Y^DIQ ID.02+1
$$SINFO^ICDEX .02(XREF 1n1.1)
$$SEARCH^ICDSAPI 1(IEN:1), 1(IEN:91), 1(IEN:93)
LEX^SROICD 1(IEN:2)

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DD(130.4 .02(XREF 1S)
^DD(80.4 ID.02+1
^DIC(130.4 - [#130.4] IXCSL+1*, IXCKL+1!, IXCKEIC+1!, .01(XREF 1S), .01(XREF 1K), .02(XREF 1S), .02(XREF 1n1.1), .02(XREF 1K), .02(XREF 2S), .02(XREF 2K)
^ICDS - [#80.4] ID.02+1

Naked Globals

Name Field # of Occurrence
^(0 ID.02+1, .02(XREF 1S), .02(XREF 1K)

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
%I ID.02+1*!
>> C ID.02+1*
>> D0 .02(XREF 1S), .02(XREF 1K)
>> DA IXCSL+1, IXCKL+1, .01(XREF 1S), .01(XREF 1K), .02(XREF 1S), .02(XREF 1n1.1), .02(XREF 1K), .02(XREF 2S), .02(XREF 2K)
>> DIC ID.02+1
>> DIG .02(XREF 1S), .02(XREF 1K)
>> DIH .02(XREF 1S), .02(XREF 1K)
>> DIU .02(XREF 1S), .02(XREF 1K)
DIV .02(XREF 1S), .02(XREF 1n1.1), .02(XREF 1K)
DIV(0 .02(XREF 1S), .02(XREF 1K)
>> EFFDATE 1(IEN:91), 1(IEN:93)
SINFO .02(XREF 1n1.1)
>> SRDT 1(IEN:1)
U ID.02+1, .02(XREF 1S), .02(XREF 1n1.1), .02(XREF 1K)
X .001+1!, .01+1!, .01(XREF 1S), .01(XREF 1K), .02(XREF 1S), .02(XREF 1n1.1), .02(XREF 1K), .02(XREF 2S), .02(XREF 2K), 1+1!
X(1 IXCSL+1, IXCKL+1
X(2 IXCSL+1, IXCKL+1
X(3 IXCSL+1, IXCKL+1
Y ID.02+1*, .02(XREF 1S), .02(XREF 1K), 1(IEN:1), 1(IEN:91), 1(IEN:93)
Y(1 .02(XREF 1S), .02(XREF 1K)
Info |  Desc |  Directly Accessed By Routines |  Pointer To FileMan Files |  Fields |  ICR |  Found Entries |  External References |  Global Variables Directly Accessed |  Naked Globals |  Local Variables  | All