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

Package: IHS Changes To ADT

DAY SURGERY(#9009012)-->9009012.01

Sub-Field: 9009012.01


Information

Parent File Name Number Package
DAY SURGERY(#9009012) DAY SURGERY DATE/TIME 9009012.01 IHS Changes To ADT

Details

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

  • INPUT TRANSFORM:  S %DT="ETXR" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  FEB 19, 2008
  • HELP-PROMPT:  Enter the patient's scheduled date for Day Surgery.
  • CROSS-REFERENCE:  9009012^AA
    1)= S ^ADGDS("AA",$E(X,1,30),DA(1),DA)=""
    2)= K ^ADGDS("AA",$E(X,1,30),DA(1),DA)
  • CROSS-REFERENCE:  9009012.01^AA
    1)= S ^ADGDS(DA(1),"DS","AA",$E(X,1,30),DA)=""
    2)= K ^ADGDS(DA(1),"DS","AA",$E(X,1,30),DA)
  • CROSS-REFERENCE:  9009012^APID^MUMPS
    1)= S ^ADGDS("APID",DA(1),9999999.9999999-$E(X,1,30),DA)=""
    2)= K ^ADGDS("APID",DA(1),9999999.9999999-$E(X,1,30),DA)
  • CROSS-REFERENCE:  9009012^AD^MUMPS
    1)= S ^ADGDS("AD",DA(1),$P(X,"."),DA)=""
    2)= K ^ADGDS("AD",DA(1),$P(X,"."),DA)
1 PROCEDURE 0;2 FREE TEXT
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  K:$L(X)>30!($L(X)<3)!'(X'[";") X
  • LAST EDITED:  JUN 22, 1987
  • HELP-PROMPT:  Answer must be 3-30 characters in length and not contain a semicolon (;).
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
1.5 DIAGNOSIS 2;7 FREE TEXT
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  K:$L(X)>30!($L(X)<3) X
  • LAST EDITED:  DEC 21, 1990
  • HELP-PROMPT:  Answer must be 3-30 characters in length.
2 WARD LOCATION 0;3 POINTER TO WARD LOCATION FILE (#42) WARD LOCATION(#42)

  • LAST EDITED:  DEC 26, 1989
  • HELP-PROMPT:  Enter the ward location where the patient is residing.
  • CROSS-REFERENCE:  9009012^CN^MUMPS
    1)= S ^ADGDS("CN",$P(^DIC(42,X,0),"^"),DA(1),DA)=""
    2)= K ^ADGDS("CN",$P(^DIC(42,X,0),"^"),DA(1),DA)
