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

Package: IHS Changes To Scheduling

INCOMPLETE CHART(#9009016.1)-->9009016.11

Sub-Field: 9009016.11


Information

Parent File Name Number Package
INCOMPLETE CHART(#9009016.1) PROVIDER 9009016.11 IHS Changes To Scheduling

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
  • LAST EDITED:  MAY 13, 2005
  • HELP-PROMPT:  Enter provider with defined deficiency on this chart.
  • SCREEN:  S DIC("S")="I $D(^XUSEC(""PROVIDER"",+Y))&($P($G(^VA(200,+Y,""PS"")),U,4)="""")"
  • EXPLANATION:  Select active providers only.
  • CROSS-REFERENCE:  9009016.11^B
    1)= S ^BDGIC(DA(1),1,"B",$E(X,1,30),DA)=""
    2)= K ^BDGIC(DA(1),1,"B",$E(X,1,30),DA)
  • CROSS-REFERENCE:  9009016.1^APRV^MUMPS
    1)= NEW BDGXX S BDGXX=^BDGIC(DA(1),1,DA,0) Q:$P(BDGXX,U,3)]""  Q:$P(BDGXX,U,4)]""  S ^BDGIC("APRV",X,DA(1),DA)=""
    2)= K ^BDGIC("APRV",X,DA(1),DA)
    3)= USED TO LIST BY PROVIDER
    Used by Incomplete Charts by Provider report.  Xref is killed if Date Resolved or Date Deleted added.
.02 CHART DEFICIENCY 0;2 POINTER TO CHART DEFICIENCY FILE (#9009016.4) CHART DEFICIENCY(#9009016.4)

  • INPUT TRANSFORM:  S DIC("S")="I $P($G(^BDGCD(+Y,0)),U,4)'=0" D ^DIC K DIC S DIC=$G(DIE),X=+Y K:Y<0 X
  • LAST EDITED:  MAY 13, 2005
  • HELP-PROMPT:  Enter deficiency associated with this provider.
  • SCREEN:  S DIC("S")="I $P($G(^BDGCD(+Y,0)),U,4)'=0"
  • EXPLANATION:  You may choose active deficiencies only.
.03 DATE RESOLVED 0;3 DATE

  • INPUT TRANSFORM:  S %DT="EX" D ^%DT S X=Y K:X<1 X
  • LAST EDITED:  APR 05, 2002
  • HELP-PROMPT:  Enter date this deficiency was resolved.
  • CROSS-REFERENCE:  9009016.1^APRV1^MUMPS
    1)= K ^BDGIC("APRV",+$P(^BDGIC(DA(1),1,DA,0),U),DA(1),DA)
    2)= S:$P(^BDGIC(DA(1),1,DA,0),U,4)="" ^BDGIC("APRV",+$P(^BDGIC(DA(1),1,DA,0),U),DA(1),DA)=""
    3)= UPDATES PROVIDER XREF
    Xref is to be set ONLY when Date Resolved is NOT set.
.0391 DATE DELINQUENT COMPUTED DATE

  • MUMPS CODE:  S X=$$DELQDT^BDGICC(D0,D1)
  • ALGORITHM:  S X=$$DELQDT^BDGICC(D0,D1)
  • LAST EDITED:  APR 06, 2006
.0392 COMPLETION TIME COMPUTED

  • MUMPS CODE:  S X=$$ICTIME^BDGICC(D0,D1)
  • ALGORITHM:  S X=$$ICTIME^BDGICC(D0,D1)
  • LAST EDITED:  OCT 11, 2001
.0393 RESOLUTION STATUS COMPUTED

  • MUMPS CODE:  S X=$$ICSTAT^BDGICC(D0,D1)
  • ALGORITHM:  S X=$$ICSTAT^BDGICC(D0,D1)
  • LAST EDITED:  SEP 19, 2001
.04 DATE DELETED 0;4 DATE

  • INPUT TRANSFORM:  S %DT="EX" D ^%DT S X=Y K:X<1 X
  • LAST EDITED:  APR 05, 2002
  • HELP-PROMPT:  Enter date deficiency was deleted.
  • CROSS-REFERENCE:  9009016.1^APRV2^MUMPS
    1)= K ^BDGIC("APRV",+$P(^BDGIC(DA(1),1,DA,0),U),DA(1),DA)
    2)= S:$P(^BDGIC(DA(1),1,DA,0),U,3)="" ^BDGIC("APRV",+$P(^BDGIC(DA(1),1,DA,0),U),DA(1),DA)=""
    3)= UPDATES PROVIDER XREF
    Xref to be set ONLY if Date Deleted NOT set.
.05 DELETE REASON 0;5 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>20!($L(X)<3) X
  • LAST EDITED:  MAY 17, 2000
  • HELP-PROMPT:  Enter reason deficiency was deleted, i.e. "entered by mistake".
.06 COMMENTS 0;6 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>50!($L(X)<3) X
  • LAST EDITED:  JUN 01, 2001
  • HELP-PROMPT:  Answer must be 3-50 characters in length
Info |  Details |  All