Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Desc |  Directly Accessed By Routines |  Accessed By FileMan Db Calls |  Pointer To FileMan Files |  Fields |  Found Entries |  All
Print Page as PDF
Global: ^BDGIC

Package: IHS Changes To Scheduling

Global: ^BDGIC


Information

FileMan FileNo FileMan Filename Package
9009016.1 INCOMPLETE CHART IHS Changes To Scheduling

Description

Directly Accessed By Routines, Total: 15

Package Total Routines
IHS Changes To ADT 12 ADGFXDS    BDGDSA    BDGICE2    BDGICE3    BDGICF1    BDGICF21    BDGICR1    BDGICR2
BDGICR5    BDGICS4    BDGICS5    BDGPOST4    
IHS Changes To Scheduling 2 BSDCF    BSDROUT2    
IHS Mods To Text Integration Utilities 1 BTIUICL    

Accessed By FileMan Db Calls, Total: 23

Package Total Routines
IHS Changes To ADT 19 ADGFXDS    BDGDSA    BDGICC    BDGICE    BDGICE2    BDGICEVT    BDGICF1    BDGICF2
BDGICF21    BDGICR    BDGICR1    BDGICR2    BDGICR41    BDGICR5    BDGICS4    BDGICS5
BDGPCCEL    BDGPI0    BDGPOST4    
IHS Mods To Text Integration Utilities 3 BTIUDOC    BTIUDSC    BTIUICL    
IHS Changes To Scheduling 1 BSDCF    

Pointer To FileMan Files, Total: 5

Package Total FileMan Files
IHS Patient 2 PATIENT(#9000001)[.01]    VISIT(#9000010)[.03]    
IHS Changes To Scheduling 1 CHART DEFICIENCY(#9009016.4)[#9009016.11(.02)]    
Kernel 1 NEW PERSON(#200)[.22, .23, #9009016.11(.01)]
Registration 1 FACILITY TREATING SPECIALTY(#45.7)[.04]    

Fields, Total: 33

Field # Name Loc Type Details
.01 PATIENT 0;1 POINTER TO PATIENT FILE (#9000001)
************************REQUIRED FIELD************************
PATIENT(#9000001)

  • LAST EDITED:  OCT 21, 2001
  • HELP-PROMPT:  Enter patient's name or chart #.
  • CROSS-REFERENCE:  9009016.1^B
    1)= S ^BDGIC("B",$E(X,1,30),DA)=""
    2)= K ^BDGIC("B",$E(X,1,30),DA)
  • CROSS-REFERENCE:  9009016.1^ASRG2^MUMPS
    1)= S:$P(^BDGIC(DA,0),U,5)]"" ^BDGIC("ASRG",$P(^BDGIC(DA,0),U,5),X,DA)=""
    2)= K:$P(^BDGIC(DA,0),U,5)]"" ^BDGIC("ASRG",$P(^BDGIC(DA,0),U,5),X,DA)
    3)= FINDS ENTRY BY PAT & SURG DATE
.011 HRCN COMPUTED

  • MUMPS CODE:  S X=$$HRCN^BDGF2(+$G(^BDGIC(D0,0)),+$G(DUZ(2)))
  • ALGORITHM:  S X=$$HRCN^BDGF2(+$G(^BDGIC(D0,0)),+$G(DUZ(2)))
  • LAST EDITED:  JUN 01, 2001
.02 DISCHARGE DATE 0;2 DATE

  • INPUT TRANSFORM:  S %DT="ETXR" D ^%DT S X=Y K:X<1 X
  • LAST EDITED:  AUG 01, 2001
  • HELP-PROMPT:  Enter date and time patient was discharged.
  • CROSS-REFERENCE:  9009016.1^AD
    1)= S ^BDGIC("AD",$E(X,1,30),DA)=""
    2)= K ^BDGIC("AD",$E(X,1,30),DA)
    3)= USED TO SORT BY DISCHARGE DATE
.0211 BEGIN DATE COMPUTED DATE

  • MUMPS CODE:  X ^DD(9009016.1,.0211,9.3) S X=$S(Y(9009016.1,.0211,2):Y(9009016.1,.0211,3),Y(9009016.1,.0211,4):X)
    9.2 = S Y(9009016.1,.0211,1)=$S($D(^BDGIC(D0,0)):^(0),1:"") S X=$P(Y(9009016.1,.0211,1),U,2)]"",Y(9009016.1,.0211,2)=X S X=$P(Y(9009016.1,.0211,1),U,2)
    9.3 = X ^DD(9009016.1,.0211,9.2) S Y(9009016.1,.0211,3)=X S X=1,Y(9009016.1,.0211,4)=X S X=$P(Y(9009016.1,.0211,1),U,5)
  • ALGORITHM:  $S(DISCHARGE DATE]"":DISCHARGE DATE,1:SURGERY DATE)
  • LAST EDITED:  JAN 11, 2002
