Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Routine: IBTRKRU

IBTRKRU.m

Go to the documentation of this file.
  1. IBTRKRU ;WAS/RFJ - claims tracking file utilities ; 07 Feb 96
  1. ;;Version 2.0 ; INTEGRATED BILLING ;**56,62**; 21-MAR-94
  1. ;;Per VHA Directive 10-93-142, this routine should not be modified.
  1. Q
  1. ;
  1. ;
  1. INACTIVE(DA) ; inactivate record in ct, delete admission field if
  1. ; entry in file 405 is deleted
  1. N %,D,D0,DATA,DI,DIC,DIE,DIG,DIH,DIU,DIV,DQ,DR,X
  1. S DATA=$G(^IBT(356,DA,0)) I DATA="" Q
  1. ; entry inactive (.2 field equal 0) and adm ptr removed (.05 deleted)
  1. S DR=".2////0;.05///@;.32///@"
  1. S DIE="^IBT(356,"
  1. D ^DIE
  1. Q
  1. ;
  1. ;
  1. ; admptr = admission pointer to file 405
  1. ; episdate = episode date
  1. N %,D,D0,DI,DIC,DIE,DIG,DIH,DIU,DIV,DQ,DR,X
  1. S DR=".05////"_ADMPTR_";.06////"_EPISDATE_";.2////1"
  1. S DIE="^IBT(356,"
  1. D ^DIE
  1. Q
  1. ;
  1. ;
  1. DELETE(FILE,DA) ; delete entry da from file
  1. N %,DIC,DIK,X,Y
  1. I '$D(^IBT(FILE,DA,0)) Q
  1. S DIK="^IBT("_FILE_","
  1. D ^DIK
  1. Q
  1. ;
  1. ;
  1. COMMENT(FILE,DA) ; hospital (file 356.1) or insurance (file 356.2) review
  1. ; add comments field 11 for entry da
  1. I $G(^IBT(FILE,DA,0))="" Q
  1. N %,D,D0,DI,DIC,DIE,DIG,DIH,DIU,DIV,DQ,DR,J,X
  1. S DR="11///Entry created by major change in specialty."
  1. S DIE="^IBT("_FILE_","
  1. D ^DIE
  1. Q
  1. ;
  1. ;
  1. INQUIRE(FILE,DA) ; return inquire data for file and entry da
  1. K IBDATA(FILE,DA_",")
  1. D GETS^DIQ(FILE,DA,"**","R","IBDATA")
  1. Q