source: FOIAVistA/trunk/r/INTEGRATED_BILLING-IB-PRQ--IBD--IBQ--PRQS/IBTRKRU.m@ 1757

Last change on this file since 1757 was 628, checked in by George Lilly, 15 years ago

initial load of FOIAVistA 6/30/08 version

File size: 1.3 KB
Line 
1IBTRKRU ;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 ;
7INACTIVE(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 ;
18RELINK(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 ;
28DELETE(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 ;
36COMMENT(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 ;
46INQUIRE(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
Note: See TracBrowser for help on using the repository browser.