Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Desc |  Pointed To By FileMan Files |  Pointer To FileMan Files |  Fields
Print Page as PDF
Global: ^IBE(350.71

Package: Integrated Billing

Global: ^IBE(350.71


Information

FileMan FileNo FileMan Filename Package
350.71 AMBULATORY SURG. CHECK-OFF SHEET PRINT FIELDS Integrated Billing

Description

Pointed To By FileMan Files, Total: 1

Package Total FileMan Files
Integrated Billing 1 AMBULATORY SURG. CHECK-OFF SHEET PRINT FIELDS(#350.71)[.05]    

Pointer To FileMan Files, Total: 3

Package Total FileMan Files
Integrated Billing 2 AMBULATORY CHECK-OFF SHEET(#350.7)[.04]    AMBULATORY SURG. CHECK-OFF SHEET PRINT FIELDS(#350.71)[.05]    
CPT HCPCS Codes 1 CPT(#81)[.06]    

Fields, Total: 7

Field # Name Loc Type Details
.01 NAME 0;1 FREE TEXT
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  S:$D(DA) IBCPX=DA D FFMT^IBEFUNC2 S IBLNGX=$S(IBLNGX=""!'$D(DA):59,$P(^IBE(350.71,DA,0),U,3)="P":$P(IBLNGX,U,3),1:$P(IBLNGX,U,2)) K:$L(X)<3!($L(X)>IBLNGX) X K IBLNGX,IBCPX
  • LAST EDITED:  MAR 27, 1992
  • HELP-PROMPT:  Enter the text to be printed on the CPT list for this entry. Maximum length depends on number of columns and if charge is printed. DELETING A SUB-HEADER DELETES ALL THE SUB-HEADER'S PROCEDURES.
  • DESCRIPTION:  
    Text printed on the check-off sheet for this entry.
  • EXECUTABLE HELP:  I $D(DA) S IBCPX=DA D FFMT^IBEFUNC2 W !,?5,"Maximum length for this entry is now ",$S(IBLNGX="":59,$P(^IBE(350.71,DA,0),U,3)="P":$P(IBLNGX,U,3),1:$P(IBLNGX,U,2))," characters.",! K IBLNGX,IBCPX
  • DELETE TEST:  1,0)= I '$D(IBERSCE)
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
  • CROSS-REFERENCE:  350.71^B
    1)= S ^IBE(350.71,"B",$E(X,1,30),DA)=""
    2)= K ^IBE(350.71,"B",$E(X,1,30),DA)
.02 PRINT ORDER 0;2 NUMBER
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  K:+X'=X!(X>9999)!(X<1)!(X?.E1"."1N.N) X I $D(X),$D(DA) D FPO^IBEFUNC2 I 'X K X
  • LAST EDITED:  FEB 11, 1992
  • HELP-PROMPT:  Type a Number between 1 and 9999, the number must not already be defined as a Print Order for the sheet/sub-header. This determines the printing order for entries within sheets and sub-headers.
  • DESCRIPTION:  
    The order that the members of the check-off sheet/sub-header are printed. A print order must be entered or the procedure is deleted from the sheet.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
  • CROSS-REFERENCE:  350.71^AS^MUMPS
    1)= I $P(^IBE(350.71,DA,0),"^",5) S ^IBE(350.71,"AS",$P(^(0),"^",5),X,DA)=""
    2)= I $P(^IBE(350.71,DA,0),"^",5) K ^IBE(350.71,"AS",$P(^(0),"^",5),X,DA)
    3)= DO NOT DELETE
    Quick index for sub-header members (procedures) and their print orders.
  • CROSS-REFERENCE:  350.71^AG^MUMPS
    1)= I $P(^IBE(350.71,DA,0),"^",4) S ^IBE(350.71,"AG",$P(^(0),"^",4),X,DA)=""
    2)= I $P(^IBE(350.71,DA,0),"^",4) K ^IBE(350.71,"AG",$P(^(0),"^",4),X,DA)
    3)= DO NOT DELETE
    Quick cross-reference for all members (sub-header's) and their print orders, within a sheet.
.03 TYPE 0;3 SET
************************REQUIRED FIELD************************
  • 'S' FOR SUB-HEADER;
  • 'P' FOR PROCEDURE;

  • LAST EDITED:  JAN 28, 1992
  • HELP-PROMPT:  A sub-header is a subgroup which may have multiple procedures associated with it. A procedure is printed under a specific sub-header and must have a valid CPT code.
  • DESCRIPTION:  The type definition for this entry. There are only two types:
    "P"rocedures which should always have valid CPT codes, and "S"ub-headers which may have multiple procedures.
.04 CHECK-OFF SHEET 0;4 POINTER TO AMBULATORY CHECK-OFF SHEET FILE (#350.7) AMBULATORY CHECK-OFF SHEET(#350.7)

  • LAST EDITED:  JAN 28, 1992
  • HELP-PROMPT:  The check-off sheet this entry is a member of. This entry will be printed on the CPT list for the sheet you specify.
  • DESCRIPTION:  
    The check-off sheet this entry belongs to.
  • TECHNICAL DESCR:  
    Under the current hierarchical scheme this field will have data only for entries of TYPE=SUB-HEADER.
  • CROSS-REFERENCE:  350.71^AG1^MUMPS
    1)= I $P(^IBE(350.71,DA,0),"^",2) S ^IBE(350.71,"AG",X,$P(^(0),"^",2),DA)=""
    2)= I $P(^IBE(350.71,DA,0),"^",2) K ^IBE(350.71,"AG",X,$P(^(0),"^",2),DA)
    3)= DO NOT DELETE
    Quick cross-reference for members and their print orders within a check-off sheet.
  • CROSS-REFERENCE:  350.71^G
    1)= S ^IBE(350.71,"G",$E(X,1,30),DA)=""
    2)= K ^IBE(350.71,"G",$E(X,1,30),DA)
    3)= DO NOT DELETE
    Quick index of all sheets (groups).
