STANDARD DATA DICTIONARY #66.5 -- OPERATION (MSBOS) FILE                                                          9/29/25    PAGE 1
STORED IN ^LAB(66.5,  *** NO DATA STORED YET ***   SITE: WWW.BMIRWIN.COM   UCI: VISTA,VISTA                        (VERSION 5.2)   

DATA          NAME                  GLOBAL        DATA
ELEMENT       TITLE                 LOCATION      TYPE
-----------------------------------------------------------------------------------------------------------------------------------
Contains operations/procedures with identified maximum surgical blood order schedules (MSBOS).  


EDITING OF FILE IS NOT ALLOWED.

CROSS
REFERENCED BY: NAME(B)



66.5,.01      NAME                   0;1 POINTER TO CPT FILE (#81) (Required)

              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)


66.5,.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(6
                                6.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.  


66.5,1        BLOOD COMPONENT REQUEST 1;0 POINTER Multiple #66.51 (Add New Entry without Asking)

              DESCRIPTION:
                                Blood component selected for an operation 


66.51,.01       BLOOD COMPONENT REQUEST 0;1 POINTER TO BLOOD PRODUCT FILE (#66) (Multiply asked)

                INPUT TRANSFORM:  S DIC("S")="I $P(^(0),U,4)=""BB""" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X S:$D(X) DINUM=X
                LAST EDITED:      JUL 23, 1993 
                DESCRIPTION:
                                  Blood component selected for an operation 

                SCREEN:           S DIC("S")="I $P(^(0),U,4)=""BB"""
                EXPLANATION:      Selects blood products for transfusion
                NOTES:            XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER


66.51,.02       NUMBER OF UNITS        0;2 NUMBER

                INPUT TRANSFORM:  K:+X'=X!(X>50)!(X<0)!(X?.E1"."1N.N) X
                LAST EDITED:      JUL 21, 1993 
                HELP-PROMPT:      Type a Number between 0 and 50, 0 Decimal Digits 
                DESCRIPTION:
                                  Maximum number of units for an operation 





      FILES POINTED TO                      FIELDS

BLOOD PRODUCT (#66)               BLOOD COMPONENT REQUEST:BLOOD COMPONENT REQUEST (#.01)

CPT (#81)                         NAME (#.01)



INPUT TEMPLATE(S):

PRINT TEMPLATE(S):

SORT TEMPLATE(S):

FORM(S)/BLOCK(S):