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

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

initial load of FOIAVistA 6/30/08 version

File size: 1.7 KB
Line 
1IBCSC1 ;ALB/MJB - MCCR SCREEN 1 (DEMOGRAPHICS) ;27 MAY 88 10:13
2 ;;2.0;INTEGRATED BILLING;**51,161,349**;21-MAR-94;Build 46
3 ;;Per VHA Directive 2004-038, this routine should not be modified.
4 ; DBIA for reference to DG ELIGIBILITY key: DBIA3109
5 ;
6 ;MAP TO DGCRSC1
7 ;
8BEN S IBSR=1,IBSR1="",IBV1=$S($D(^XUSEC("DG ELIGIBILITY",DUZ)):"000000",1:101100)
9 S:IBV IBV1="111111"
10 S IB(0)=$S($D(^DGCR(399,IBIFN,0)):^(0),1:"")
11 D:'$D(IBWW) ^IBCSCU D ALL^IBCVA0,H^IBCSCU
12 ;
13 ; Add/Update to ClaimsManager file (#351.9) if running ClaimsManager
14 I $$CM^IBCIUT1(IBIFN) D ST1^IBCIST
15 ;
161 S Z=1,IBW=1 X IBWW W " DOB : ",$P(VADM(3),"^",2) I $G(VADM(6)) W ?42,"Date of Death: ",$P(VADM(6),U,2)," (uneditable)"
17 ;
182 S (I1,Z1)="",Z=2,IBW=1 X IBWW W " Alias : " F I=0:0 S I=$O(^DPT(DFN,.01,I)) Q:I="" S I1=1 W:$X>40 !?13 S Z1=36,Z=$E($P(^(I,0),"^",1),1,29) W Z,"/"
19 W:'I1 "NO ALIAS ON FILE"
20 ;
213 S Z=3,IBW=1 X IBWW W " Sex : ",$S($P(VADM(5),U,2)]"":$P(VADM(5),U,2),1:IBU),?48,"Marital: ",$S($D(^DIC(11,+$P(^DPT(DFN,0),U,5),0)):$E($P(^(0),U,1),1,28),1:IBU)
22 ;
234 S Z=4,IBW=1 X IBWW W " Veteran: ",$S('$D(VAEL(4)):IBU,+VAEL(4):"YES",1:"NO"),?44,"Eligibility: ",$S((VAEL(1)]""):$E($P(^DIC(8,(+VAEL(1)),0),"^",6),1,22),1:IBU)
24 F I=.11,.121 S IB(I)=$S($D(^DPT(DFN,I)):^(I),1:"")
25 K IBA S IBAD=.11,(IBA1,IBA2)=1 D A^IBCSCU I $P(IB(.121),"^",9)="Y" S IBAD=.121,IBA1=1,IBA2=2 D A^IBCSCU
26 ;
275 W ! S Z=5,IBW=1 X IBWW W " Address: ",$S($D(IBA(1)):IBA(1),1:"NONE ON FILE"),?46,"Temporary: ",$S($D(IBA(2)):IBA(2),1:"NO TEMPORARY ADDRESS")
28 S I=2 F I1=0:0 S I=$O(IBA(I)) Q:I="" W:I#2!($X>50) !?13 W:'(I#2) ?57 W IBA(I)
29 ;
306 W ! S Z=6,IBW=1 X IBWW W " SC Care: " S X=$P(IB(0),"^",18) W $S(X="":"UNSPECIFIED",X:"YES",1:"NO") I X W " (Enter '6' to list disabilites)"
31 G ^IBCSCP
32 Q
33 ;IBCSC1
Note: See TracBrowser for help on using the repository browser.