.03 VISIT 0;3 POINTER TO VISIT FILE (#9000010) VISIT(#9000010)

  • LAST EDITED:  AUG 01, 2001
  • HELP-PROMPT:  Enter date/time of PCC visit associated with this encounter.
  • CROSS-REFERENCE:  9009016.1^AV
    1)= S ^BDGIC("AV",$E(X,1,30),DA)=""
    2)= K ^BDGIC("AV",$E(X,1,30),DA)
    3)= USED TO CHECK IF VISIT ALREADY IN FILE
    This xref was created to check if the admission (based on visit) was already in the file when creating a new entry at discharge time.
  • CROSS-REFERENCE:  9009016.1^AVDT^MUMPS
    1)= S ^BDGIC("AVDT",+$G(^AUPNVSIT(X,0)),DA)=""
    2)= K ^BDGIC("AVDT",+$G(^AUPNVSIT(X,0)),DA)
    3)= SORT BY VISIT DATE
    Used to sort by visit date, not just visit ien.
.0391 INSURANCE COVERAGE COMPUTED

  • MUMPS CODE:  S X=$$INSUR^BDGICC(D0)
  • ALGORITHM:  S X=$$INSUR^BDGICC(D0)
  • LAST EDITED:  SEP 05, 2001
.0392 TYPE OF VISIT COMPUTED

  • MUMPS CODE:  X ^DD(9009016.1,.0392,9.3) S X=$P($P(Y(9009016.1,.0392,102),$C(59)_$P(Y(9009016.1,.0392,101),U,7)_":",2),$C(59),1) S D0=Y(9009016.1,.0392,80)
    9.2 = S Y(9009016.1,.0392,80)=$S($D(D0):D0,1:""),Y(9009016.1,.0392,1)=$S($D(^BDGIC(D0,0)):^(0),1:""),D0=$P(Y(9009016.1,.0392,1),U,3) S:'$D(^AUPNVSIT(+D0,0)) D0=-1
    9.3 = X ^DD(9009016.1,.0392,9.2) S Y(9009016.1,.0392,102)=$C(59)_$S($D(^DD(9000010,.07,0)):$P(^(0),U,3),1:""),Y(9009016.1,.0392,101)=$S($D(^AUPNVSIT(D0,0)):^(0),1:"")
  • ALGORITHM:  VISIT:SERVICE CATEGORY
  • LAST EDITED:  MAY 17, 2000
.0393 LINK TO ORIGINAL EVENT COMPUTED

  • MUMPS CODE:  S X=$$OIEN^BDGICC(D0)
  • ALGORITHM:  S X=$$OIEN^BDGICC(D0)
  • LAST EDITED:  SEP 19, 2001
.0394 DISCHARGE WARD COMPUTED

  • MUMPS CODE:  S X=$$DSWRD^BDGICC(D0)
  • ALGORITHM:  S X=$$DSWRD^BDGICC(D0)
  • LAST EDITED:  NOV 23, 2001
.04 SERVICE 0;4 POINTER TO FACILITY TREATING SPECIALTY FILE (#45.7) FACILITY TREATING SPECIALTY(#45.7)

  • LAST EDITED:  SEP 14, 2001
  • HELP-PROMPT:  Enter service associated with this encounter.
.05 SURGERY DATE 0;5 DATE

  • INPUT TRANSFORM:  S %DT="EX" D ^%DT S X=Y K:X<1 X
  • LAST EDITED:  OCT 21, 2001
  • HELP-PROMPT:  Enter date of day surgery.
  • CROSS-REFERENCE:  9009016.1^AS
    1)= S ^BDGIC("AS",$E(X,1,30),DA)=""
    2)= K ^BDGIC("AS",$E(X,1,30),DA)
    3)= SORT BY SURGERY DATE
  • CROSS-REFERENCE:  9009016.1^ASRG1^MUMPS
    1)= S ^BDGIC("ASRG",X,$P(^BDGIC(DA,0),U),DA)=""
    2)= K ^BDGIC("ASRG",X,$P(^BDGIC(DA,0),U),DA)
    3)= FIND ENTRY BY PAT & SURG DATE
.11 DATE CHART RECEIVED 0;11 DATE

  • INPUT TRANSFORM:  S %DT="EX" D ^%DT S X=Y K:X<1 X
  • LAST EDITED:  SEP 15, 2005
  • HELP-PROMPT:  Enter date incomplete chart section received paper chart.
