Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Details |  All
Print Page as PDF
Sub-Field: 131.81

Package: Surgery

SURGERY UTILIZATION(#131.8)-->131.81

Sub-Field: 131.81


Information

Parent File Name Number Package
SURGERY UTILIZATION(#131.8) OPERATING ROOM 131.81 Surgery

Details

Field # Name Loc Type Details
.01 OPERATING ROOM 0;1 POINTER TO OPERATING ROOM FILE (#131.7) OPERATING ROOM(#131.7)

  • INPUT TRANSFORM:  S DIC("S")="I $$ORDIV^SROUTL0(+Y),('$P(^SRS(+Y,0),U,6))" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X S:$D(X) DINUM=X
  • LAST EDITED:  MAR 13, 1996
  • HELP-PROMPT:  Enter the name of the operating room.
  • DESCRIPTION:  This is the name of the operating room.
  • SCREEN:  S DIC("S")="I $$ORDIV^SROUTL0(+Y),('$P(^SRS(+Y,0),U,6))"
  • EXPLANATION:  Screen limits selection to active operating rooms for the division.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
1 START TIME 0;2 DATE

  • INPUT TRANSFORM:  S X=$E(DA(1),4,5)_"/"_$E(DA(1),6,7)_"/"_$E(DA(1),2,3)_"@"_X,%DT="ETXR" D ^%DT S X=Y K:Y<1 X
  • OUTPUT TRANSFORM:  S Y=$P(Y,".",2)_"0000",Y=$E(Y,1,2)_":"_$E(Y,3,4)
  • LAST EDITED:  MAY 23, 1990
  • HELP-PROMPT:  Enter the time that this room begins functioning on this date.
  • DESCRIPTION:  This is the time of day that this operating room begins functioning on the date selected.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
  • CROSS-REFERENCE:  ^^TRIGGER^131.81^2
    1)= Q
    2)= K DIV S DIV=X,D0=DA(1),DIV(0)=D0,D1=DA,DIV(1)=D1 S Y(1)=$S($D(^SRU(D0,1,D1,0)):^(0),1:"") S X=$P(Y(1),U,3),X=X S DIU=X K Y S X="" X ^DD(131.81,1,1,1,2.4)
    2.4)= S DIH=$S($D(^SRU(DIV(0),1,DIV(1),0)):^(0),1:""),DIV=X S $P(^(0),U,3)=DIV,DIH=131.81,DIG=2 D ^DICR:$O(^DD(DIH,DIG,1,0))>0
    CREATE VALUE)= NO EFFECT
    DELETE VALUE)= @
    FIELD)= END T
    This trigger of the END TIME field functions to delete the END TIME when the START TIME is deleted.
  • CROSS-REFERENCE:  ^^TRIGGER^131.81^3
    1)= K DIV S DIV=X,D0=DA(1),DIV(0)=D0,D1=DA,DIV(1)=D1 S Y(1)=$S($D(^SRU(D0,1,D1,0)):^(0),1:"") S X=$P(Y(1),U,4),X=X S DIU=X K Y S X=DIV S X="N" X ^DD(131.81,1,1,2,1.4)
    1.4)= S DIH=$S($D(^SRU(DIV(0),1,DIV(1),0)):^(0),1:""),DIV=X S $P(^(0),U,4)=DIV,DIH=131.81,DIG=3 D ^DICR:$O(^DD(DIH,DIG,1,0))>0
    2)= K DIV S DIV=X,D0=DA(1),DIV(0)=D0,D1=DA,DIV(1)=D1 S Y(1)=$S($D(^SRU(D0,1,D1,0)):^(0),1:"") S X=$P(Y(1),U,4),X=X S DIU=X K Y S X=DIV S X="Y" X ^DD(131.81,1,1,2,2.4)
    2.4)= S DIH=$S($D(^SRU(DIV(0),1,DIV(1),0)):^(0),1:""),DIV=X S $P(^(0),U,4)=DIV,DIH=131.81,DIG=3 D ^DICR:$O(^DD(DIH,DIG,1,0))>0
    CREATE VALUE)= "N"
    DELETE VALUE)= "Y"
    FIELD)= INAC
    This trigger of the INACTIVE (Y/N) field functions to mark the operating room as active when a START TIME is entered and mark the room as inactive when the START TIME is deleted.
2 END TIME 0;3 DATE

  • INPUT TRANSFORM:  S X=$E(DA(1),4,5)_"/"_$E(DA(1),6,7)_"/"_$E(DA(1),2,3)_"@"_X,%DT="ETXR" D ^%DT S X=Y K:Y<1 X
  • OUTPUT TRANSFORM:  S Y=$P(Y,".",2)_"0000",Y=$E(Y,1,2)_":"_$E(Y,3,4)
  • LAST EDITED:  MAY 08, 1990
  • HELP-PROMPT:  Enter the time that this operating room stops functioning on this date.
  • DESCRIPTION:  This is the time that this operating room stops functioning on this date. It will be used when generating the operating room utilization reports.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
    TRIGGERED by the START TIME field of the OPERATING ROOM sub-field of the SURGERY UTILIZATION File
3 INACTIVE (Y/N) 0;4 SET
  • 'Y' FOR YES;
  • 'N' FOR NO;

  • LAST EDITED:  MAY 23, 1990
  • HELP-PROMPT:  Enter 'Y' if the room is inactive on this date.
  • DESCRIPTION:  This flags the operating room if inactive on the date selected.
  • NOTES:  TRIGGERED by the START TIME field of the OPERATING ROOM sub-field of the SURGERY UTILIZATION File
Info |  Details |  All