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

Package: Referred Care Information System

RCIS REFERRAL(#90001)-->90001.6

Sub-Field: 90001.6


Information

Parent File Name Number Package
RCIS REFERRAL(#90001) TRANSITION OF CARE DOCUMENT 90001.6 Referred Care Information System

Details

Field # Name Loc Type Details
.01 DATE-TIME PRINTED OR TX-FILE 0;1 DATE

  • INPUT TRANSFORM:  S %DT="ETR" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  JUN 20, 2013
  • HELP-PROMPT:  Enter the Date and Time the C32 or CCDA was printed or transmitted.
  • CROSS-REFERENCE:  90001.6^B
    1)= S ^BMCREF(DA(1),6,"B",$E(X,1,30),DA)=""
    2)= K ^BMCREF(DA(1),6,"B",$E(X,1,30),DA)
.02 PRINTED-TRANSMITTED BY 0;2 POINTER TO NEW PERSON FILE (#200) NEW PERSON(#200)

  • LAST EDITED:  MAY 06, 2013
  • HELP-PROMPT:  Enter the person who printed or transmitted the document.
.03 DATE-TIME TX ACKNOWLEDGED 0;3 DATE

  • INPUT TRANSFORM:  S %DT="ET" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  MAY 06, 2013
  • HELP-PROMPT:  Enter the date/time the transmission was acknowledged.
.04 DOCUMENT TYPE 0;4 SET
  • 'C3' FOR C32;
  • 'CP' FOR CCDA PRINTED;
  • 'CT' FOR CCDA TRANSMITTED;

  • LAST EDITED:  JUL 11, 2013
  • HELP-PROMPT:  Enter the type of document for the transfer of care.
  • CROSS-REFERENCE:  ^^TRIGGER^90001^1304
    1)= K DIV S DIV=X,D0=DA(1),DIV(0)=D0,D1=DA S Y(0)=X X ^DD(90001.6,.04,1,1,69.2) S X=X>0,Y=X,X=Y(2),X=X&Y I X S X=DIV S Y(1)=$S($D(^BMCREF(D0,13)):^(13),1:"") S X=$P(Y(1),U,4),X=X S DIU=X K Y S X=DIV S X="C" X ^DD(90001.6,.
    04,1,1,1.4)
    1.4)= S DIH=$G(^BMCREF(DIV(0),13)),DIV=X S $P(^(13),U,4)=DIV,DIH=90001,DIG=1304 D ^DICR
    2)= Q
    69.2)= S Y(1)=$C(59)_$P($G(^DD(90001.6,.04,0)),U,3),Y(3)=$S($D(^BMCREF(D0,13)):^(13),1:"") S X=$P($P(Y(1),$C(59)_Y(0)_":",2),$C(59))="CCDA PRINTED",Y(2)=$G(X) S X=$P(Y(3),U,5)
    CREATE CONDITION)= (DOCUMENT TYPE="CCDA PRINTED")&(APPROVAL DATE>0)
    CREATE VALUE)= S X="C"
    DELETE VALUE)= NO EFFECT
    DIC)=
    FIELD)= TOC STAT
    If Approval date is set and Document Type is CCDA Printed, the TOC Status will change to completed.
.05 DOCUMENT ID 0;5 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>36!($L(X)<1) X
  • LAST EDITED:  JUN 24, 2013
  • HELP-PROMPT:  Answer must be 1-36 characters in length.
.06 DATE-TIME TX SENT 0;6 DATE

  • INPUT TRANSFORM:  S %DT="ETXR" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  JUL 11, 2013
  • HELP-PROMPT:  Enter the date/time the TOC was sent through direct message.
  • CROSS-REFERENCE:  ^^TRIGGER^90001^1304
    1)= K DIV S DIV=X,D0=DA(1),DIV(0)=D0,D1=DA S Y(0)=X S Y(1)=$S($D(^BMCREF(D0,13)):^(13),1:"") S X=$P(Y(1),U,5)>0 I X S X=DIV S Y(1)=$S($D(^BMCREF(D0,13)):^(13),1:"") S X=$P(Y(1),U,4),X=X S DIU=X K Y S X=DIV S X="C" X ^DD(90
    001.6,.06,1,1,1.4)
    1.4)= S DIH=$G(^BMCREF(DIV(0),13)),DIV=X S $P(^(13),U,4)=DIV,DIH=90001,DIG=1304 D ^DICR
    2)= Q
    CREATE CONDITION)= APPROVAL DATE>0
    CREATE VALUE)= S X="C"
    DELETE VALUE)= NO EFFECT
    DIC)=
    FIELD)= TOC ST
    TOC Status is changed to completed when APPROVAL DATE is populated and TOC is transmitted.
Info |  Details |  All