source: FOIAVistA/trunk/r/SCHEDULING-SD-SC/SDCO23.m@ 905

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

initial load of FOIAVistA 6/30/08 version

File size: 967 bytes
Line 
1SDCO23 ;ALB/RMO - Classification Cont. - Help - Check Out;31 MAR 1993 3:10 pm
2 ;;5.3;Scheduling;;Aug 13, 1993
3 ;
4SC(DFN) ;Service Connected Help
5 ; Input -- DFN Patient file IEN
6 ; Output -- Help
7 N I,SDCNT,SDDC,SDRD0
8 W !!,"Patient's Service Connection and Rated Disabilities:"
9 W !!,$S($P($G(^DPT(DFN,.3)),"^")="Y":" SC Percent: "_$P(^(.3),"^",2)_"%",1:" Service Connected: No")
10 W !,"Rated Disabilities: "
11 I $P($G(^DPT(DFN,"VET")),"^")'="Y",$S('$D(^DIC(391,+$G(^DPT(DFN,"TYPE")),0)):1,$P(^(0),"^",2):0,1:1) W "Not a Veteran" G SCQ
12 S (SDCNT,I)=0
13 F S I=$O(^DPT(DFN,.372,I)) Q:'I I $P($G(^(I,0)),"^",3) S SDRD0=^(0) D
14 .S SDCNT=SDCNT+1
15 .S SDDC=$S('$D(^DIC(31,+SDRD0,0)):"",$P(^(0),"^",4)]"":$P(^(0),"^",4),1:$P(^(0),"^"))
16 .W:SDCNT>1 !
17 .W ?20,SDDC," (",$P(SDRD0,"^",2),"%-",$S($P(SDRD0,"^",3):"SC",1:""),")"
18 I 'SDCNT W $S('$O(^DPT(DFN,.372,0)):"None Stated",1:"No Service Connected Disabilities Listed")
19SCQ W !!,"Enter either 'Y' or 'N'."
20 Q
Note: See TracBrowser for help on using the repository browser.