STANDARD DATA DICTIONARY #350.71 -- AMBULATORY SURG. CHECK-OFF SHEET PRINT FIELDS FILE 3/24/25 PAGE 1
STORED IN ^IBE(350.71, *** NO DATA STORED YET *** SITE: WWW.BMIRWIN.COM UCI: VISTA,VISTA (VERSION 2.0)
DATA NAME GLOBAL DATA
ELEMENT TITLE LOCATION TYPE
-----------------------------------------------------------------------------------------------------------------------------------
Contains the Sub-headers and Procedures associated with each ambulatory surgery check-off sheet. Defines the relationship between
check-off sheets, Sub-headers, and Procedures. Also defines the print order of each entry on the check-off sheet.
Per VHA Directive 10-93-142, this file definition should not be modified.
DD ACCESS: @
POINTED TO BY: SUB-HEADER field (#.05) of the AMBULATORY SURG. CHECK-OFF SHEET PRINT FIELDS File (#350.71)
CROSS
REFERENCED BY: PRINT ORDER(AG), CHECK-OFF SHEET(AG1), PROCEDURE(AP), SUB-HEADER(AP1), PRINT ORDER(AS), SUB-HEADER(AS1), NAME(B),
CHECK-OFF SHEET(G), PROCEDURE(P), SUB-HEADER(S)
350.71,.01 NAME 0;1 FREE TEXT (Required)
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)
350.71,.02 PRINT ORDER 0;2 NUMBER (Required)
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.
350.71,.03 TYPE 0;3 SET (Required)
'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.
350.71,.04 CHECK-OFF SHEET 0;4 POINTER TO AMBULATORY CHECK-OFF SHEET FILE (#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).
350.71,.05 SUB-HEADER 0;5 POINTER TO AMBULATORY SURG. CHECK-OFF SHEET PRINT FIELDS FILE (#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.
350.71,.06 PROCEDURE 0;6 POINTER TO CPT FILE (#81) (Required)
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.
350.71,.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,IBD
TX,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=D
T 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.
FILES POINTED TO FIELDS
AMBULATORY CHECK-OFF SHEET
(#350.7) CHECK-OFF SHEET (#.04)
AMBULATORY SURG. CHECK-OFF SHE
(#350.71) SUB-HEADER (#.05)
CPT (#81) PROCEDURE (#.06)
INPUT TEMPLATE(S):
PRINT TEMPLATE(S):
IB CPT CP DISPLAY FEB 05, 1992@17:20 USER #10882^IBXCPTC AMB. SURG. CHECK-OFF SHEET PRINT FIELDS LIST
Displays procedures associated with a particular Check-off Sheet sub-header.
SORT TEMPLATE(S):
FORM(S)/BLOCK(S):