Sub-Field: 9002274.4057

Parent File	Name	Number	Package
3P BILL(#9002274.4)	Occurance Span Code	9002274.4057	Third Party Billing

Details

Field # Name Loc Type Details

Field #	Name	Loc	Type	Details
.01	OCCURANCE SPAN CODE	0;1	POINTER TO 3P CODES FILE (#9002274.03)	3P CODES(#9002274.03) INPUT TRANSFORM: `S DIC("S")="I $P(^(0),U,4)'=1,$P(^(0),U,2)=""S""" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X` LAST EDITED: `MAR 21, 1990` SCREEN: `S DIC("S")="I $P(^(0),U,4)'=1,$P(^(0),U,2)=""S"""` EXPLANATION: `OCCURANCE SPAN CODES ONLY` CROSS-REFERENCE: `9002274.4057^B` 1)= S ^ABMDBILL(DUZ(2),DA(1),57,"B",$E(X,1,30),DA)="" 2)= K ^ABMDBILL(DUZ(2),DA(1),57,"B",$E(X,1,30),DA)
.02	FROM DATE	0;2	DATE	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `S %DT="E" D ^%DT S X=Y K:Y<1 X` LAST EDITED: `APR 19, 1990`
.03	TO DATE	0;3	DATE	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `S %DT="E" D ^%DT S X=Y K:Y<1 X` LAST EDITED: `APR 19, 1990`

OCCURANCE SPAN CODE

0;1

POINTER TO 3P CODES FILE (#9002274.03)

INPUT TRANSFORM: S DIC("S")="I $P(^(0),U,4)'=1,$P(^(0),U,2)=""S""" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
LAST EDITED: MAR 21, 1990
SCREEN: S DIC("S")="I $P(^(0),U,4)'=1,$P(^(0),U,2)=""S"""
EXPLANATION: OCCURANCE SPAN CODES ONLY

CROSS-REFERENCE: 9002274.4057^B

1)= S ^ABMDBILL(DUZ(2),DA(1),57,"B",$E(X,1,30),DA)=""

2)= K ^ABMDBILL(DUZ(2),DA(1),57,"B",$E(X,1,30),DA)

FROM DATE

0;2

DATE

************************REQUIRED FIELD************************

TO DATE

0;3

DATE

************************REQUIRED FIELD************************