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 |  Pointed To By FileMan Files |  Fields |  Found Entries |  External References |  Global Variables Directly Accessed |  Local Variables |  All
Print Page as PDF
Global: ^IBE(353

Package: Integrated Billing

Global: ^IBE(353


Information

FileMan FileNo FileMan Filename Package
353 BILL FORM TYPE Integrated Billing

Description

Directly Accessed By Routines, Total: 13

Package Total Routines
Integrated Billing 13 ^DGCR(399    IB20PT5    IB20PT51    IBCB    IBCF    IBCF1    IBCF2    IBCFP
IBCNQ    IBCSC3    IBCU3    IBEPAR    ^IBE(353    

Accessed By FileMan Db Calls, Total: 2

Package Total Routines
Integrated Billing 2 IB20PT5    IB20PT51    

Pointed To By FileMan Files, Total: 3

Package Total FileMan Files
Integrated Billing 3 BILL/CLAIMS(#399)[.19]    INSURANCE COMPANY(#36)[.14]    IB SITE PARAMETERS(#350.9)[1.26]    

Fields, Total: 5

Field # Name Loc Type Details
.001 NUMBER NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>9999999)!(X<1)!(X?.E1"."1N.N) X
  • LAST EDITED:  APR 27, 1992
  • HELP-PROMPT:  Type a Number between 1 and 9999999, 0 Decimal Digits
  • DESCRIPTION:  
    Enter a number that is within the number range for your facility, that is xxx000 to xxx999 where xxx is your station number.
.01 NAME 0;1 FREE TEXT
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  K:$L(X)>20!($L(X)<3)!'(X'?1P.E) X
  • LAST EDITED:  APR 10, 1992
  • HELP-PROMPT:  Answer must be 3-20 characters in length.
  • DESCRIPTION:  
    This field names a type of form that is available for billing purposes.
  • DELETE TEST:  1,0)= I DA<999 W !,"Deleting Standard entries not allowed"
  • CROSS-REFERENCE:  353^B
    1)= S ^IBE(353,"B",$E(X,1,30),DA)=""
    2)= K ^IBE(353,"B",$E(X,1,30),DA)
.02 DEFAULT PRINTER (BILLING) 0;2 FREE TEXT

  • INPUT TRANSFORM:  S IBL=X,X=$P(X,";"),DIC=3.5,DIC(0)="EQ" D ^DIC K:Y'>0!(X=" ") X S:$D(X) X=X_$S(IBL[";":";"_$P(IBL,";",2,99),1:"") K IBL S DIC=DIE
  • LAST EDITED:  APR 27, 1992
  • HELP-PROMPT:  Enter the device that is the default billing printer for this form.
  • DESCRIPTION:  
    This is the default printer that will appear at selected prompts for this form type.
  • EXECUTABLE HELP:  S DIC=3.5,DIC(0)="E",X="?" D ^DIC S DIC=DIE
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
.03 FOLLOW-UP PRINTER (A/R) 0;3 FREE TEXT

  • INPUT TRANSFORM:  S IBL=X,X=$P(X,";"),DIC=3.5,DIC(0)="EQ" D ^DIC K:Y'>0!(X=" ") X S:$D(X) X=X_$S(IBL[";":";"_$P(IBL,";",2,99),1:"") K IBL S DIC=DIE
  • LAST EDITED:  APR 27, 1992
  • HELP-PROMPT:  Enter the device that is the default printer for follow-up bills for this form type.
  • DESCRIPTION:  
    For forms other than the UB-82/UB-92, this is the default printer that has this form mounted for follow-up letter/forms for Accounts Receivable.
  • EXECUTABLE HELP:  S DIC=3.5,DIC(0)="E",X="?" D ^DIC S DIC=DIE
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
1.01 ROUTINE 1;E1,245 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>25!($L(X)<1)!(X'?.1ANP.7AN.1"^"1ANP.7AN) X
  • LAST EDITED:  APR 27, 1992
  • HELP-PROMPT:  Answer must be 1-25 characters in length. It must be in the form of [TAG^]ROUTINE.
  • DESCRIPTION:  
    This is the routine that will get executed for follow-up letters and bills printed in a batch if this is not a UB-82 entry.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER

Found Entries, Total: 4

NAME: BILL ADDENDUM    NAME: HCFA 1500    NAME: UB-82    NAME: UB-92    

External References

Name Field # of Occurrence
^DIC .02+1, .02(HELP ), .03+1, .03(HELP )

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^IBE(353 - [#353] .01(XREF 1S), .01(XREF 1K)

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> DA .01DEL1+1, .01(XREF 1S), .01(XREF 1K)
>> DIC .02+1*, .02(HELP ), .03+1*, .03(HELP )
>> DIC(0 .02+1*, .02(HELP ), .03+1*, .03(HELP )
>> DIE .02+1, .02(HELP ), .03+1, .03(HELP )
IBL .02+1*!, .03+1*!
X .001+1!, .01+1!, .01(XREF 1S), .01(XREF 1K), .02+1*!, .02(HELP ), .03+1*!, .03(HELP ), 1.01+1!
>> Y .02+1, .03+1
Info |  Desc |  Directly Accessed By Routines |  Accessed By FileMan Db Calls |  Pointed To By FileMan Files |  Fields |  Found Entries |  External References |  Global Variables Directly Accessed |  Local Variables |  All