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

Package: Surgery

SURGERY(#130)-->130.08-->130.39

Sub-Field: 130.39


Information

Parent File Name Number Package
130.08 TIME 130.39 Surgery

Details

Field # Name Loc Type Details
.01 TIME 0;1 DATE

  • INPUT TRANSFORM:  S Z=$E($P(^SRF($S($D(SRTN):SRTN,1:DA(2)),0),"^",9),1,7),X=$S(X?1.4N.A!(X?1.2N1":"2N.A):Z_"@"_X,1:X) K %DT,Z S %DT="ERTX" D ^%DT S X=Y K:Y<1 X
  • OUTPUT TRANSFORM:  X ^DD("DD")
  • LAST EDITED:  DEC 08, 1993
  • HELP-PROMPT:  Enter the date/time that the irrigation solution was utilized.
  • DESCRIPTION:  This is the date and time that the irrigation solution was utilized. This information is optional, but may be useful for documentation of this case.
  • PRE-LOOKUP:  S Z=$E($P(^SRF($S($D(SRTN):SRTN,1:DA(2)),0),"^",9),1,7),X=$S(X?1.4N.A!(X?1.2N1":"2N.A):Z_"@"_X,1:X) K %DT,Z S %DT="RTX" D ^%DT S X=Y K:Y<1 X
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
1 AMOUNT USED 0;2 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>999999)!(X<0)!(X?.E1"."1N.N) X
  • LAST EDITED:  AUG 23, 1985
  • HELP-PROMPT:  Enter a whole number between 0 and 999999.
  • DESCRIPTION:  This is the total amount of irrigation solution used in the operative site.
2 PROVIDER 0;3 POINTER TO NEW PERSON FILE (#200) NEW PERSON(#200)

  • INPUT TRANSFORM:  S DIC("S")="S RESTRICT=""130.39,2"" D KEY^SROXPR I $D(SROK)" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
  • LAST EDITED:  FEB 05, 1992
  • HELP-PROMPT:  Enter the name of the provider.
  • DESCRIPTION:  This is the name of the person responsible for the irrigation solution. Although this information is optional, it may be useful for documentation of this case.
  • SCREEN:  S DIC("S")="S RESTRICT=""130.39,2"" D KEY^SROXPR I $D(SROK)"
  • EXPLANATION:  Entries in this field may be restricted based on locally selected keys.
Info |  Details