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

Package Total Routines
Medicine 4 MCAROG    MCPARC    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.
Info |  Desc |  Directly Accessed By Routines |  Pointed To By FileMan Files |  Fields |  All