Global: ^IBA(355.32

FileMan FileNo	FileMan Filename	Package
355.32	PLAN COVERAGE LIMITATIONS	Integrated Billing

Package	Total	Routines
Integrated Billing	26	IBBFAPI IBCMDT2 IBCNBCD2 IBCNGP1 IBCNRP IBCNRP5 IBCNRPM1 IBCNRPMT IBCNRPS2 IBCNRRP2 IBCNSC41 IBCNSJ IBCNSJ51 IBCNSJ52 IBCNSJ54 IBCNSU3 IBCNSUR2 IBCONS1 IBOHLD2 IBOHLS1 IBRBUL IBY763PO IBY771PO LIMITATION COMMENT ^IBA(355.32 ^IBE(399.6

Package	Total	Routines
Integrated Billing	9	IBCMDT2 IBCNBCD2 IBCNGP1 IBCNSC41 IBCNSJ IBCNSJ51 IBCNSJ54 IBY763PO IBY771PO

Package	Total	FileMan Files
Integrated Billing	2	GROUP INSURANCE PLAN(#355.3)[.01] PLAN LIMITATION CATEGORY(#355.31)[.02]
Kernel	1	NEW PERSON(#200)[1.02, 1.04]

Fields, Total: 9

Field #	Name	Loc	Type	Details
.01	PLAN	0;1	POINTER TO GROUP INSURANCE PLAN FILE (#355.3)	**********************REQUIRED FIELD********************** GROUP INSURANCE PLAN(#355.3) LAST EDITED: `AUG 16, 1995` HELP-PROMPT: `Enter the plan that this limitation applies to.` DESCRIPTION: `The plan that this limitation will apply to.` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER` CROSS-REFERENCE: `355.32^B` `1)= S ^IBA(355.32,"B",$E(X,1,30),DA)=""` `2)= K ^IBA(355.32,"B",$E(X,1,30),DA)` CROSS-REFERENCE: `355.32^APCD^MUMPS` `1)= I $P($G(^IBA(355.32,DA,0)),U,2)'="",$P(^(0),U,3)'="" S ^IBA(355.32,"APCD",$E(X,1,30),$P(^IBA(355.32,DA,0),U,2),-$P(^IBA(355.32,DA,0),U,3),DA)=""` `2)= I $P($G(^IBA(355.32,DA,0)),U,2)'="",$P(^(0),U,3)'="" K ^IBA(355.32,DA,"APCD",$E(X,1,30),$P(^IBA(355.32,DA,0),U,2),-$P(^IBA(355.32,DA,0),U,3),DA)` `3)= DO NOT DELETE` `Multiple xref on plan, coverage, and -effective date` CROSS-REFERENCE: `^^TRIGGER^355.32^1.01` `1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S Y(1)=$S($D(^IBA(355.32,D0,1)):^(1),1:"") S X=$P(Y(1),U,1)="" I X S X=DIV S Y(1)=$S($D(^IBA(355.32,D0,1)):^(1),1:"") S X=$P(Y(1),U,1),X=X S DIU=X K Y X ^DD(355.32,.01,1,3,1.1) X` `^DD(355.32,.01,1,3,1.4)` `1.1)= S X=DIV N %I,%H,% D NOW^%DTC S X=%` `1.4)= S DIH=$S($D(^IBA(355.32,DIV(0),1)):^(1),1:""),DIV=X S $P(^(1),U,1)=DIV,DIH=355.32,DIG=1.01 D ^DICR:$O(^DD(DIH,DIG,1,0))>0` `2)= Q` `CREATE CONDITION)= #1.01=""` `CREATE VALUE)= NOW` `DELETE VALUE)= NO EFFECT` `FIELD)= #1.01` `Triggers the date/time entered when creating a new entry.` CROSS-REFERENCE: `^^TRIGGER^355.32^1.02` `1)= X ^DD(355.32,.01,1,4,1.3) I X S X=DIV S Y(1)=$S($D(^IBA(355.32,D0,1)):^(1),1:"") S X=$P(Y(1),U,2),X=X S DIU=X K Y S X=DIV S X=DUZ X ^DD(355.32,.01,1,4,1.4)` `1.3)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S Y(1)=$S($D(^IBA(355.32,D0,1)):^(1),1:"") S X=$S('$D(^VA(200,+$P(Y(1),U,2),0)):"",1:$P(^(0),U,1))=""` `1.4)= S DIH=$S($D(^IBA(355.32,DIV(0),1)):^(1),1:""),DIV=X S $P(^(1),U,2)=DIV,DIH=355.32,DIG=1.02 D ^DICR:$O(^DD(DIH,DIG,1,0))>0` `2)= Q` `CREATE CONDITION)= #1.02=""` `CREATE VALUE)= S X=DUZ` `DELETE VALUE)= NO EFFECT` `FIELD)= #1.02` `Triggers the user who created this entry.`
.02	COVERAGE CATEGORY	0;2	POINTER TO PLAN LIMITATION CATEGORY FILE (#355.31)	**********************REQUIRED FIELD********************** PLAN LIMITATION CATEGORY(#355.31) LAST EDITED: `AUG 08, 1995` HELP-PROMPT: `Enter the type of coverage that will be limited.` DESCRIPTION: `The type of coverage that the insurance company plan has reimbursement limits on.` CROSS-REFERENCE: `355.32^APCD1^MUMPS` `1)= I $P($G(^IBA(355.32,DA,0)),U)'="",$P(^(0),U,3)'="" S ^IBA(355.32,"APCD",$P(^IBA(355.32,DA,0),U),$E(X,1,30),-$P(^IBA(355.32,DA,0),U,3),DA)=""` `2)= I $P($G(^IBA(355.32,DA,0)),U)'="",$P(^(0),U,3)'="" K ^IBA(355.32,"APCD",$P(^IBA(355.32,DA,0),U),$E(X,1,30),-$P(^IBA(355.32,DA,0),U,3),DA)` `3)= DO NOT DELETE` `Multiple xref on plan, coverage, and -effective date`
.03	EFFECTIVE DATE	0;3	DATE	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `S %DT="EX" D ^%DT S X=Y K:Y<1 X` LAST EDITED: `JUL 27, 1995` HELP-PROMPT: `Enter the date that this limitation is effective.` DESCRIPTION: `The date on which the type of coverage for this limitation becomes limited for insurance billing purposes.` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER` CROSS-REFERENCE: `355.32^APCD2^MUMPS` `1)= I $P($G(^IBA(355.32,DA,0)),U)'="",$P(^(0),U,2)'="" S ^IBA(355.32,"APCD",$P(^IBA(355.32,DA,0),U),$P(^IBA(355.32,DA,0),U,2),-$E(X,1,30),DA)=""` `2)= I $P($G(^IBA(355.32,DA,0)),U)'="",$P(^(0),U,2)'="" K ^IBA(355.32,"APCD",$P(^IBA(355.32,DA,0),U),$P(^IBA(355.32,DA,0),U,2),-$E(X,1,30),DA)` `3)= DO NOT DELETE` `Multiple xref on plan, coverage, and -effective date`
.04	COVERAGE STATUS	0;4	SET	**********************REQUIRED FIELD********************** '0' FOR NOT COVERED; '1' FOR COVERED; '2' FOR CONDITIONAL COVERAGE; LAST EDITED: `AUG 29, 1995` HELP-PROMPT: `The status of this coverage for this plan as of the effective date.` DESCRIPTION: `This is the status of the coverage associated with this record on the effective date associated with this record.`
1.01	DATE ENTERED	1;1	DATE	INPUT TRANSFORM: `S %DT="ETX" D ^%DT S X=Y K:Y<1 X` LAST EDITED: `AUG 16, 1995` DESCRIPTION: `This is the date this limitation was entered. It is triggered by the creation of this entry.` NOTES: `TRIGGERED by the PLAN field of the PLAN COVERAGE LIMITATIONS File`
1.02	ENTERED BY	1;2	POINTER TO NEW PERSON FILE (#200)	NEW PERSON(#200) LAST EDITED: `AUG 16, 1995` DESCRIPTION: `This is the user who created this entry. It is automatically triggered by the creation of this entry.` NOTES: `TRIGGERED by the PLAN field of the PLAN COVERAGE LIMITATIONS File`
1.03	DATE LAST EDITED	1;3	DATE	INPUT TRANSFORM: `S %DT="ETX" D ^%DT S X=Y K:Y<1 X` LAST EDITED: `AUG 16, 1995` DESCRIPTION: `This is the date this limitation was last edited. It is automatically updated any time the limitation is edited using one of the options provided.`
1.04	LAST EDITED BY	1;4	POINTER TO NEW PERSON FILE (#200)	NEW PERSON(#200) LAST EDITED: `JAN 12, 2024` HELP-PROMPT: `Enter the name of the person who last edited the entry.` DESCRIPTION: `This is the user who last edited this limitation. It is automatically updated any time a person edits this limitation using one of the options provided.` FIELD INDEX: `LAST (#1736) MUMPS LOOKUP & SORTING` `Short Descr: Multiple xref on PLAN, -DATE LAST EDITED, and LAST EDITED BY` `Description: Multiple xref on PLAN (#.01), -DATE LAST EDITIED (#1.03), and LAST EDITED BY (#1.04).` `Re-Indexing is not allowed due to possible corruption in the field. If a site has certain corrupted records this cross reference will not be rebuilt during a Re-Index. Cross reference was introduced with IB2.0763. If` `the cross reference needs to be rebuilt, use code to check that all field are NOT null then call the re-index function in FileMan for one entry. (Refer to NEWINDX^IBY771PO).` `Set Logic: S ^IBA(355.32,"LAST",X(3),-X(2),X,DA)=""` `Kill Logic: K ^IBA(355.32,"LAST",X(3),-X(2),X,DA)` `Whole Kill: K ^IBA(355.32,"LAST")` `X(1): LAST EDITED BY (355.32,1.04) (Subscr 1) (forwards)` `X(2): Computed Code: S X=$P($G(^IBA(355.32,DA,1)),U,3)` `X(3): Computed Code: S X=$P($G(^IBA(355.32,DA,0)),U)` `NO RE-INDEXING ALLOWED!`
2	LIMITATION COMMENT	2;0	Multiple #355.321	355.321

ICR LINK	Subscribing Package(s)	Fields Referenced	Description
ICR #5341	Insurance Capture Buffer
ICR #7305	Lighthouse	PLAN (.01). Access: Both R/W w/Fileman COVERAGE CATEGORY (.02). Access: Both R/W w/Fileman EFFECTIVE DATE (.03). Access: Both R/W w/Fileman COVERAGE STATUS (.04). Access: Both R/W w/Fileman COMMENTS (.01). Access: Both R/W w/Fileman DATE ENTERED (1.01). Access: Both R/W w/Fileman ENTERED BY (1.02). Access: Both R/W w/Fileman DATE LAST EDITED (1.03). Access: Both R/W w/Fileman LAST EDITED BY (1.04). Access: Both R/W w/Fileman	LIMITATION COMMENT (Multiple-355.321)

Name	Field # of Occurrence
^%DT	.03+1, 1.01+1, 1.03+1
NOW^%DTC	.01(XREF 3n1.1)
^DICR	.01(XREF 3n1.4), .01(XREF 4n1.4)
Y^DIQ	ID.02+1

Name	Line Occurrences (* Changed, ! Killed)
^DD(	.01(XREF 3n1.4), .01(XREF 4n1.4)
^DD(355.31	ID.02+1
^DD(355.32	.01(XREF 3S), .01(XREF 4S)
^IBA(355.32 - [#355.32]	IXLASTSL+1*, IXLASTKL+1!, IXLASTKEIC+1!, IXLASTP2CC+1, IXLASTP3CC+1, .01(XREF 1S), .01(XREF 1K), .01(XREF 2S), .01(XREF 2K), .01(XREF 3S) , .01(XREF 3n1.4), .01(XREF 4S), .01(XREF 4n1.3), .01(XREF 4n1.4), .02(XREF 1S), .02(XREF 1K), .03(XREF 1S), .03(XREF 1K)
^IBE(355.31 - [#355.31]	ID.02+1
^VA(200 - [#200]	.01(XREF 4n1.3)

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%	.01(XREF 3n1.1)
>> %DT	.03+1, 1.01+1, 1.03+1*
%H	.01(XREF 3n1.1)
%I	ID.02+1*!, .01(XREF 3n1.1)
>> C	ID.02+1*
>> D0	.01(XREF 3S), .01(XREF 4S), .01(XREF 4n1.3)
>> DA	IXLASTSL+1, IXLASTKL+1, IXLASTP2CC+1, IXLASTP3CC+1, .01(XREF 1S), .01(XREF 1K), .01(XREF 2S), .01(XREF 2K), .01(XREF 3S), .01(XREF 4n1.3) , .02(XREF 1S), .02(XREF 1K), .03(XREF 1S), .03(XREF 1K)
>> DIC	ID.02+1
>> DIG	.01(XREF 3n1.4), .01(XREF 4n1.4)
>> DIH	.01(XREF 3n1.4), .01(XREF 4n1.4)
>> DIU	.01(XREF 3S), .01(XREF 4S)
DIV	.01(XREF 3S), .01(XREF 3n1.1), .01(XREF 3n1.4), .01(XREF 4S), .01(XREF 4n1.3), .01(XREF 4n1.4)
DIV(0	.01(XREF 3S), .01(XREF 3n1.4), .01(XREF 4n1.3), .01(XREF 4n1.4)
DUZ	.01(XREF 4S)
U	ID.02+1, ID.03+1, IXLASTP2CC+1, IXLASTP3CC+1, .01(XREF 2S), .01(XREF 2K), .01(XREF 3S), .01(XREF 3n1.4), .01(XREF 4S), .01(XREF 4n1.3) , .01(XREF 4n1.4), .02(XREF 1S), .02(XREF 1K), .03(XREF 1S), .03(XREF 1K)
X	IXLASTSL+1, IXLASTKL+1, IXLASTP2CC+1, IXLASTP3CC+1, .01(XREF 1S), .01(XREF 1K), .01(XREF 2S), .01(XREF 2K), .01(XREF 3S), .01(XREF 3n1.1) , .01(XREF 3n1.4), .01(XREF 4S), .01(XREF 4n1.3), .01(XREF 4n1.4), .02(XREF 1S), .02(XREF 1K), .03+1!, .03(XREF 1S), .03(XREF 1K), 1.01+1! , 1.03+1*!
X(2	IXLASTSL+1, IXLASTKL+1
X(3	IXLASTSL+1, IXLASTKL+1
Y	ID.02+1*, .01(XREF 3S), .01(XREF 4S), .03+1, 1.01+1, 1.03+1
Y(0	.01(XREF 3S), .01(XREF 4n1.3)
Y(1	.01(XREF 3S), .01(XREF 4S), .01(XREF 4n1.3)

Customize PDF page

Package: Integrated Billing

Global: ^IBA(355.32

Information

Description

Directly Accessed By Routines, Total: 26

Accessed By FileMan Db Calls, Total: 9

Pointer To FileMan Files, Total: 3

Fields, Total: 9

ICR, Total: 2

External References

Global Variables Directly Accessed

Naked Globals

Local Variables

Legend:

Name	Field # of Occurrence
^(0	ID.02+1, ID.03+1, .01(XREF 2S), .01(XREF 2K), .01(XREF 4n1.3), .02(XREF 1S), .02(XREF 1K), .03(XREF 1S), .03(XREF 1K)
^(1	.01(XREF 3S), .01(XREF 3n1.4), .01(XREF 4S), .01(XREF 4n1.3), .01(XREF 4n1.4)