|
Last change
on this file since 1501 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.
