| 1 | IBTRKRU ;WAS/RFJ - claims tracking file utilities ; 07 Feb 96
|
|---|
| 2 | ;;Version 2.0 ; INTEGRATED BILLING ;**56,62**; 21-MAR-94
|
|---|
| 3 | ;;Per VHA Directive 10-93-142, this routine should not be modified.
|
|---|
| 4 | Q
|
|---|
| 5 | ;
|
|---|
| 6 | ;
|
|---|
| 7 | INACTIVE(DA) ; inactivate record in ct, delete admission field if
|
|---|
| 8 | ; entry in file 405 is deleted
|
|---|
| 9 | N %,D,D0,DATA,DI,DIC,DIE,DIG,DIH,DIU,DIV,DQ,DR,X
|
|---|
| 10 | S DATA=$G(^IBT(356,DA,0)) I DATA="" Q
|
|---|
| 11 | ; entry inactive (.2 field equal 0) and adm ptr removed (.05 deleted)
|
|---|
| 12 | S DR=".2////0;.05///@;.32///@"
|
|---|
| 13 | S DIE="^IBT(356,"
|
|---|
| 14 | D ^DIE
|
|---|
| 15 | Q
|
|---|
| 16 | ;
|
|---|
| 17 | ;
|
|---|
| 18 | RELINK(DA,ADMPTR,EPISDATE) ; relink a deleted admission
|
|---|
| 19 | ; admptr = admission pointer to file 405
|
|---|
| 20 | ; episdate = episode date
|
|---|
| 21 | N %,D,D0,DI,DIC,DIE,DIG,DIH,DIU,DIV,DQ,DR,X
|
|---|
| 22 | S DR=".05////"_ADMPTR_";.06////"_EPISDATE_";.2////1"
|
|---|
| 23 | S DIE="^IBT(356,"
|
|---|
| 24 | D ^DIE
|
|---|
| 25 | Q
|
|---|
| 26 | ;
|
|---|
| 27 | ;
|
|---|
| 28 | DELETE(FILE,DA) ; delete entry da from file
|
|---|
| 29 | N %,DIC,DIK,X,Y
|
|---|
| 30 | I '$D(^IBT(FILE,DA,0)) Q
|
|---|
| 31 | S DIK="^IBT("_FILE_","
|
|---|
| 32 | D ^DIK
|
|---|
| 33 | Q
|
|---|
| 34 | ;
|
|---|
| 35 | ;
|
|---|
| 36 | COMMENT(FILE,DA) ; hospital (file 356.1) or insurance (file 356.2) review
|
|---|
| 37 | ; add comments field 11 for entry da
|
|---|
| 38 | I $G(^IBT(FILE,DA,0))="" Q
|
|---|
| 39 | N %,D,D0,DI,DIC,DIE,DIG,DIH,DIU,DIV,DQ,DR,J,X
|
|---|
| 40 | S DR="11///Entry created by major change in specialty."
|
|---|
| 41 | S DIE="^IBT("_FILE_","
|
|---|
| 42 | D ^DIE
|
|---|
| 43 | Q
|
|---|
| 44 | ;
|
|---|
| 45 | ;
|
|---|
| 46 | INQUIRE(FILE,DA) ; return inquire data for file and entry da
|
|---|
| 47 | K IBDATA(FILE,DA_",")
|
|---|
| 48 | D GETS^DIQ(FILE,DA,"**","R","IBDATA")
|
|---|
| 49 | Q
|
|---|
