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 |  External References |  Global Variables Directly Accessed |  Naked Globals |  Local Variables  | All
Print Page as PDF
Global: ^IBE(352.4

Package: Integrated Billing

Global: ^IBE(352.4


Information

FileMan FileNo FileMan Filename Package
352.4 NON-BILLABLE CLINICS Integrated Billing

Description

Directly Accessed By Routines, Total: 6

Package Total Routines
Integrated Billing 5 ^IBE(352.4    ^IBE(399.6    IBEFUNC    IBEPTC3    IBYJPT    

Accessed By FileMan Db Calls, Total: 2

Package Total Routines
Integrated Billing 2 IBEPTC3    IBYJPT    

Pointer To FileMan Files, Total: 1

Package Total FileMan Files
Scheduling 1 HOSPITAL LOCATION(#44)[.01]    

Fields, Total: 6

Field # Name Loc Type Details
.01 CLINIC 0;1 POINTER TO HOSPITAL LOCATION FILE (#44)
************************REQUIRED FIELD************************
HOSPITAL LOCATION(#44)

  • INPUT TRANSFORM:  S DIC("S")="I $P(^(0),U,3)=""C""" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
  • LAST EDITED:  JAN 30, 1996
  • HELP-PROMPT:  Please enter a clinic.
  • DESCRIPTION:  
    This field is a pointer to the HOSPITAL LOCATION (#44) file and identifies the clinic which is being flagged as billable or non-billable.
  • SCREEN:  S DIC("S")="I $P(^(0),U,3)=""C"""
  • EXPLANATION:  This screen is used to assure that only clinics in file #44 are selected.
  • CROSS-REFERENCE:  352.4^B
    1)= S ^IBE(352.4,"B",$E(X,1,30),DA)=""
    2)= K ^IBE(352.4,"B",$E(X,1,30),DA)
  • CROSS-REFERENCE:  352.4^AIVDT^MUMPS
    1)= I $P($G(^IBE(352.4,DA,0)),"^",4)=1,$P(^(0),"^",2) S ^IBE(352.4,"AIVDT",X,-$P(^(0),"^",2),DA)=""
    2)= I $P($G(^IBE(352.4,DA,0)),"^",4)=1,$P(^(0),"^",2) K ^IBE(352.4,"AIVDT",X,-$P(^(0),"^",2),DA)
    This cross-reference on the CLINIC (#.01) field and the EFFECTIVE DATE (#.02) field is used to locate the appropriate record for a clinic on a specific effective date. For Means Test entries only.
  • CROSS-REFERENCE:  352.4^AIVDTT^MUMPS
    1)= I $P($G(^IBE(352.4,DA,0)),"^",4)>1,$P(^(0),"^",2) S ^IBE(352.4,"AIVDTT"_$P(^(0),"^",4),X,-$P(^(0),"^",2),DA)=""
    2)= I $P($G(^IBE(352.4,DA,0)),"^",4)>1,$P(^(0),"^",2) K ^IBE(352.4,"AIVDTT"_$P(^(0),"^",4),X,-$P(^(0),"^",2),DA)
    Cross-reference on CLINIC STOP CODE (.01) and EFFECTIVE DATE (.02) for quick reference to a clinics Third Party status on any given date.
.02 EFFECTIVE DATE 0;2 DATE
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  S %DT="EX" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  JAN 30, 1996
  • HELP-PROMPT:  Please enter the effective date.
  • DESCRIPTION:  
    This is the date on which billing for this clinic should be ignored or activated.
  • CROSS-REFERENCE:  352.4^AIVDT1^MUMPS
    1)= I $P($G(^IBE(352.4,DA,0)),"^",4)=1,+^(0) S ^IBE(352.4,"AIVDT",+^(0),-X,DA)=""
    2)= I $P($G(^IBE(352.4,DA,0)),"^",4)=1,+^(0) K ^IBE(352.4,"AIVDT",+^(0),-X,DA)
    This cross-reference on the CLINIC (#.01) field and the EFFECTIVE DATE (#.02) field is used to locate the appropriate record for a clinic on a specific effective date. For Means Test entries only.
  • CROSS-REFERENCE:  352.4^AIVDTT1^MUMPS
    1)= I $P($G(^IBE(352.4,DA,0)),"^",4)>1,+^(0) S ^IBE(352.4,"AIVDTT"_$P(^(0),"^",4),+^(0),-X,DA)=""
    2)= I $P($G(^IBE(352.4,DA,0)),"^",4)>1,+^(0) K ^IBE(352.4,"AIVDTT"_$P(^(0),"^",4),+^(0),-X,DA)
    Cross-reference on CLINIC STOP CODE (.01) and EFFECTIVE DATE (.02) for quick reference to a clinics Third Party status on any given date.