.05 SUB-HEADER 0;5 POINTER TO AMBULATORY SURG. CHECK-OFF SHEET PRINT FIELDS FILE (#350.71) AMBULATORY SURG. CHECK-OFF SHEET PRINT FIELDS(#350.71)

  • INPUT TRANSFORM:  S DIC("S")="I $P(^(0),U,3)=""S""" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
  • LAST EDITED:  JAN 28, 1992
  • HELP-PROMPT:  Enter the sub-header that this procedure should be printed under on the check-off sheet.
  • DESCRIPTION:  
    The sub-header that this entry is a member of.
  • TECHNICAL DESCR:  
    Under the current hierarchical scheme this field should have data only if TYPE=PROCEDURE.
  • SCREEN:  S DIC("S")="I $P(^(0),U,3)=""S"""
  • EXPLANATION:  Procedures cannot be sub-headers.
  • CROSS-REFERENCE:  350.71^AS1^MUMPS
    1)= I $P(^IBE(350.71,DA,0),"^",2) S ^IBE(350.71,"AS",X,$P(^(0),"^",2),DA)=""
    2)= I $P(^IBE(350.71,DA,0),"^",2) K ^IBE(350.71,"AS",X,$P(^(0),"^",2),DA)
    3)= DO NOT DELETE
    Quick index for sub-header members (procedures) and their print orders.
  • CROSS-REFERENCE:  350.71^S
    1)= S ^IBE(350.71,"S",$E(X,1,30),DA)=""
    2)= K ^IBE(350.71,"S",$E(X,1,30),DA)
    3)= DO NOT DELETE
    Quick index of all sub-header entrys.
  • CROSS-REFERENCE:  350.71^AP1^MUMPS
    1)= I $P(^IBE(350.71,DA,0),"^",6) S ^IBE(350.71,"AP",X,$P(^(0),"^",6),DA)=""
    2)= I $P(^IBE(350.71,DA,0),"^",6) K ^IBE(350.71,"AP",X,$P(^(0),"^",6),DA)
    3)= DO NOT DELETE
    Quick cross-reference between procedures and sub-headers.
.06 PROCEDURE 0;6 POINTER TO CPT FILE (#81)
************************REQUIRED FIELD************************
CPT(#81)

  • INPUT TRANSFORM:  S DIC("S")="I $D(DA),$P($G(^IBE(350.71,+DA,0)),U,3)=""P"",$$CPTACT^IBACSV(+Y)" D ^DIC K DIC S DIC=$G(DIE),X=+Y K:Y<0 X
  • LAST EDITED:  MAY 01, 2003
  • HELP-PROMPT:  Enter the CPT code for this Procedure.
  • DESCRIPTION:  
    The CPT code for this PROCEDURE. Should only be defined for TYPE="P".
  • SCREEN:  S DIC("S")="I $D(DA),$P($G(^IBE(350.71,+DA,0)),U,3)=""P"",$$CPTACT^IBACSV(+Y)"
  • EXPLANATION:  Only TYPE "P" entries may have procedures, CPT codes must be active.
  • CROSS-REFERENCE:  350.71^P
    1)= S ^IBE(350.71,"P",$E(X,1,30),DA)=""
    2)= K ^IBE(350.71,"P",$E(X,1,30),DA)
    3)= DO NOT DELETE
  • CROSS-REFERENCE:  350.71^AP^MUMPS
    1)= I $P(^IBE(350.71,DA,0),"^",5) S ^IBE(350.71,"AP",$P(^(0),"^",5),X,DA)=""
    2)= I $P(^IBE(350.71,DA,0),"^",5) K ^IBE(350.71,"AP",$P(^(0),"^",5),X,DA)
    3)= DO NOT DELETE
    Quick cross-reference between procedures and sub-headers.
.08 CHARGE COMPUTED

  • MUMPS CODE:  X ^DD(350.71,.08,9.4) S X1=Y(350.71,.08,1) S IBCDX=X,IBDTX=X1 D FCC^IBEFUNC1 S X=IBCHGX K IBCDX,IBDTX,IBCHGX S X=X S D0=Y(350.71,.08,80) S X=$J(X,0,2)
    9.2 = S Y(350.71,.08,80)=$S($D(D0):D0,1:""),Y(350.71,.08,2)=$S($D(^IBE(350.71,D0,0)):^(0),1:""),X=DT S X=X,Y(350.71,.08,1)=X
    9.3 = X ^DD(350.71,.08,9.2) S D0=$P(Y(350.71,.08,2),U,6) S:'$D(^SD(409.71,+D0,0)) D0=-1 S Y(350.71,.08,101)=$S($D(^SD(409.71,D0,0)):^(0),1:"")
    9.4 = X ^DD(350.71,.08,9.3) S X=$S('$D(^ICPT(+$P(Y(350.71,.08,101),U,1),0)):"",1:$P(^(0),U,1))
  • ALGORITHM:  IB CPT BILLING CHARGE(TODAY,PROCEDURE) (ALWAYS 2 DECIMAL DIGITS)
  • LAST EDITED:  FEB 05, 1992
  • DESCRIPTION:  
    Displays the charge for a CPT code.
Info |  Desc |  Pointed To By FileMan Files |  Pointer To FileMan Files |  Fields