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

Package: Registration

PATIENT(#2)-->2.312-->2.342

Sub-Field: 2.342


Information

Parent File Name Number Package
2.312 COMMENT - SUBSCRIBER POLICY 2.342 Registration

Details

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

  • INPUT TRANSFORM:  S %DT="ETXR" D ^%DT S X=Y K:X<1 X
  • LAST EDITED:  JUN 29, 2015
  • HELP-PROMPT:  (No range limit on date)
  • DESCRIPTION:  
    The date/time that the user entered the subscriber's policy comment.
  • CROSS-REFERENCE:  2.342^B
    1)= S ^DPT(DA(2),.312,DA(1),13,"B",$E(X,1,30),DA)=""
    2)= K ^DPT(DA(2),.312,DA(1),13,"B",$E(X,1,30),DA)
  • RECORD INDEXES:  BB (#1337)
.02 LAST EDITED BY 0;2 POINTER TO NEW PERSON FILE (#200) NEW PERSON(#200)

  • LAST EDITED:  JUN 18, 2015
  • HELP-PROMPT:  Enter the usr who entered the subscriber's policy comment.
  • DESCRIPTION:  
    This is the local user ID of the person that entered the Subscriber's Policy comment.
  • CROSS-REFERENCE:  2.342^C
    1)= S ^DPT(DA(2),.312,DA(1),13,"C",$E(X,1,30),DA)=""
    2)= K ^DPT(DA(2),.312,DA(1),13,"C",$E(X,1,30),DA)
  • RECORD INDEXES:  BB (#1337)
.03 COMMENT 1;1 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>245!($L(X)<3) X
  • LAST EDITED:  DEC 29, 2015
  • HELP-PROMPT:  Answer must be 3-245 characters in length.
  • DESCRIPTION:  
    This field contains a specific comment about this Subscriber's Policy. The comment must be between 3 and 245 characters in length.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
  • CROSS-REFERENCE:  ^^TRIGGER^2.312^1.08
    1)= X ^DD(2.342,.03,1,1,1.3) I X S X=DIV S Y(1)=$S($D(^DPT(D0,.312,D1,1)):^(1),1:"") S X=$P(Y(1),U,8),X=X S DIU=X K Y S X=DIV S X=$E($P(^DPT(DA(2),.312,DA(1),13,DA,1),U),1,80) X ^DD(2.342,.03,1,1,1.4)
    1.3)= K DIV S DIV=X,D0=DA(2),DIV(0)=D0,D1=DA(1),DIV(1)=D1,D2=DA S Y(0)=X S X=($P($G(^DPT(DA(2),.312,DA(1),1)),U,8)'=$E($P(^DPT(DA(2),.312,DA(1),13,DA,1),U),1,80))
    1.4)= S DIH=$G(^DPT(DIV(0),.312,DIV(1),1)),DIV=X S $P(^(1),U,8)=DIV,DIH=2.312,DIG=1.08 D ^DICR
    2)= K DIV S DIV=X,D0=DA(2),DIV(0)=D0,D1=DA(1),DIV(1)=D1,D2=DA S Y(0)=X S X=($P(^DPT(DA(2),.312,DA(1),13,DA,1),U)="") I X S X=DIV S Y(1)=$S($D(^DPT(D0,.312,D1,1)):^(1),1:"") S X=$P(Y(1),U,8),X=X S DIU=X K Y S X="" X ^DD(2.3
    42,.03,1,1,2.4)
    2.4)= S DIH=$G(^DPT(DIV(0),.312,DIV(1),1)),DIV=X S $P(^(1),U,8)=DIV,DIH=2.312,DIG=1.08 D ^DICR
    CREATE CONDITION)= S X=($P($G(^DPT(DA(2),.312,DA(1),1)),U,8)'=$E($P(^DPT(DA(2),.312,DA(1),13,DA,1),U),1,80))
    CREATE VALUE)= S X=$E($P(^DPT(DA(2),.312,DA(1),13,DA,1),U),1,80)
    DELETE CONDITION)= S X=($P(^DPT(DA(2),.312,DA(1),13,DA,1),U)="")
    DELETE VALUE)= @
    DIC)=
    FIELD)= *COMMENT - PATIENT POLICY
    Triggers field 2.312,1.08 if its value differs from first 80 chars of the value in 2.342,.03.  Deletes field 2.312,1.08 if field 2.342,.03 is deleted.
.04 PERSON CONTACTED 0;4 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>30!($L(X)<3) X
  • LAST EDITED:  NOV 16, 2015
  • HELP-PROMPT:  Enter the name of the person contacted between 3-30 characters in length..
  • DESCRIPTION:  
    This is the name of the person you contacted.  Enter a free text name.  It is recommended that you use the format of Firstname MI Lastname, just as they would say it to you.
.05 CONTACT PHONE # 0;5 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>20!($L(X)<7) X
  • LAST EDITED:  NOV 16, 2015
  • HELP-PROMPT:  Enter the phone number of the person who was contacted between 7-20 characters in length..
  • DESCRIPTION:  This is the phone number of the person you contacted. If you contacted an insurance company and this number is not in the insurance company file, then you may want to enter it into that file as well. The number entered
    here will only be seen when looking at this contact.
.06 CALL REFERENCE NUMBER 0;6 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>35!($L(X)<3) X
  • LAST EDITED:  NOV 16, 2015
  • HELP-PROMPT:  Enter the Call reference number which was provided by the Person Contacted between 3-35 characters in length.
  • DESCRIPTION:  If the company you called gave you a reference number for the call then enter that reference number here. Many companies will issue reference numbers so that they can track their calls and allow reference back to them by
    others.
.07 METHOD OF CONTACT 0;7 SET
  • '1' FOR PHONE;
  • '2' FOR MAIL;
  • '3' FOR OVERNIGHT MAIL;
  • '4' FOR PERSONAL;
  • '5' FOR VOICE MAIL;
  • '6' FOR OTHER;

  • LAST EDITED:  NOV 17, 2015
  • HELP-PROMPT:  Select the Method of Contact: '1' for Phone, '2' for Mail, '3' for Overnight mail, '4' for Personal, '5' for Voice mail or '6' for Other.
  • DESCRIPTION:  
    This is the method that you used to contact the person contacted in this entry.  Most contacts will be by phone but many others will be my mail.
.08 AUTHORIZATION NUMBER 0;8 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>35!($L(X)<3) X
  • LAST EDITED:  NOV 16, 2015
  • HELP-PROMPT:  Enter the Authorization Number between 3-35 characters in length.
  • DESCRIPTION:  Enter the treatment authorization number that the insurance company gave you during this contact.
    The data in this field, if it exists will be connsidered the Treatment Authoirzation code for this care and will automatically be used by the biling module.
Info |  Details |  All