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