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

Package: IHS Patient

CHART AUDIT NOTES(#9000095)-->9000095.12

Sub-Field: 9000095.12


Information

Parent File Name Number Package
CHART AUDIT NOTES(#9000095) PROVIDER 9000095.12 IHS Patient

Details

Field # Name Loc Type Details
.01 PROVIDER 0;1 POINTER TO NEW PERSON FILE (#200) NEW PERSON(#200)

  • INPUT TRANSFORM:  S DIC("S")="I $D(^XUSEC(""PROVIDER"",+Y))&($P($G(^VA(200,+Y,""PS"")),U,4)="""")" D ^DIC K DIC S DIC=$G(DIE),X=+Y K:Y<0 X D ^DIC K DIC S DIC=$G(DIE),X=+Y K:Y<0 X
  • LAST EDITED:  NOV 13, 2014
  • SCREEN:  S DIC("S")="I $D(^XUSEC(""PROVIDER"",+Y))&($P($G(^VA(200,+Y,""PS"")),U,4)="""")" D ^DIC K DIC S DIC=$G(DIE),X=+Y K:Y<0 X
  • EXPLANATION:  Must be an active provider.
  • CROSS-REFERENCE:  9000095.12^B
    1)= S ^AUPNCANT(DA(1),12,"B",$E(X,1,30),DA)=""
    2)= K ^AUPNCANT(DA(1),12,"B",$E(X,1,30),DA)
.02 CHART DEFICIENCY 0;2 POINTER TO OUTPATIENT CHART DEFICIENCY REASONS FILE (#99999.05)
************************REQUIRED FIELD************************
OUTPATIENT CHART DEFICIENCY REASONS(#99999.05)

  • LAST EDITED:  NOV 13, 2014
.03 DATE RESOLVED 0;3 DATE

  • INPUT TRANSFORM:  S %DT="EX" D ^%DT S X=Y K:Y<1 X I X>DT W !,"Future dates not allowed." K X
  • LAST EDITED:  NOV 13, 2014
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
.04 DATE ADDED 0;4 DATE

  • INPUT TRANSFORM:  S %DT="EX" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  NOV 13, 2014
  • CROSS-REFERENCE:  9000095.12^AC
    1)= S ^AUPNCANT(DA(1),12,"AC",$E(X,1,30),DA)=""
    2)= K ^AUPNCANT(DA(1),12,"AC",$E(X,1,30),DA)
.0491 DATE DELIQUENT COMPUTED DATE

  • MUMPS CODE:  S X=$$DELQDT^APCDCAF6(D0,D1)
  • ALGORITHM:  S X=$$DELQDT^APCDCAF6(D0,D1)
.0492 COMPLETION TIME COMPUTED

  • MUMPS CODE:  S X=$$ICTIME^APCDCAF6(D0,D1) S X=$J(X,0,0)
  • ALGORITHM:  S X=$$ICTIME^APCDCAF6(D0,D1) (ALWAYS 0 DECIMAL DIGITS)
  • LAST EDITED:  NOV 13, 2014
.05 CREATED BY 0;5 POINTER TO NEW PERSON FILE (#200) NEW PERSON(#200)

  • LAST EDITED:  NOV 13, 2014
.06 LAST UPDATED 0;6 DATE

  • INPUT TRANSFORM:  S %DT="EX" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  NOV 13, 2014
.07 LAST UPDATED BY 0;7 POINTER TO NEW PERSON FILE (#200) NEW PERSON(#200)

  • LAST EDITED:  NOV 13, 2014
.08 DATE DELETED 0;8 DATE

  • INPUT TRANSFORM:  S %DT="EX" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  NOV 13, 2014
.09 DELETE REASON 0;9 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>50!($L(X)<3) X
  • LAST EDITED:  NOV 13, 2014
  • HELP-PROMPT:  Answer must be 3-50 characters in length.
.1 COMMENTS 0;10 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>80!($L(X)<3) X
  • LAST EDITED:  NOV 13, 2014
  • HELP-PROMPT:  Answer must be 3-80 characters in length.
.11 STATUS 0;11 SET
  • 'P' FOR Pending;
  • 'R' FOR Resolved;
  • 'D' FOR Deleted;

  • LAST EDITED:  DEC 17, 2014
  • CROSS-REFERENCE:  9000095^APEND^MUMPS
    1)= I X="P" S ^AUPNCANT("APEND",$P(^AUPNCANT(DA(1),12,DA,0),U,1),DA(1),DA)=""
    2)= K ^AUPNCANT("APEND",$P(^AUPNCANT(DA(1),12,DA,0),U,1),DA(1),DA)
    Xrefs all pending deficiencies by provider
Info |  Details |  All