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 |  Pointed To By FileMan Files |  Fields |  External References |  Global Variables Directly Accessed |  Naked Globals |  Local Variables  | All
Print Page as PDF
Global: ^MCAR(699.48

Package: Medicine

Global: ^MCAR(699.48


Information

FileMan FileNo FileMan Filename Package
699.48 INSTRUMENT Medicine

Description

Directly Accessed By Routines, Total: 6

Package Total Routines
Medicine 6 DIAGNOSIS    MCAROG    MCPARC    ^MCAR(699.48    MCPOS01F    MCPOS03    

Pointed To By FileMan Files, Total: 1

Package Total FileMan Files
Medicine 1 ENDOSCOPY/CONSULT(#699)[#699.05(.01)]    

Fields, Total: 2

Field # Name Loc Type Details
.01 NAME 0;1 FREE TEXT
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  K:X[""""!($A(X)=45) X I $D(X) K:$L(X)>30!($L(X)<3)!'(X'?1P.E) X
  • LAST EDITED:  MAR 07, 1990
  • HELP-PROMPT:  ANSWER MUST BE 3-30 CHARACTERS IN LENGTH
  • DESCRIPTION:  
    This field contains instruments used in GI and Pulmonary procedures. This list is built locally through options on the management menus.
  • CROSS-REFERENCE:  699.48^B
    1)= S ^MCAR(699.48,"B",$E(X,1,30),DA)=""
    2)= K ^MCAR(699.48,"B",$E(X,1,30),DA)
  • CROSS-REFERENCE:  699.48^AC^MUMPS
    1)= S:$G(MCARCODE)]"" $P(^MCAR(699.48,DA,0),U,2)=MCARCODE,^MCAR(699.48,"C",MCARCODE,DA)=""
    1.4)= S DIH=$S($D(^MCAR(699.48,DIV(0),0)):^(0),1:""),DIV=X S %=$P(DIH,U,3,999),DIU=$P(DIH,U,2),^(0)=$P(DIH,U,1,1)_U_DIV_$S(%]"":U_%,1:""),DIH=699.48,DIG=1 D ^DICR:$O(^DD(DIH,DIG,1,0))>0
    2)= K:$G(MCARCODE)]"" ^MCAR(699.48,"C",MCARCODE,DA)
    2.4)= S DIH=$S($D(^MCAR(699.48,DIV(0),0)):^(0),1:""),DIV=X S %=$P(DIH,U,3,999),DIU=$P(DIH,U,2),^(0)=$P(DIH,U,1,1)_U_DIV_$S(%]"":U_%,1:""),DIH=699.48,DIG=1 D ^DICR:$O(^DD(DIH,DIG,1,0))>0
    CREATE VALUE)= S X=MCARCODE
    DELETE VALUE)= S X=""
    FIELD)= MEDIC
    This cross-reference indexes instruments by selected procedures.
1 MEDICAL PACKAGE USE 0;2 SET
  • 'G' FOR GI;
  • 'P' FOR PULMONARY;

  • LAST EDITED:  DEC 14, 1988
  • HELP-PROMPT:  Enter code to establish a screen to distinguish GI instruments from Pulmonary instruments.
  • DESCRIPTION:  
    This field is used as a screen to distinguish GI instruments from Pulmonary instruments.
  • NOTES:  TRIGGERED by the NAME field of the INSTRUMENT File
  • CROSS-REFERENCE:  699.48^C
    1)= S ^MCAR(699.48,"C",$E(X,1,30),DA)=""
    2)= K ^MCAR(699.48,"C",$E(X,1,30),DA)
    This cross-reference allow screening of Instrument.

External References

Name Field # of Occurrence
^DICR .01(XREF 2n1.4), .01(XREF 2n2.4)

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DD( .01(XREF 2n1.4), .01(XREF 2n2.4)
^MCAR(699.48 - [#699.48] .01(XREF 1S), .01(XREF 1K), .01(XREF 2S), .01(XREF 2n1.4), .01(XREF 2K), .01(XREF 2n2.4), 1(XREF 1S), 1(XREF 1K)

Naked Globals

Name Field # of Occurrence
^(0 .01(XREF 2n1.4), .01(XREF 2n2.4)

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> % .01(XREF 2n1.4), .01(XREF 2n2.4)
>> DA .01(XREF 1S), .01(XREF 1K), .01(XREF 2S), .01(XREF 2K), 1(XREF 1S), 1(XREF 1K)
>> DIG .01(XREF 2n1.4), .01(XREF 2n2.4)
>> DIH .01(XREF 2n1.4), .01(XREF 2n2.4)
>> DIU .01(XREF 2n1.4), .01(XREF 2n2.4)
>> DIV .01(XREF 2n1.4), .01(XREF 2n2.4)
>> DIV(0 .01(XREF 2n1.4), .01(XREF 2n2.4)
>> MCARCODE .01(XREF 2S), .01(XREF 2K)
U .01(XREF 2S), .01(XREF 2n1.4), .01(XREF 2n2.4)
X .01+1!, .01(XREF 1S), .01(XREF 1K), .01(XREF 2n1.4), .01(XREF 2n2.4), 1(XREF 1S), 1(XREF 1K)
Info |  Desc |  Directly Accessed By Routines |  Pointed To By FileMan Files |  Fields |  External References |  Global Variables Directly Accessed |  Naked Globals |  Local Variables  | All