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 |  Pointer To FileMan Files |  Fields |  Found Entries |  External References |  Global Variables Directly Accessed |  Naked Globals |  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: 77

Package Total Routines
Integrated Billing 71 IB20P388    IB20P395    IB20P644    IB20PT5    IB20PT51    IBCAPP    IBCAPR1    IBCE ADD/EDIT LOCAL FORM
IBCE ADD/EDIT LOCAL FORM FIELD    IBCE EDIT FIELD CONTENT    IBCE LOCAL DATA ELEMENTS    IBCE837    IBCE837B    IBCECOB1    IBCECSA3    IBCEFG
IBCEFG0    IBCEFG1    IBCEFG3    IBCEFG4    IBCEFG41    IBCEFG5    IBCEFG6    IBCEFG60
IBCEFG7    IBCEFG70    IBCEFG8    IBCEMCA3    IBCEMSR6    IBCEXTRP    IBCF    IBCF1
IBCF2    IBCF3    IBCFP    IBCFP1    IBCN AB ACCEPT    IBCNQ    IBCSC11    IBCSC3
IBCSC6    IBCSC7    IBCSCH    IBCSCU    IBCU3    IBCU9    IBEPAR    IBJTBA
IBTUBO    IBXS3    IBXS6    IBXS7    IBXSC3    IBXSC61    IBXSC74    IBY155PR
IBY232PO    IBY320PR    IBY348PR    IBY349PR    IBY577PO    ^DGCR(399    IBY400PR    IBY592PR
IBY8POST    IBYOPOS1    IBYOPRE    IBYPPOST    ^IBA(364.6    ^IBA(364.7    ^IBE(353    

Accessed By FileMan Db Calls, Total: 13

Package Total Routines
Integrated Billing 13 IB20PT5    IB20PT51    IBCEFG4    IBCEFG41    IBCSCU    IBY155PR    IBY320PR    IBY348PR
IBY349PR    IBY400PR    IBY8POST    IBYOPOS1    IBYOPOST    

Pointed To By FileMan Files, Total: 3

Package Total FileMan Files
Integrated Billing 3 BILL/CLAIMS(#399)[.19]    IB FORM SKELETON DEFINITION(#364.6)[.01]    BILL FORM TYPE(#353)[2.052.082.09]

Pointer To FileMan Files, Total: 2

Package Total FileMan Files
Integrated Billing 1 BILL FORM TYPE(#353)[2.052.082.09]
VA FileMan 1 FILE(#1)[2.01]    

Fields, Total: 20

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"
    364.6,0)= I $O(^IBA(364.6,"B",DA,"")) W !,*7,"Cannot delete this form until its form fields are deleted",!
  • 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:  JAN 16, 2007
  • 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-04, 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
2.01 BASE FILE 2;1 POINTER TO FILE FILE (#1) FILE(#1)

  • LAST EDITED:  FEB 22, 1996
  • HELP-PROMPT:  Enter the Fileman file to be used as a 'base' to extract Fileman flds from.
  • DESCRIPTION:  
    This is the number of the Fileman file to be used as a 'base' to extract Fileman fields for this form.
2.02 FORMAT TYPE 2;2 SET
  • 'P' FOR PRINTED FORM;
  • 'T' FOR TRANSMITTED FORM;
  • 'S' FOR BILLING SCREEN;

  • LAST EDITED:  OCT 29, 1999
  • HELP-PROMPT:  Enter the type of form that is being defined.
  • DESCRIPTION:  
    This is the type of form that is being defined.
  • CROSS-REFERENCE:  ^^TRIGGER^353^2.05
    1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S X=Y(0),X=X S X=X="S" I X S X=DIV S Y(1)=$S($D(^IBE(353,D0,2)):^(2),1:"") S X=$P(Y(1),U,5),X=X S DIU=X K Y S X=DIV S X=DA X ^DD(353,2.02,1,1,1.4)
    1.4)= S DIH=$S($D(^IBE(353,DIV(0),2)):^(2),1:""),DIV=X S $P(^(2),U,5)=DIV,DIH=353,DIG=2.05 D ^DICR:$O(^DD(DIH,DIG,1,0))>0
    2)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S Y(1)=$S($D(^IBE(353,D0,2)):^(2),1:"") S X=$P(Y(1),U,2),X=X S X=X="S" I X S X=DIV S Y(1)=$S($D(^IBE(353,D0,2)):^(2),1:"") S X=$P(Y(1),U,5),X=X S DIU=X K Y S X="" X ^DD(353,2.02,1
    ,1,2.4)
    2.4)= S DIH=$S($D(^IBE(353,DIV(0),2)):^(2),1:""),DIV=X S $P(^(2),U,5)=DIV,DIH=353,DIG=2.05 D ^DICR:$O(^DD(DIH,DIG,1,0))>0
    3)= Please don't delete or screen 9 functionality won't function
    CREATE CONDITION)= INTERNAL(FORMAT TYPE)="S"
    CREATE VALUE)= S X=DA
    DELETE CONDITION)= INTERNAL(FORMAT TYPE)="S"
    DELETE VALUE)= @
    FIELD)= PARENT FORM
