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

Package: Uncategorized

COMPACT ACT EPISODE OF CARE(#818)-->818.01-->818.02

Sub-Field: 818.02


Information

Parent File Name Number Package
818.01 INPATIENT EXTENSION 818.02 Uncategorized

Details

Field # Name Loc Type Details
.01 IP EXTN START DATE 0;1 DATE

  • INPUT TRANSFORM:  S %DT="E" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  SEP 20, 2023
  • HELP-PROMPT:  Enter the date the authorized inpatient extension began.
  • DESCRIPTION:  
    The date the authorized inpatient extension began.
  • TECHNICAL DESCR:  
    Fileman date only, no time. The date the extension began.
  • CROSS-REFERENCE:  818.02^B
    1)= S ^PXCOMP(818,DA(2),10,DA(1),20,"B",$E(X,1,30),DA)=""
    2)= K ^PXCOMP(818,DA(2),10,DA(1),20,"B",$E(X,1,30),DA)
4 IP EXTN BENEFIT END DATE 0;4 DATE

  • INPUT TRANSFORM:  S %DT="E" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  JAN 22, 2024
  • HELP-PROMPT:  Enter the inpatient extension benefit end date. This should be 30 days after the initial start of this extension period. Calculated by the system and user entry is discouraged for this field.
  • DESCRIPTION:  
    The date the patient's inpatient extension period ended.
  • TECHNICAL DESCR:  
    Fileman date only, no time. This should be a date calculated by the system and is 30 days total inpatient extension benefit from the day the extension period began.
5 IP EXTN REMAINING DAYS COMPUTED

  • MUMPS CODE:  X ^DD(818.02,5,9.5) S Y(818.02,5,10)=$G(X) S X=1,Y(818.02,5,11)=$G(X) S X=0,X=$S(Y(818.02,5,3):Y(818.02,5,10),Y(818.02,5,11):X)
    9.2 = S Y(818.02,5,1)=$S($D(^PXCOMP(818,D0,10,D1,20,D2,0)):^(0),1:"") S X=$P(Y(818.02,5,1),U,4),Y(818.02,5,2)=$G(X) N %I,%H,% D NOW^%DTC S X=% S Y=X,X=Y(818.02,5,2),X=X S X=X
    9.3 = X ^DD(818.02,5,9.2) S X=X>Y,Y(818.02,5,3)=$G(X),Y(818.02,5,4)=$G(X) S X=$P(Y(818.02,5,1),U,4),Y(818.02,5,5)=$G(X),Y(818.02,5,6)=$G(X) N %I,%H,% D NOW^%DTC S X=% S X=X
    9.4 = X ^DD(818.02,5,9.3) S Y(818.02,5,7)=$G(X) S X=$P(Y(818.02,5,1),U,4),Y(818.02,5,8)=$G(X),Y(818.02,5,9)=$G(X) N %I,%H,% D NOW^%DTC S X=% S X=X
    9.5 = X ^DD(818.02,5,9.4) S X1=Y(818.02,5,8) S X2=Y(818.02,5,7) S X3=Y(818.02,5,5) S %Y=X3,Y=X2,X2=X S:X>X1 X2=X1,X1=X S:Y>%Y %Y=Y,Y=X3 S:Y>X2 X2=Y S:%Y
  • ALGORITHM:  $S(IP EXTN BENEFIT END DATE>NOW:RANGEDATE(IP EXTN BENEFIT END DATE,NOW,IP EXTN BENEFIT END DATE,NOW),1:0)
  • LAST EDITED:  SEP 12, 2023
  • DESCRIPTION:  
    Remaining days in the inpatient extension period.
  • TECHNICAL DESCR:  
    Computed field for Inpatient extension period days remaining till the Benefit End Date.
6 IP EXTN DATE TIME CREATED 0;5 DATE

  • INPUT TRANSFORM:  S %DT="ETR" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  APR 22, 2024
  • HELP-PROMPT:  Enter the current date and time this extension is being created.
  • DESCRIPTION:  
    Date and time this inpatient extension was created.
  • TECHNICAL DESCR:  
    Fileman date and time.
7 IP EXTN START CREATED BY 0;6 POINTER TO NEW PERSON FILE (#200) NEW PERSON(#200)

  • LAST EDITED:  SEP 12, 2023
  • HELP-PROMPT:  Enter the person creating this inpatient extension.
  • DESCRIPTION:  
    Person that created this inpatient extension.
  • TECHNICAL DESCR:  
    (Required) Pointer to NEW PERSON file (#200).
8 IP EXTN START AUTHORIZED BY 0;7 POINTER TO NEW PERSON FILE (#200) NEW PERSON(#200)

  • LAST EDITED:  SEP 12, 2023
  • HELP-PROMPT:  If first extension, enter the provider. All subsequent extensions, enter the Chief of Staff.
  • DESCRIPTION:  
    Person that authorized this inpatient extension. The first extension must be authorized by the provider and all subsequent extensions must be authorized by the Chief of Staff.
  • TECHNICAL DESCR:  
    (Required) Pointer to NEW PERSON file (#200).
9 IP EXTN TYPE OF CARE 0;8 SET
  • '1' FOR MEDICAL;
  • '2' FOR MENTAL;
  • '3' FOR BOTH MEDICAL AND MENTAL;

  • LAST EDITED:  SEP 12, 2023
  • HELP-PROMPT:  Select the code for the type of care needed, Medical or Mental.
  • DESCRIPTION:  
    Type of care needed for this inpatient extension.
  • TECHNICAL DESCR:  
    Set of Codes.
10 IP EXTN COMMENT 0;9 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>245!($L(X)<1) X
    MAXIMUM LENGTH: 245
  • LAST EDITED:  SEP 20, 2023
  • HELP-PROMPT:  Enter other comments about this extension. Answer must be 1-245 characters in length.
  • DESCRIPTION:  
    A free text field for comments about this inpatient extension.
  • TECHNICAL DESCR:  
    Free text. (1-245)
Info |  Details