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

Package: Surgery

SURGERY(#130)-->130.43

Sub-Field: 130.43


Information

Parent File Name Number Package
SURGERY(#130) RETURNED TO SURGERY 130.43 Surgery

Details

Field # Name Loc Type Details
.01 RETURNED TO SURGERY 0;1 POINTER TO SURGERY FILE (#130) SURGERY(#130)

  • INPUT TRANSFORM:  S DIC("S")="I $P(^(0),""^"")=$P(^SRF(DA,0),""^"")" D ^DIC K DIC S DIC=DIE,X=+Y,DINUM=X K:Y<0 X
  • LAST EDITED:  JAN 22, 1991
  • DESCRIPTION:  This indicates the case number if the patient has been returned to surgery within 30 days.
  • DELETE TEST:  .01,0)= I $D(^SRF(DA(1),"CON")),$P(^("CON"),"^") D ^SROCOND I 0
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
  • CROSS-REFERENCE:  130.43^B
    1)= S ^SRF(DA(1),29,"B",$E(X,1,30),DA)=""
    2)= K ^SRF(DA(1),29,"B",$E(X,1,30),DA)
1 REASON 0;2 SET
  • 'R' FOR RETREATMENT;
  • 'C' FOR COMPLICATION;
  • 'N' FOR NEW PROBLEM;

  • LAST EDITED:  AUG 23, 1986
  • HELP-PROMPT:  Enter the code corresponding to the reason that this patient was returned to surgery.
  • DESCRIPTION:  This is the reason that the patient was returned to surgery.
2 RET TO SURGERY COMMENTS 1;0 WORD-PROCESSING #130.44

  • DESCRIPTION:  These are comments about the return to surgery which may be helpful in documentation of this case.
3 RELATED/UNRELATED 0;3 SET
  • 'U' FOR UNRELATED TO THIS CASE;
  • 'R' FOR RELATED TO THIS CASE;

  • LAST EDITED:  MAR 31, 1992
  • HELP-PROMPT:  Enter 'R' if this return within 30 days is related to this case.
  • DESCRIPTION:  This determines whether the return within 30 days is related to any of the operations performed in this case. If so, enter 'R' for 'RELATED'. Otherwise, enter 'U' for 'UNRELATED'.
Info |  Details |  All