2.03 FORM LENGTH 2;3 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>999)!(X<0)!(X?.E1"."1N.N) X
  • LAST EDITED:  DEC 20, 1995
  • HELP-PROMPT:  Type a Number between 0 and 999, 0 Decimal Digits
  • DESCRIPTION:  
    If a printed form, this is the number of lines that the form has to be used to know when a form feed needs to be sent to the printer.
2.04 NATIONAL FORM 2;4 SET
  • '0' FOR NO;
  • '1' FOR YES;

  • LAST EDITED:  JAN 16, 1996
  • HELP-PROMPT:  Answer YES if this is a national form
  • DESCRIPTION:  
    This field is set to YES (1) for nationally distributed forms, is null or 0 for locally defined billing forms.
2.05 PARENT FORM 2;5 POINTER TO BILL FORM TYPE FILE (#353) BILL FORM TYPE(#353)

  • INPUT TRANSFORM:  S DIC("S")="I $S($P($G(^(2)),U,2)=""S"":1,1:$P($G(^(2)),U,4)),$P($G(^IBE(353,Y,2)),U,2)=$P($G(^IBE(353,DA,2)),U,2),+$G(^IBE(353,Y,2))=+$G(^IBE(353,DA,2))" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
  • LAST EDITED:  OCT 29, 1999
  • HELP-PROMPT:  Enter the name of the parent form that this local form will be associated with.
  • DESCRIPTION:  This is the name of the national parent form that the local form is associated with. Association in this way allows a site to override specific fields in the national form with local modifications without changing the
    national form definition.  The output generator uses all national form fields associated with the local form except for those fields overridden.
  • SCREEN:  S DIC("S")="I $S($P($G(^(2)),U,2)=""S"":1,1:$P($G(^(2)),U,4)),$P($G(^IBE(353,Y,2)),U,2)=$P($G(^IBE(353,DA,2)),U,2),+$G(^IBE(353,Y,2))=+$G(^IBE(353,DA,2))"
  • EXPLANATION:  Must point to a national file entry of the same format type and base file
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
    TRIGGERED by the FORMAT TYPE field of the BILL FORM TYPE File
2.06 SHORT DESCRIPTION 2;6 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>40!($L(X)<1) X
  • LAST EDITED:  FEB 20, 1996
  • HELP-PROMPT:  Answer must be 1-40 characters in length.
  • DESCRIPTION:  
    This field contains a brief explanantion of the purpose of the form.
2.07 FIELD DELIMITER 2;7 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>1!($L(X)<1) X
  • LAST EDITED:  MAR 06, 1996
  • HELP-PROMPT:  Answer must be 1 character in length. For an '^', leave this field blank.
  • DESCRIPTION:  This is the delimiter that will be placed between fields of a transmitted type form by the output generator. If this field is left blank, an '^' is assumed to be the delimiter. Fileman will not allow an '^' to be entered
    in this field.
2.08 PRINT FORM NAME 2;8 POINTER TO BILL FORM TYPE FILE (#353) BILL FORM TYPE(#353)

  • INPUT TRANSFORM:  S DIC("S")="I $S(DA=+Y:1,1:$P($G(^IBE(353,Y,2)),U,5)=DA)" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
  • LAST EDITED:  JUN 20, 1996
  • HELP-PROMPT:  Enter the name of the form to be used by the output formatter when this bill type is printed.
  • DESCRIPTION:  
    This is the pointer to the entry in this file (itself or another entry with this entry as its parent) that will be used to print bills of this form type.
  • SCREEN:  S DIC("S")="I $S(DA=+Y:1,1:$P($G(^IBE(353,Y,2)),U,5)=DA)"
  • EXPLANATION:  Only the same entry or an entry with this entry as its parent can be chosen.
2.09 LOCAL BILLING SCREEN 2;9 POINTER TO BILL FORM TYPE FILE (#353) BILL FORM TYPE(#353)

  • INPUT TRANSFORM:  S DIC("S")="I $P($G(^IBE(353,+Y,2)),U,2)=""S""" D ^DIC K DIC S DIC=$G(DIE),X=+Y K:Y<0 X
  • LAST EDITED:  JUN 06, 2011
  • HELP-PROMPT:  Enter the name of the screen to be used as the local billing screen.
  • DESCRIPTION:  
    This is the form that will be used to build the local billing screen for enter/edit a bill.
  • SCREEN:  S DIC("S")="I $P($G(^IBE(353,+Y,2)),U,2)=""S"""
  • EXPLANATION:  Must be a screen form.
50 ENTRY PRE-PROCESSOR PRE;E1,245 MUMPS

  • INPUT TRANSFORM:  K:$L(X)>245 X D:$D(X) ^DIM
  • LAST EDITED:  DEC 07, 1995
  • HELP-PROMPT:  This is Standard MUMPS code.
  • DESCRIPTION:  
    The code that is executed before extracting data for an individual form entry using the forms output generator.  Can be used to set up any variables necessary before processing a single entry.
  • TECHNICAL DESCR:  Used by the forms output generator before each entry is processed through the extract process. If the form has an associated PARENT FORM, and this field is null, the PARENT FORM's ENTRY POST-PROCESSOR field will be
    executed.
    WRITE AUTHORITY:  @
51 ENTRY POST-PROCESSOR POST;E1,245 MUMPS

  • INPUT TRANSFORM:  K:$L(X)>245 X D:$D(X) ^DIM
  • LAST EDITED:  DEC 07, 1995
  • HELP-PROMPT:  This is Standard MUMPS code.
  • DESCRIPTION:  The code that is executed after extracting data for an individual form entry using the forms output generator. Can be used to clean up variables or do some ancillary processing such as update print date or printed by
    fields.
  • TECHNICAL DESCR:  Used by the forms output generator after each entry is processed through the extract process. If the form has an associated PARENT FORM, and this field is null, the PARENT FORM's ENTRY POST-PROCESSOR field will be
    executed.
52 OUTPUT CODE OUT;E1,245 MUMPS

  • INPUT TRANSFORM:  K:$L(X)>245 X D:$D(X) ^DIM
  • LAST EDITED:  DEC 07, 1995
  • HELP-PROMPT:  This is Standard MUMPS code.
  • DESCRIPTION:  
    The code to xecute to actually print or transmit the form entry after all fields have been extracted to the sort global.
    WRITE AUTHORITY:  @
53 EXTRACT CODE EXT;E1,245 MUMPS

  • INPUT TRANSFORM:  K:$L(X)>245 X D:$D(X) ^DIM
  • LAST EDITED:  MAR 06, 1996
  • HELP-PROMPT:  This is Standard MUMPS code.
  • DESCRIPTION:  
    The code to xecute to actually extract data into the sort global for the form entry.
    WRITE AUTHORITY:  @
54 FORM PRE-PROCESSOR FPRE;E1,245 MUMPS

  • INPUT TRANSFORM:  K:$L(X)>245 X D:$D(X) ^DIM
  • LAST EDITED:  MAR 07, 1996
  • HELP-PROMPT:  This is Standard MUMPS code.
  • DESCRIPTION:  
    The code that is executed before starting to extract any entries (using the forms output generator) for this form.
  • TECHNICAL DESCR:  This code is executed when using the auto-generate feature of the forms output generator to set up variables or do preliminary processing before any entries selected have been extracted via the forms generator for a form.
    If the form has an associated PARENT FORM, and this field is null, the PARENT FORM's FORM PRE-PROCESSOR field will be executed.
    WRITE AUTHORITY:  @
55 FORM POST-PROCESSOR FPOST;E1,245 MUMPS

  • INPUT TRANSFORM:  K:$L(X)>245 X D:$D(X) ^DIM
  • LAST EDITED:  MAR 07, 1996
  • HELP-PROMPT:  This is Standard MUMPS code.
  • DESCRIPTION:  
    The code that is executed after all entries have been passed through the forms output generator extract for this form.  Can be used to clean up any variables used in processing.
  • TECHNICAL DESCR:  This code is executed when using the auto-generate feature of the forms output generator to clean up or do any additional processing after all entries selected have been extracted via the forms generator for a form. If
    the form has an associated PARENT FORM, and this field is null, the PARENT FORM's FORM POST-PROCESSOR field will be executed.

Found Entries, Total: 12

NAME: BILL ADDENDUM    NAME: CMS-1500    NAME: IB 837 TRANSMISSION    NAME: IB REPORTS    NAME: J430D    NAME: LEGACY HCFA-1500    NAME: LEGACY UB-92    NAME: LOCAL HCFA 1500 (AUTO-ADDED)    
NAME: LOCAL UB-92 (AUTO-ADDED)    NAME: MRA    NAME: UB-04    NAME: UB-82    

External References

Name Field # of Occurrence
^DIC .02+1, .02(HELP ), .03+1, .03(HELP ), 2.05+1, 2.08+1, 2.09+1
^DICR 2.02(XREF 1n1.4), 2.02(XREF 1n2.4)
^DIM 50+1, 51+1, 52+1, 53+1, 54+1, 55+1
CLEANUP^IBCE837 55(IEN:8)
FIND^IBCE837 53(IEN:8)
OUTPUT^IBCE837 52(IEN:8)
SETUP^IBCE837 54(IEN:8)
POST^IBCE837A 51(IEN:8)
PRE^IBCE837A 50(IEN:8)
ENTPOST^IBCFP1 51(IEN:2), 51(IEN:3), 51(IEN:12), 51(IEN:13)
ENTPRE^IBCFP1 50(IEN:2), 50(IEN:3), 50(IEN:12), 50(IEN:13)
FORMPOST^IBCFP1 55(IEN:2), 55(IEN:3), 55(IEN:12), 55(IEN:13)
FORMPRE^IBCFP1 54(IEN:2), 54(IEN:3), 54(IEN:12), 54(IEN:13)
QB1^IBCFP1 53(IEN:2), 53(IEN:3), 53(IEN:12), 53(IEN:13)

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DD( 2.02(XREF 1n1.4), 2.02(XREF 1n2.4)
^DD(353 2.02(XREF 1S), 2.02(XREF 1K)
^IBA(364.6 - [#364.6] .01DEL364.6+1
^IBE(353 - [#353] .01(XREF 1S), .01(XREF 1K), 2.02(XREF 1S), 2.02(XREF 1n1.4), 2.02(XREF 1K), 2.02(XREF 1n2.4)

Naked Globals

Name Field # of Occurrence
^(2 2.02(XREF 1S), 2.02(XREF 1n1.4), 2.02(XREF 1K), 2.02(XREF 1n2.4)

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> D0 2.02(XREF 1S), 2.02(XREF 1K)
>> DA .01DEL1+1, .01DEL364.6+1, .01(XREF 1S), .01(XREF 1K), 2.02(XREF 1S), 2.02(XREF 1K)
DIC .02+1*, .02(HELP ), .03+1*, .03(HELP ), 2.05+1!*, 2.08+1!*, 2.09+1!*
DIC("S" 2.05+1*, 2.05SCR+1*, 2.08+1*, 2.08SCR+1*, 2.09+1*, 2.09SCR+1*
DIC(0 .02+1*, .02(HELP ), .03+1*, .03(HELP )
>> DIE .02+1, .02(HELP ), .03+1, .03(HELP ), 2.05+1, 2.08+1, 2.09+1
>> DIG 2.02(XREF 1n1.4), 2.02(XREF 1n2.4)
>> DIH 2.02(XREF 1n1.4), 2.02(XREF 1n2.4)
>> DIU 2.02(XREF 1S), 2.02(XREF 1K)
DIV 2.02(XREF 1S), 2.02(XREF 1n1.4), 2.02(XREF 1K), 2.02(XREF 1n2.4)
DIV(0 2.02(XREF 1S), 2.02(XREF 1n1.4), 2.02(XREF 1K), 2.02(XREF 1n2.4)
IBL .02+1*!, .03+1*!
U 2.02(XREF 1S), 2.02(XREF 1n1.4), 2.02(XREF 1K), 2.02(XREF 1n2.4)
X .001+1!, .01+1!, .01(XREF 1S), .01(XREF 1K), .02+1*!, .02(HELP ), .03+1*!, .03(HELP ), 1.01+1!, 2.02(XREF 1S)
2.02(XREF 1n1.4), 2.02(XREF 1K), 2.02(XREF 1n2.4), 2.03+1!, 2.05+1*!, 2.06+1!, 2.07+1!, 2.08+1*!, 2.09+1*!, 50+1!
, 51+1!, 52+1!, 53+1!, 54+1!, 55+1!
Y .02+1, .03+1, 2.02(XREF 1S), 2.02(XREF 1K), 2.05+1, 2.08+1, 2.09+1
Y(0 2.02(XREF 1S), 2.02(XREF 1K)
Y(1 2.02(XREF 1S), 2.02(XREF 1K)
Info |  Desc |  Directly Accessed By Routines |  Accessed By FileMan Db Calls |  Pointed To By FileMan Files |  Pointer To FileMan Files |  Fields |  Found Entries |  External References |  Global Variables Directly Accessed |  Naked Globals |  Local Variables |  All