.1191 CHART PICKUP TIME COMPUTED

  • MUMPS CODE:  X "N I,Y "_$P(^DD(9009016.1,.0211,0),U,5,99) S Y(9009016.1,.1191,2)=X S Y(9009016.1,.1191,1)=$S($D(^BDGIC(D0,0)):^(0),1:"") S X=$P(Y(9009016.1,.1191,1),U,11),X1=X,X2=Y(9009016.1,.1191,2),X="" D:X2 ^%DTC:X1
  • ALGORITHM:  DATE CHART RECEIVED-BEGIN DATE
  • LAST EDITED:  JAN 11, 2002
  • TECHNICAL DESCR:  
    DATE CHART RECEIVED - DISCHARGE DATE
.12 READY TO CODE DATE 0;12 DATE

  • INPUT TRANSFORM:  S %DT="EX" D ^%DT S X=Y K:X<1 X
  • LAST EDITED:  SEP 15, 2005
  • HELP-PROMPT:  Enter date chart paperwork was complete so coding could begin.
.1291 PREPARE TO CODE DATE COMPUTED

  • MUMPS CODE:  X "N I,Y "_$P(^DD(9009016.1,.0211,0),U,5,99) S Y(9009016.1,.1291,2)=X S Y(9009016.1,.1291,1)=$S($D(^BDGIC(D0,0)):^(0),1:"") S X=$P(Y(9009016.1,.1291,1),U,12),X1=X,X2=Y(9009016.1,.1291,2),X="" D:X2 ^%DTC:X1
  • ALGORITHM:  READY TO CODE DATE-BEGIN DATE
  • LAST EDITED:  JAN 11, 2002
.13 DATE CHART CODED 0;13 DATE

  • INPUT TRANSFORM:  S %DT="EX" D ^%DT S X=Y K:X<1 X
  • LAST EDITED:  SEP 15, 2005
  • HELP-PROMPT:  Enter date visit was coded in PCC.
  • CROSS-REFERENCE:  9009016.1^AC
    1)= S ^BDGIC("AC",$E(X,1,30),DA)=""
    2)= K ^BDGIC("AC",$E(X,1,30),DA)
    3)= USED BY DAILY/WEEKLY REPORT
.1391 CODING TIME COMPUTED

  • MUMPS CODE:  S Y(9009016.1,.1391,1)=$S($D(^BDGIC(D0,0)):^(0),1:"") S X=$P(Y(9009016.1,.1391,1),U,13),X1=X,X2=$P(Y(9009016.1,.1391,1),U,12),X="" D:X2 ^%DTC:X1
  • ALGORITHM:  DATE CHART CODED-READY TO CODE DATE
  • LAST EDITED:  JAN 11, 2002
  • TECHNICAL DESCR:  
    DATE CHART CODED-READY TO CODE DATE
.14 DATE CHART COMPLETED 0;14 DATE

  • INPUT TRANSFORM:  S %DT="EX" D ^%DT S X=Y K:X<1 X
  • LAST EDITED:  SEP 15, 2005
  • HELP-PROMPT:  Enter date chart was no longer incomplete.
  • CROSS-REFERENCE:  9009016.1^AE
    1)= S ^BDGIC("AE",$E(X,1,30),DA)=""
    2)= K ^BDGIC("AE",$E(X,1,30),DA)
    3)= USED BY DAILY/WEEKLY REPORT
.1491 CHART PROCESSING TIME COMPUTED

  • MUMPS CODE:  X "N I,Y "_$P(^DD(9009016.1,.0211,0),U,5,99) S Y(9009016.1,.1491,2)=X S Y(9009016.1,.1491,1)=$S($D(^BDGIC(D0,0)):^(0),1:"") S X=$P(Y(9009016.1,.1491,1),U,14),X1=X,X2=Y(9009016.1,.1491,2),X="" D:X2 ^%DTC:X1
  • ALGORITHM:  DATE CHART COMPLETED-BEGIN DATE
  • LAST EDITED:  JAN 11, 2002
  • TECHNICAL DESCR:  
    DATE CHART COMPLETED-DISCHARGE DATE
.15 DATE BILL PREP COMPLETED 0;15 DATE

  • INPUT TRANSFORM:  S %DT="EX" D ^%DT S X=Y K:X<1 X
  • LAST EDITED:  SEP 15, 2005
  • HELP-PROMPT:  Enter date chart was ready for billing.
  • CROSS-REFERENCE:  9009016.1^AF
    1)= S ^BDGIC("AF",$E(X,1,30),DA)=""
    2)= K ^BDGIC("AF",$E(X,1,30),DA)
    3)= USED BY DAILY/WEEKLY REPORT
