source: WorldVistAEHR/trunk/r/IHS_ROUTINES-AUP/AUPNPAT1.m@ 724

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

initial load of WorldVistAEHR

File size: 915 bytes
Line 
1AUPNPAT1 ; 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 ;
12BEN(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.