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

Package: Surgery

SURGERY UTILIZATION(#131.8)-->131.82

Sub-Field: 131.82


Information

Parent File Name Number Package
SURGERY UTILIZATION(#131.8) SURGICAL SPECIALTY 131.82 Surgery

Details

Field # Name Loc Type Details
.01 SURGICAL SPECIALTY 0;1 POINTER TO LOCAL SURGICAL SPECIALTY FILE (#137.45) LOCAL SURGICAL SPECIALTY(#137.45)

  • LAST EDITED:  MAR 17, 1993
  • HELP-PROMPT:  Enter the name of the Surgical Specialty.
  • DESCRIPTION:  This is the name of the Surgical Specialty.
  • 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 surgical specialty begins functioning on this date.
  • DESCRIPTION:  This is the time of day that this Surgical Specialty begins functioning on this date. Any time entered prior to the start time will be considered overtime.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
  • CROSS-REFERENCE:  ^^TRIGGER^131.82^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,2,D1,0)):^(0),1:"") S X=$P(Y(1),U,3),X=X S DIU=X K Y S X="" X ^DD(131.82,1,1,1,2.4)
    2.4)= S DIH=$S($D(^SRU(DIV(0),2,DIV(1),0)):^(0),1:""),DIV=X S $P(^(0),U,3)=DIV,DIH=131.82,DIG=2 D ^DICR:$O(^DD(DIH,DIG,1,0))>0
    CREATE VALUE)= NO EFFECT
    DELETE VALUE)= @
    FIELD)= END
    This trigger of the END TIME field functions to delete the END TIME when the START TIME is deleted.
  • CROSS-REFERENCE:  ^^TRIGGER^131.82^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,2,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.82,1,1,2,1.4)
    1.4)= S DIH=$S($D(^SRU(DIV(0),2,DIV(1),0)):^(0),1:""),DIV=X S $P(^(0),U,4)=DIV,DIH=131.82,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,2,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.82,1,1,2,2.4)
    2.4)= S DIH=$S($D(^SRU(DIV(0),2,DIV(1),0)):^(0),1:""),DIV=X S $P(^(0),U,4)=DIV,DIH=131.82,DIG=3 D ^DICR:$O(^DD(DIH,DIG,1,0))>0
    CREATE VALUE)= "N"
    DELETE VALUE)= "Y"
    FIELD)= INACT
    This trigger of the INACTIVE (Y/N) field functions to mark the surgical specialty as active when a START TIME is entered and to mark the specialty 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 surgical specialty stops functioning on this date.
  • DESCRIPTION:  This is the time of day that this Surgical Specialty stops functioning. Any time worked after this time will be considered overtime.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
    TRIGGERED by the START TIME field of the SURGICAL SPECIALTY 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 this specialty is not active on this date.
  • DESCRIPTION:  This flags the surgical specialty if it is inactive on this particular date.
  • NOTES:  TRIGGERED by the START TIME field of the SURGICAL SPECIALTY sub-field of the SURGERY UTILIZATION File
Info |  Details