.1591 TIME IN BILL PREP COMPUTED

  • MUMPS CODE:  X "N I,Y "_$P(^DD(9009016.1,.0211,0),U,5,99) S Y(9009016.1,.1591,2)=X S Y(9009016.1,.1591,1)=$S($D(^BDGIC(D0,0)):^(0),1:"") S X=$P(Y(9009016.1,.1591,1),U,15),X1=X,X2=Y(9009016.1,.1591,2),X="" D:X2 ^%DTC:X1
  • ALGORITHM:  DATE BILL PREP COMPLETED-BEGIN DATE
  • LAST EDITED:  NOV 14, 2002
.16 DATE BILLED 0;16 DATE

  • INPUT TRANSFORM:  S %DT="EX" D ^%DT S X=Y K:X<1 X
  • LAST EDITED:  SEP 15, 2005
  • HELP-PROMPT:  Enter date visit was billed.
.1691 BILL PREP TO BILLED TIME COMPUTED

  • MUMPS CODE:  S Y(9009016.1,.1691,1)=$S($D(^BDGIC(D0,0)):^(0),1:"") S X=$P(Y(9009016.1,.1691,1),U,16),X1=X,X2=$P(Y(9009016.1,.1691,1),U,15),X="" D:X2 ^%DTC:X1
  • ALGORITHM:  DATE BILLED-DATE BILL PREP COMPLETED
  • LAST EDITED:  JAN 11, 2002
.1692 TOTAL TIME TO BILL COMPUTED

  • MUMPS CODE:  X "N I,Y "_$P(^DD(9009016.1,.0211,0),U,5,99) S Y(9009016.1,.1692,2)=X S Y(9009016.1,.1692,1)=$S($D(^BDGIC(D0,0)):^(0),1:"") S X=$P(Y(9009016.1,.1692,1),U,16),X1=X,X2=Y(9009016.1,.1692,2),X="" D:X2 ^%DTC:X1
  • ALGORITHM:  DATE BILLED-BEGIN DATE
  • LAST EDITED:  JAN 11, 2002
.17 DELETE DATE 0;17 DATE

  • INPUT TRANSFORM:  S %DT="EX" D ^%DT S X=Y K:X<1 X
  • LAST EDITED:  JUN 01, 2001
  • HELP-PROMPT:  Enter date entry was deleted. Only delete if entered as mistake.
.18 COMMENTS 0;18 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
.19 DATE CHART TAGGED 0;19 DATE

  • INPUT TRANSFORM:  S %DT="EX" D ^%DT S X=Y K:X<1 X
  • LAST EDITED:  SEP 15, 2005
  • HELP-PROMPT:  Enter date initial review was done & deficiencies tagged.
.1991 TIME TO TAG COMPUTED

  • MUMPS CODE:  X "N I,Y "_$P(^DD(9009016.1,.0211,0),U,5,99) S Y(9009016.1,.1991,2)=X S Y(9009016.1,.1991,1)=$S($D(^BDGIC(D0,0)):^(0),1:"") S X=$P(Y(9009016.1,.1991,1),U,19),X1=X,X2=Y(9009016.1,.1991,2),X="" D:X2 ^%DTC:X1
  • ALGORITHM:  DATE CHART TAGGED-BEGIN DATE
  • LAST EDITED:  JAN 11, 2002
.21 DATE INSURANCE IDENTIFIED 0;21 DATE

  • INPUT TRANSFORM:  S %DT="EX" D ^%DT S X=Y K:X<1 X
  • LAST EDITED:  SEP 15, 2005
  • HELP-PROMPT:  Enter date incomplete chart section received insurance info.
.2191 TIME TO IDENTIFY INSURANCE COMPUTED

  • MUMPS CODE:  X "N I,Y "_$P(^DD(9009016.1,.0211,0),U,5,99) S Y(9009016.1,.2191,2)=X S Y(9009016.1,.2191,1)=$S($D(^BDGIC(D0,0)):^(0),1:"") S X=$P(Y(9009016.1,.2191,1),U,21),X1=X,X2=Y(9009016.1,.2191,2),X="" D:X2 ^%DTC:X1
  • ALGORITHM:  DATE INSURANCE IDENTIFIED-BEGIN DATE
  • LAST EDITED:  JAN 11, 2002
.22 CHART CODED BY 0;22 POINTER TO NEW PERSON FILE (#200) NEW PERSON(#200)

  • LAST EDITED:  JUN 21, 2001
  • HELP-PROMPT:  Enter person who coded this record.
.23 BILL PREP DONE BY 0;23 POINTER TO NEW PERSON FILE (#200) NEW PERSON(#200)

  • LAST EDITED:  JUN 21, 2001
  • HELP-PROMPT:  Enter person who prepared record for billing.
1 PROVIDER 1;0 POINTER Multiple #9009016.11 9009016.11
Info |  Desc |  Directly Accessed By Routines |  Accessed By FileMan Db Calls |  Pointer To FileMan Files |  Fields |  Found Entries |  All