Last change
on this file since 700 was 613, checked in by George Lilly, 15 years ago |
initial load of WorldVistAEHR
|
File size:
915 bytes
|
Line | |
---|
1 | AUPNPAT1 ; IHS/CMI/LAB - EXTRINSICS ; 2/8/05 3:56pm
|
---|
2 | ;;1.0;PCE PATIENT CARE ENCOUNTER;**167**;Aug 12, 1996;Build 22
|
---|
3 | ;
|
---|
4 | Q
|
---|
5 | ;
|
---|
6 | ; BEN:
|
---|
7 | ; Input - DFN
|
---|
8 | ; Output - 1 = Yes
|
---|
9 | ; 0 = No
|
---|
10 | ; -1 = No/old tribe or unable.
|
---|
11 | ;
|
---|
12 | BEN(DFN) ;PEP - Return BEN/Non-BEN Status.
|
---|
13 | ;Begin new code DAOU/JLG 2/8/05 Not of use to VO EHR
|
---|
14 | I $G(DUZ("AG"))="E" Q -1
|
---|
15 | ;End new code
|
---|
16 | I '$G(DFN) Q -1
|
---|
17 | I '$D(^AUPNPAT(DFN)) Q -1
|
---|
18 | NEW AUPN,AUPNTR,Y,X
|
---|
19 | S Y=1
|
---|
20 | ;Lines below commented out to prevent XINDEX errors. DAOU/JLG 2/8/05
|
---|
21 | ;D ENP^XBDIQ1(9000001,DFN,"1108;1109.9;1111","AUPN(","I")
|
---|
22 | Q -1 ;Code added to prevent errors DAOU/JLG 2/8/05
|
---|
23 | I AUPN(1108,"I")'>0 Q -1 ;no tribe
|
---|
24 | ;D ENP^XBDIQ1(9999999.03,AUPN(1108,"I"),".04;.02","AUPNTR(")
|
---|
25 | I AUPNTR(.04)="YES" Q -1 ;old tribe code
|
---|
26 | F X="000","970" I AUPNTR(.02)=X S Y=0 Q ;non-indian tribes
|
---|
27 | I 'Y Q Y
|
---|
28 | I 999=AUPNTR(.02),AUPN(1109.9)>0 Q 1 ;unspecified ,Quantum>0
|
---|
29 | Q Y
|
---|
30 | ;
|
---|
Note:
See
TracBrowser
for help on using the repository browser.