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(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

Directly Accessed By Routines, Total: 10

Package Total Routines
Integrated Billing 8 IBEFUNC2    IBERSE    IBERSI    IBERSP1    IBOCOSI    IBXCPTC    IBXCPTG    ^IBE(350.71
Automated Information Collection System 1 IBDF17    

Accessed By FileMan Db Calls, Total: 2

Package Total Routines
Integrated Billing 2 IBERSE    IBERSI    

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: 2

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

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 AN UNDEFINED FILE **
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  S DIC("S")="I $D(DA),$P($G(^IBE(350.71,+DA,0)),U,3)=""P""" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
  • LAST EDITED:  DEC 02, 1991
  • 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"""
  • EXPLANATION:  Only TYPE "P" entries may have procedures.
  • 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.

External References

Name Field # of Occurrence
^DIC .05+1, .06+1
FCC^IBEFUNC1 .08+1
FFMT^IBEFUNC2 .01+1, .01(HELP )
FPO^IBEFUNC2 .02+1

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DD(350.71 .08+1, .08OF9.3+1, .08OF9.4+1
^IBE(350.71 - [#350.71] .01+1, .01(HELP ), .01(XREF 1S), .01(XREF 1K), .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 1K), .05(XREF 3S), .05(XREF 3K), .05(XREF 4S), .05(XREF 4K), .06(XREF 1S), .06(XREF 1K)
, .06(XREF 2S), .06(XREF 2K), .08OF9.2+1
^ICPT - [#81] .08OF9.4+1
^SD(409.71 .08OF9.3+1

Naked Globals

Name Field # of Occurrence
^(0 .02(XREF 1S), .02(XREF 1K), .02(XREF 2S), .02(XREF 2K), .04(XREF 1S), .04(XREF 1K), .05(XREF 1S), .05(XREF 1K), .05(XREF 4S), .05(XREF 4K)
, .06(XREF 2S), .06(XREF 2K), .08OF9.2+1, .08OF9.3+1, .08OF9.4+1

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> D0 .08+1*, .08OF9.2+1, .08OF9.3+1*
>> DA .01+1, .01(HELP ), .01(XREF 1S), .01(XREF 1K), .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 1K), .05(XREF 3S), .05(XREF 3K), .05(XREF 4S), .05(XREF 4K), .06(XREF 1S)
, .06(XREF 1K), .06(XREF 2S), .06(XREF 2K)
DIC .05+1!*, .06+1!*
DIC("S" .05+1*, .05SCR+1*, .06+1*, .06SCR+1*
>> DIE .05+1, .06+1
DT .08OF9.2+1
IBCDX .08+1*!
IBCHGX .08+1!
IBCPX .01+1*!, .01(HELP )
IBDTX .08+1*!
>> IBERSCE .01DEL1+1
IBLNGX .01+1*!, .01(HELP )
U .01+1, .01(HELP ), .08OF9.3+1, .08OF9.4+1
X .01+1!, .01(XREF 1S), .01(XREF 1K), .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+1*!, .05(XREF 1S), .05(XREF 1K), .05(XREF 3S), .05(XREF 3K), .05(XREF 4S), .05(XREF 4K), .06+1*!
, .06(XREF 1S), .06(XREF 1K), .06(XREF 2S), .06(XREF 2K), .08+1*, .08OF9.2+1*, .08OF9.4+1*
>> X1 .08+1*
>> Y .05+1, .06+1
>> Y( .08+1, .08OF9.2+1*, .08OF9.3+1*, .08OF9.4+1
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