.03 IGNORE MEANS TEST BILLING? 0;3 SET
************************REQUIRED FIELD************************
  • '1' FOR YES;
  • '0' FOR NO;

  • LAST EDITED:  JUL 20, 1993
  • HELP-PROMPT:  Please enter 'YES' or 'NO.'
  • DESCRIPTION:  This field is used to determine whether Means Test billing should be ignored or activated, as of the EFFECTIVE DATE (field #.02).
    Please note that you only need an entry in this file for a clinic for which you would like Means Test billing to be IGNORED.
.04 TYPE 0;4 SET
************************REQUIRED FIELD************************
  • '1' FOR MEANS TEST;
  • '2' FOR THIRD PARTY;

  • LAST EDITED:  JAN 30, 1996
  • HELP-PROMPT:  Enter the type of billing this entry applies to.
  • DESCRIPTION:  
    This specifies the type of billing this bill/not bill Clinic flag applies to.
  • CROSS-REFERENCE:  352.4^AIVDT2^MUMPS
    1)= I X=1,+$G(^IBE(352.4,DA,0)),$P(^(0),"^",2) S ^IBE(352.4,"AIVDT",+^(0),-$P(^(0),"^",2),DA)=""
    2)= I X=1,+$G(^IBE(352.4,DA,0)),$P(^(0),"^",2) K ^IBE(352.4,"AIVDT",+^(0),-$P(^(0),"^",2),DA)
    Cross-reference on CLINIC STOP CODE (.01) and EFFECTIVE DATE (.02) for quick reference to a clinics Means Test status on any given date.
  • CROSS-REFERENCE:  352.4^AIVDTT2^MUMPS
    1)= I X>1,+$G(^IBE(352.4,DA,0)),$P(^(0),"^",2) S ^IBE(352.4,"AIVDTT"_X,+^(0),-$P(^(0),"^",2),DA)=""
    2)= I X>1,+$G(^IBE(352.4,DA,0)),$P(^(0),"^",2) K ^IBE(352.4,"AIVDTT"_X,+^(0),-$P(^(0),"^",2),DA)
    Cross-reference on CLINIC STOP CODE (.01) and EFFECTIVE DATE (.02) for quick reference to a clinics Third Party status on any given date.
.05 THIRD PARTY NON-BILLABLE 0;5 SET
  • '1' FOR YES;
  • '0' FOR NO;

  • LAST EDITED:  JAN 30, 1996
  • HELP-PROMPT:  Enter 'Yes' if this clinic is not billable to a third party.
  • DESCRIPTION:  
    This field is used to determine if the clinic should be billed to a Third Party payer.
  • CROSS-REFERENCE:  ^^TRIGGER^352.4^.06
    1)= X ^DD(352.4,.05,1,1,1.3) I X S X=DIV S Y(1)=$S($D(^IBE(352.4,D0,0)):^(0),1:"") S X=$P(Y(1),U,6),X=X S DIU=X K Y S X="" X ^DD(352.4,.05,1,1,1.4)
    1.3)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S Y(2)=$C(59)_$S($D(^DD(352.4,.06,0)):$P(^(0),U,3),1:""),Y(1)=$S($D(^IBE(352.4,D0,0)):^(0),1:"") S X=$P($P(Y(2),$C(59)_$P(Y(1),U,6)_":",2),$C(59),1)="NO"
    1.4)= S DIH=$S($D(^IBE(352.4,DIV(0),0)):^(0),1:""),DIV=X S $P(^(0),U,6)=DIV,DIH=352.4,DIG=.06 D ^DICR:$O(^DD(DIH,DIG,1,0))>0
    2)= X ^DD(352.4,.05,1,1,2.3) I X S X=DIV S Y(1)=$S($D(^IBE(352.4,D0,0)):^(0),1:"") S X=$P(Y(1),U,6),X=X S DIU=X K Y S X="" X ^DD(352.4,.05,1,1,2.4)
    2.3)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S Y(2)=$C(59)_$S($D(^DD(352.4,.06,0)):$P(^(0),U,3),1:""),Y(1)=$S($D(^IBE(352.4,D0,0)):^(0),1:"") S X=$P($P(Y(2),$C(59)_$P(Y(1),U,6)_":",2),$C(59),1)="NO"
    2.4)= S DIH=$S($D(^IBE(352.4,DIV(0),0)):^(0),1:""),DIV=X S $P(^(0),U,6)=DIV,DIH=352.4,DIG=.06 D ^DICR:$O(^DD(DIH,DIG,1,0))>0
    CREATE CONDITION)= THIRD PARTY AUTO BILL="NO"
    CREATE VALUE)= @
    DELETE CONDITION)= THIRD PARTY AUTO BILL="NO"
    DELETE VALUE)= @
    FIELD)= THIRD PARTY AUTO BILL
    Deletes the flag that stops auto billing for this clinic whenever the non-billable status of the clinic changes.
