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 |  Accessed By FileMan Db Calls |  Pointer To FileMan Files |  Fields |  External References |  Global Variables Directly Accessed |  Naked Globals |  Local Variables  | All
Print Page as PDF
Global: ^LAB(66.5

Package: Lab Service

Global: ^LAB(66.5


Information

FileMan FileNo FileMan Filename Package
66.5 OPERATION (MSBOS) Lab Service

Description

Directly Accessed By Routines, Total: 4

Package Total Routines
Lab Service 4 LRBLPCSS    ^LAB(66.5    LRBLS    RELATED NAME    

Accessed By FileMan Db Calls, Total: 1

Package Total Routines
Lab Service 1 LRBLS    

Pointer To FileMan Files, Total: 2

Package Total FileMan Files
CPT HCPCS Codes 1 CPT(#81)[.01]    
Lab Service 1 BLOOD PRODUCT(#66)[#66.51(.01)]    

Fields, Total: 3

Field # Name Loc Type Details
.01 NAME 0;1 POINTER TO CPT FILE (#81)
************************REQUIRED FIELD************************
CPT(#81)

  • INPUT TRANSFORM:  S DIC("S")="I $P(^(0),U,3),$P(^DIC(81.1,$P(^DIC(81.1,$P(^ICPT(Y,0),U,3),0),U,3),0),U)=""SURGERY""" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X S:$D(X) DINUM=X
  • LAST EDITED:  MAY 02, 1992
  • HELP-PROMPT:  Select an operation you want to have a maximum surgical blood order schedule.
  • DESCRIPTION:  
    Name of the Operation (MSBOS)
  • SCREEN:  S DIC("S")="I $P(^(0),U,3),$P(^DIC(81.1,$P(^DIC(81.1,$P(^ICPT(Y,0),U,3),0),U,3),0),U)=""SURGERY"""
  • EXPLANATION:  Selects only operations/procedures.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
  • CROSS-REFERENCE:  66.5^B
    1)= S ^LAB(66.5,"B",$E(X,1,30),DA)=""
    2)= K ^LAB(66.5,"B",$E(X,1,30),DA)
.02 SHORT NAME COMPUTED

  • MUMPS CODE:  X ^DD(66.5,.02,9.2) S X=$P(Y(66.5,.02,101),U,2) S D0=Y(66.5,.02,80)
    9.2 = S Y(66.5,.02,80)=$S($D(D0):D0,1:""),Y(66.5,.02,1)=$S($D(^LAB(66.5,D0,0)):^(0),1:""),D0=$P(Y(66.5,.02,1),U,1) S:'$D(^ICPT(+D0,0)) D0=-1 S Y(66.5,.02,101)=$S($D(^ICPT(D0,0)):^(0),1:"")
  • ALGORITHM:  NAME:SHORT NAME
  • DESCRIPTION:  
    This field contains a shorten name.
1 BLOOD COMPONENT REQUEST 1;0 POINTER Multiple #66.51 66.51

  • DESCRIPTION:  
    Blood component selected for an operation

External References

Name Field # of Occurrence
^DIC .01+1

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DD(66.5 .02+1
^ICPT - [#81] .02OF9.2+1
^LAB(66.5 - [#66.5] .01(XREF 1S), .01(XREF 1K), .02OF9.2+1

Naked Globals

Name Field # of Occurrence
^(0 .02OF9.2+1

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> D0 .02+1*, .02OF9.2+1*
>> DA .01(XREF 1S), .01(XREF 1K)
DIC .01+1!*
DIC("S" .01+1*, .01SCR+1*
>> DIE .01+1
>> DINUM .01+1*
U .02+1, .02OF9.2+1
X .01+1*!, .01(XREF 1S), .01(XREF 1K), .02+1*
>> Y .01+1
>> Y( .02+1, .02OF9.2+1*
Info |  Desc |  Directly Accessed By Routines |  Accessed By FileMan Db Calls |  Pointer To FileMan Files |  Fields |  External References |  Global Variables Directly Accessed |  Naked Globals |  Local Variables  | All