3 ROOM-BED 0;4 FREE TEXT

  • INPUT TRANSFORM:  ; K:X[""""!($A(X)=45) X I $D(X) S Z=$P(X,"-",2) K:Z=""&(X'="*")!($P(^ADGDS(DA(1),"DS",DA,0),"^",3)="") X I $D(X) S Y=$P(^(0),U,3),%=$S($D(^DIC(42,Y,0)):$P(^(0),U,1),1:"") K:Y="" X I $D(X) S DFN=DA(1) D ^DGBEDC
  • LAST EDITED:  JAN 26, 1994
  • HELP-PROMPT:  Enter the room and bed (chair) to which this patient is assigned as 'ROOM-BED'.
  • EXECUTABLE HELP:  ;S DWW=$P(^ADGDS(DA(1),"DS",DA,0),"^",3) W:DWW'>0 !?5,*7,"A ward location must be entered for this day surgery.",! S DGIN=$S($D(^ADGDS("CN",$P(^DIC(42,+DWW,0),"^"),DA(1),DA)):1,1:0) D ^DGBED:DWW>0 W ! K DWW,DRR,DGIN
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
  • CROSS-REFERENCE:  9009012^RM
    1)= S ^ADGDS("RM",$E(X,1,30),DA(1),DA)=""
    2)= K ^ADGDS("RM",$E(X,1,30),DA(1),DA)
4 SPECIALTY 0;5 POINTER TO FACILITY TREATING SPECIALTY FILE (#45.7)
************************REQUIRED FIELD************************
FACILITY TREATING SPECIALTY(#45.7)

  • LAST EDITED:  JUN 22, 1987
5 PROVIDER 0;6 POINTER TO NEW PERSON FILE (#200) NEW PERSON(#200)

  • LAST EDITED:  FEB 28, 1996
6 INTERVIEW COMMENTS 1;0 WORD-PROCESSING #9009012.02
7 RELEASE DATE/TIME 2;1 DATE

  • INPUT TRANSFORM:  S %DT="ETXR" D ^%DT S X=Y K:Y<1 X I $D(X),+^ADGDS(DA(1),"DS",DA,0)'
  • LAST EDITED:  JUN 25, 1987
  • HELP-PROMPT:  Enter date & time patient was released from Day Surgery.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
  • CROSS-REFERENCE:  9009012^C^MUMPS
    1)= S:$D(^ADGDS(DA(1),"DS",DA,0)) XX=$P(^(0),"^",3) K:XX ^ADGDS("CN",$P(^DIC(42,XX,0),"^"),DA(1),DA)
    2)= S:$D(^ADGDS(DA(1),"DS",DA,0)) XX=$P(^(0),"^",3) S:XX ^ADGDS("CN",$P(^DIC(42,XX,0),"^"),DA(1),DA)=""
  • CROSS-REFERENCE:  9009012^D^MUMPS
    1)= S XX=$S($D(^ADGDS(DA(1),"DS",DA,0)):$P(^(0),"^",4),1:"") K:XX'="" ^ADGDS("RM",XX,DA(1),DA)
    2)= S XX=$S($D(^ADGDS(DA(1),"DS",DA,0)):$P(^(0),"^",4),1:"") S:XX'="" ^ADGDS("RM",XX,DA(1),DA)=""
8 LOS COMPUTED

  • MUMPS CODE:  X ^DD(9009012.01,8,9.4) S X=X/60,Y(9009012.01,8,6)=X S X=1,Y(9009012.01,8,7)=X S X="",X=$S(Y(9009012.01,8,2):Y(9009012.01,8,6),Y(9009012.01,8,7):X) S X=$J(X,0,1)
    9.2 = S Y(9009012.01,8,5)=$S($D(^ADGDS(D0,"DS",D1,0)):^(0),1:""),Y(9009012.01,8,1)=$S($D(^(2)):^(2),1:"") S X=$P(Y(9009012.01,8,1),U,1)'="",Y(9009012.01,8,2)=X
    9.3 = X ^DD(9009012.01,8,9.2) S Y(9009012.01,8,3)=X S X=$P(Y(9009012.01,8,1),U,1),Y(9009012.01,8,4)=X S X=$P(Y(9009012.01,8,5),U,1)
    9.4 = X ^DD(9009012.01,8,9.3) S X1=Y(9009012.01,8,4) S Y=$E(X1_"000",9,10)-$E(X_"000",9,10)*60+$E(X1_"00000",11,12)-$E(X_"00000",11,12),X2=X,X=$P(X,".",1)'=$P(X1,".",1) D ^%DTC:X S X=X*1440+Y S X=X
  • ALGORITHM:  $S(DISCHARGE DATE/TIME'="":MINUTES(#7,#.01)/60,1:"") (ALWAYS 1 DECIMAL DIGITS)
  • LAST EDITED:  JUL 16, 1987
9 DATE/TIME TO OBSERVATION 0;7 DATE

  • INPUT TRANSFORM:  S %DT="ETXR" D ^%DT S X=Y K:Y<1 X I $D(X) K:+^ADGDS(DA(1),"DS",DA,0)'X X
  • LAST EDITED:  OCT 31, 1988
  • HELP-PROMPT:  Enter the date & time the patient was moved to a regular ward while still a day surgery patient.
  • EXECUTABLE HELP:  W:'$D(X) !!,"Must be between Day Surgery Date/Time and Discharge Date/Time",!!
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
  • CROSS-REFERENCE:  9009012^AC
    1)= S ^ADGDS("AC",$E(X,1,30),DA(1),DA)=""
    2)= K ^ADGDS("AC",$E(X,1,30),DA(1),DA)
10 EXTENDED STAY LOS COMPUTED

  • MUMPS CODE:  X ^DD(9009012.01,10,9.6) S Y(9009012.01,10,10)=X S X=1,Y(9009012.01,10,11)=X S X="",X=$S(Y(9009012.01,10,2):Y(9009012.01,10,10),Y(9009012.01,10,11):X) S X=$J(X,0,1)
    9.2 = S Y(9009012.01,10,1)=$S($D(^ADGDS(D0,"DS",D1,0)):^(0),1:""),Y(9009012.01,10,4)=$S($D(^(2)):^(2),1:"") S X=$P(Y(9009012.01,10,1),U,7)'=""
    9.3 = X ^DD(9009012.01,10,9.2) S Y(9009012.01,10,2)=X,Y(9009012.01,10,3)=X S X=$P(Y(9009012.01,10,4),U,1)'="",Y(9009012.01,10,5)=X,Y(9009012.01,10,6)=X
    9.4 = X ^DD(9009012.01,10,9.3) S X=$P(Y(9009012.01,10,4),U,1),Y(9009012.01,10,7)=X S X=$P(Y(9009012.01,10,1),U,7)
    9.5 = X ^DD(9009012.01,10,9.4) S X1=Y(9009012.01,10,7) S Y=$E(X1_"000",9,10)-$E(X_"000",9,10)*60+$E(X1_"00000",11,12)-$E(X_"00000",11,12),X2=X,X=$P(X,".",1)'=$P(X1,".",1) D ^%DTC:X S X=X*1440+Y S X=X
    9.6 = X ^DD(9009012.01,10,9.5) S X=X/60,Y(9009012.01,10,8)=X S X=1,Y(9009012.01,10,9)=X S X="",X=$S(Y(9009012.01,10,5):Y(9009012.01,10,8),Y(9009012.01,10,9):X)
  • ALGORITHM:  $S(EXTENDED STAY DATE/TIME'="":$S(DISCHARGE DATE/TIME'="":MINUTES(#7,#9)/60,1:""),1:"") (ALWAYS 1 DECIMAL DIGITS)
  • LAST EDITED:  DEC 30, 1987
11 PATIENT ADMITTED? 2;2 SET
  • 'Y' FOR YES;

  • LAST EDITED:  OCT 21, 1987
  • HELP-PROMPT:  Was this patient admitted following the surgery?
12 SURGERY CANCELLED? 2;3 SET
  • 'Y' FOR YES;

  • LAST EDITED:  OCT 20, 1987
  • HELP-PROMPT:  Was the surgery cancelled, either by the patient or the facility?
13 NO-SHOW? 2;4 SET
  • 'Y' FOR YES;

  • LAST EDITED:  JAN 29, 1988
  • HELP-PROMPT:  Was this patient a no-show for his/her surgery?
14 MEDICAID NUMBER COMPUTED

  • MUMPS CODE:  S AUX=0,X="",AUD=$E($P(^ADGDS(D0,"DS",D1,0),"^"),1,5)_"01" F I=0:0 S AUX=$O(^AUPNMCD("B",D0,AUX)) Q:AUX="" S AUZ=0 F J=0:0 S AUZ=$O(^AUPNMCD(AUX,11,AUZ)) Q:AUZ="" S:AUZ'>AUD X=$P(^AUPNMCD(AUX,0),"^",3)
  • ALGORITHM:  S AUX=0,X="",AUD=$E($P(^ADGDS(D0,"DS",D1,0),"^"),1,5)_"01" F I=0:0 S AUX=$O(^AUPNMCD("B",D0,AUX)) Q:AUX="" S AUZ=0 F J=0:0 S AUZ=$O(^AUPNMCD(AUX,11,AUZ)) Q:AUZ="" S:AUZ'>AUD X=$P(^AUPNMCD(AUX,0),"^",3)
  • LAST EDITED:  JAN 29, 1988
15 UNESCORTED? 2;5 SET
  • 'Y' FOR YES;

  • LAST EDITED:  MAR 07, 1988
  • HELP-PROMPT:  Answer YES if the patient was unescorted and stayed overnight in the facility due to anesthesia during day surgery.
  • AUDIT:  YES, ALWAYS
16 POST-OP COMMENTS 2;6 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>12!($L(X)<1) X
  • LAST EDITED:  AUG 22, 1988
  • HELP-PROMPT:  ANSWER MUST BE 1-12 CHARACTERS IN LENGTH
Info |  Details |  All