.06 THIRD PARTY AUTO BILL 0;6 SET
  • '1' FOR NO;
  • '0' FOR YES;

  • LAST EDITED:  JAN 30, 1996
  • HELP-PROMPT:  Should visits with this clinic be automatically billed?
  • DESCRIPTION:  
    Enter 'No' if the Third Party auto biller should NOT create bills for visits with this clinic. This should only be set for clinics that are billable.
  • NOTES:  TRIGGERED by the THIRD PARTY NON-BILLABLE field of the NON-BILLABLE CLINICS File

External References

Name Field # of Occurrence
^%DT .02+1
^DIC .01+1
^DICR .05(XREF 1n1.4), .05(XREF 1n2.4)

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DD( .05(XREF 1n1.4), .05(XREF 1n2.4)
^DD(352.4 .05(XREF 1S), .05(XREF 1n1.3), .05(XREF 1K), .05(XREF 1n2.3)
^IBE(352.4 - [#352.4] .01(XREF 1S), .01(XREF 1K), .01(XREF 2S), .01(XREF 2K), .01(XREF 3S), .01(XREF 3K), .02(XREF 1S), .02(XREF 1K), .02(XREF 2S), .02(XREF 2K)
.04(XREF 1S), .04(XREF 1K), .04(XREF 2S), .04(XREF 2K), .05(XREF 1S), .05(XREF 1n1.3), .05(XREF 1n1.4), .05(XREF 1K), .05(XREF 1n2.3), .05(XREF 1n2.4)

Naked Globals

Name Field # of Occurrence
^(0 .01(XREF 2S), .01(XREF 2K), .01(XREF 3S), .01(XREF 3K), .02(XREF 1S), .02(XREF 1K), .02(XREF 2S), .02(XREF 2K), .04(XREF 1S), .04(XREF 1K)
.04(XREF 2S), .04(XREF 2K), .05(XREF 1S), .05(XREF 1n1.3), .05(XREF 1n1.4), .05(XREF 1K), .05(XREF 1n2.3), .05(XREF 1n2.4)

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> %DT .02+1*
>> D0 .05(XREF 1S), .05(XREF 1n1.3), .05(XREF 1K), .05(XREF 1n2.3)
>> DA .01(XREF 1S), .01(XREF 1K), .01(XREF 2S), .01(XREF 2K), .01(XREF 3S), .01(XREF 3K), .02(XREF 1S), .02(XREF 1K), .02(XREF 2S), .02(XREF 2K)
.04(XREF 1S), .04(XREF 1K), .04(XREF 2S), .04(XREF 2K), .05(XREF 1n1.3), .05(XREF 1n2.3)
DIC .01+1!*
DIC("S" .01+1*, .01SCR+1*
>> DIE .01+1
>> DIG .05(XREF 1n1.4), .05(XREF 1n2.4)
>> DIH .05(XREF 1n1.4), .05(XREF 1n2.4)
>> DIU .05(XREF 1S), .05(XREF 1K)
DIV .05(XREF 1S), .05(XREF 1n1.3), .05(XREF 1n1.4), .05(XREF 1K), .05(XREF 1n2.3), .05(XREF 1n2.4)
DIV(0 .05(XREF 1n1.3), .05(XREF 1n1.4), .05(XREF 1n2.3), .05(XREF 1n2.4)
U .05(XREF 1S), .05(XREF 1n1.3), .05(XREF 1n1.4), .05(XREF 1K), .05(XREF 1n2.3), .05(XREF 1n2.4)
X .01+1*!, .01(XREF 1S), .01(XREF 1K), .01(XREF 2S), .01(XREF 2K), .01(XREF 3S), .01(XREF 3K), .02+1*!, .02(XREF 1S), .02(XREF 1K)
.02(XREF 2S), .02(XREF 2K), .04(XREF 1S), .04(XREF 1K), .04(XREF 2S), .04(XREF 2K), .05(XREF 1S), .05(XREF 1n1.3), .05(XREF 1n1.4), .05(XREF 1K)
.05(XREF 1n2.3), .05(XREF 1n2.4)
Y .01+1, .02+1, .05(XREF 1S), .05(XREF 1K)
Y(0 .05(XREF 1n1.3), .05(XREF 1n2.3)
Y(1 .05(XREF 1S), .05(XREF 1n1.3), .05(XREF 1K), .05(XREF 1n2.3)
Y(2 .05(XREF 1n1.3), .05(XREF 1n2.3)
Info |  Desc |  Directly Accessed By Routines |  Accessed By FileMan Db Calls |  Pointer To FileMan Files |  Fields |  External References |  Global Variables Directly Accessed |  Naked Globals |  Local Variables  | All