364 (137)    INDEX (.11)

Name Value
FILE 364
NAME ACOB
DESCRIPTION 
This cross references all transmitted bills that have subsequent
Bill status must be 3 or 4
Depends on the settings in fields .01, .03, .08
insurance, but no subsequent bill and are still active in this file
(status starts with 'A') and must be in status of 3, 4 or 6.
 
Subsequent insurance: check the "I#" (I2,I3) node of the bill is defined
                      for the COB sequence (field .08)
Subsequent bill: None found if the piece of the "M1" node of the bill
                 entry (calculated by 4+numeric COB translation) is not
                 there
SHORT DESCRIPTION XREF USED TO DETERMINE BILLS NEEDING COB PROCESSING
TYPE MUMPS
EXECUTION RECORD
ACTIVITY IR
USE SORTING ONLY
ROOT TYPE INDEX FILE
ROOT FILE 364
SET LOGIC S ^IBA(364,"ACOB",X2(1),DA)=""
SET CONDITION CODE I 'X2(1)!'X2(4) S X=0
CROSS-REFERENCE VALUES
  • ORDER NUMBER:   1
    SUBSCRIPT NUMBER:   1
    TYPE OF VALUE:   FIELD
    FILE:   364
    FIELD:   .01
    COLLATION:   forwards
  • ORDER NUMBER:   3
    TYPE OF VALUE:   FIELD
    FILE:   364
    FIELD:   .08
    COLLATION:   forwards
  • ORDER NUMBER:   4
    TYPE OF VALUE:   COMPUTED VALUE
    COMPUTED CODE:   S X=$$COBPOSS^IBCECOB(DA)
    COLLATION:   forwards
  • ORDER NUMBER:   2
    TYPE OF VALUE:   FIELD
    FILE:   364
    FIELD:   .03
    COLLATION:   forwards
KILL LOGIC K ^IBA(364,"ACOB",X1(1),DA)
KILL CONDITION CODE I 'X1(1) S X=0
KILL ENTIRE INDEX CODE K ^IBA(364,"ACOB")