42 lines
4.0 KiB
Mathematica
42 lines
4.0 KiB
Mathematica
SOWKDB1 ;B'HAM ISC/SAB-DATA BASE ASSESSMENT PROFILE CONTINUED ; [ 06/17/96 9:33 AM ]
|
|
;;3.0; Social Work ;**14,17,26,38,44**;27 Apr 93
|
|
S DIWR=80,DIWL=10,DIWF="W"
|
|
D CHK^SOWKDB Q:$G(SWX)["^" W !?5,"2. Usual Occupation: "_$S($P(^DPT(DFN,0),"^",7)]"":$P(^DPT(DFN,0),"^",7),1:"_______________")
|
|
S TI=0 F G=1:1:8 S TI=TI+(+$P(VAMB(G),"^",2))
|
|
D CHK^SOWKDB Q:$G(SWX)["^" W !?5,"3. Present Source of Funds:",!?9,"Total Income: _________",!?9,"HB: _________"
|
|
D CHK^SOWKDB Q:$G(SWX)["^" W ?25,"Employment:__________",?50,"Social Security: _________"
|
|
D CHK^SOWKDB Q:$G(SWX)["^" W !?9,"VA Pension: _________",?35,"Retirement: _________",!?9,"SSI: _________",?25,"VA Compensation: _________",?53,"Other Disability:_________",!?9,"A&A: _________"
|
|
D CHK^SOWKDB Q:$G(SWX)["^" W ?25,"None:________",?50,"Other: _________"
|
|
D CHK^SOWKDB Q:$G(SWX)["^" W !?5,"4. Potential source of other financial resources:"
|
|
I $O(^SOWK(655.2,DFN,1,0)) F SOWKG=0:0 D CHK^SOWKDB S SOWKG=$O(^SOWK(655.2,DFN,1,SOWKG)) Q:'SOWKG S X=^(SOWKG,0) D ^DIWP
|
|
D ^DIWW
|
|
D CHK^SOWKDB Q:$G(SWX)["^" W !?5,"5. Assets: " F G=1:1:63 W "_"
|
|
D CHK^SOWKDB Q:$G(SWX)["^" W !?5,"6. Potential Employability: "_$S($P(^SOWK(655.2,DFN,0),"^",22)=1:"YES",$P(^(0),"^",22)=2:"NO",1:"UNSPECIFIED")
|
|
D CHK^SOWKDB Q:$G(SWX)["^" W !?5,"7. Insurance Coverage: " S I=0 F G=0:0 S G=$O(^DPT(DFN,.312,G)) Q:'G S IC=$P(^DPT(DFN,.312,G,0),"^"),I=I+1,IC(I)=$S($D(^DIC(36,IC,0)):$P(^DIC(36,IC,0),"^"),1:"UNKNOWN") W IC(I)_", " D CHK^SOWKDB
|
|
D CHK^SOWKDB Q:$G(SWX)["^" W !?5,"8. Employment/Financial Assessment: " I $O(^SOWK(655.2,DFN,2,0)) F SOWKG=0:0 D CHK^SOWKDB S SOWKG=$O(^SOWK(655.2,DFN,2,SOWKG)) Q:'SOWKG S X=^(SOWKG,0) D ^DIWP
|
|
D ^DIWW
|
|
S EDL=$P(^SOWK(655.2,DFN,0),"^",23),ED="LESS THAN 6^6 - 12^12 - 16^MORE THAN 16" D CHK^SOWKDB Q:$G(SWX)["^" W !!,"III. Education:",!?5,"1. Highest educational level attained: "_$S(EDL:$P(ED,"^",EDL)_" YEARS",1:"UNSPECIFIED")
|
|
D CHK^SOWKDB Q:$G(SWX)["^" W !?5,"2. Special educational training or skills: " I $O(^SOWK(655.2,DFN,3,0)) F SOWKG=0:0 D CHK^SOWKDB S SOWKG=$O(^SOWK(655.2,DFN,3,SOWKG)) Q:'SOWKG S X=^(SOWKG,0) D ^DIWP
|
|
D ^DIWW
|
|
D CHK^SOWKDB Q:$G(SWX)["^" W !?5,"3. "_$S($P(^SOWK(655.2,DFN,0),"^",4):"Yes,",1:"Is not, or unknown if")_" currently enrolled in an educational program" W:'$P(^(0),"^",4) !?8 W " or trade school."
|
|
G:'$P(^SOWK(655.2,DFN,0),"^",4) ED W !?9,"(If 'Yes' explain)"
|
|
F T=1:1:3 W !?9 F G=1:1:71 W "_"
|
|
ED D CHK^SOWKDB Q:$G(SWX)["^" W !?5,"4. Educational Assesment:" I $O(^SOWK(655.2,DFN,4,0)) F SOWKG=0:0 D CHK^SOWKDB S SOWKG=$O(^SOWK(655.2,DFN,4,SOWKG)) Q:'SOWKG S X=^(SOWKG,0) D ^DIWP
|
|
D ^DIWW
|
|
D CHK^SOWKDB Q:$G(SWX)["^" W !!,"IV. Military History:",!?5,"1. Period of Service: " W $P(VAEL(2),"^",2)
|
|
D CHK^SOWKDB Q:$G(SWX)["^" W !?5,"2. POW - "_$S(+VASV(4):"Yes",1:"NO"),!?5,"3. Combat - "_$S(+VASV(5):"YES",1:"NO")
|
|
D CHK^SOWKDB Q:$G(SWX)["^" W !?5,"4. Service Connected Disability: "_$S(+VAEL(3):$P(VAEL(3),"^",2)_"%",1:"")
|
|
D CHK^SOWKDB Q:$G(SWX)["^" W !?5,"5. Military Assessment: " I $O(^SOWK(655.2,DFN,5,0)) F SOWKG=0:0 D CHK^SOWKDB S SOWKG=$O(^SOWK(655.2,DFN,5,SOWKG)) Q:'SOWKG S X=^(SOWKG,0) D ^DIWP
|
|
D ^DIWW
|
|
D CHK^SOWKDB Q:$G(SWX)["^" W !!,"V. Social/Family Relationship:",!?5,"1. Marital status: "_$P(VADM(10),"^",2)
|
|
D CHK^SOWKDB Q:$G(SWX)["^" W !?5,"2. Spouse: " G:'$D(^SOWK(655.2,DFN,6)) NX W !?15,$P(^SOWK(655.2,DFN,6),"^"),!?15,$P(^(6),"^",2) W:$P(^(6),"^",3)]"" !?15,$P(^(6),"^",3)
|
|
D CHK^SOWKDB W !?15,$P(^SOWK(655.2,DFN,6),"^",4),?$X+5,$S($P(^(6),"^",5):", "_$P(^DIC(5,$P(^(6),"^",5),0),"^"),1:"")_" "_$P(^SOWK(655.2,DFN,6),"^",6),!?15,"Phone #: "_$P(^(6),"^",7)
|
|
NX D CHK^SOWKDB Q:$G(SWX)["^" W !?5,"3. Children: "
|
|
F SOWKG=0:0 D CHK^SOWKDB S SOWKG=$O(^SOWK(655.2,DFN,7,SOWKG)) Q:'SOWKG D CHK^SOWKDB Q:$G(SWX)["^" S X2=$P(^SOWK(655.2,DFN,7,SOWKG,0),"^",2),X1=DT D ^%DTC S AG=X\365.25 W !?15,$P(^SOWK(655.2,DFN,7,SOWKG,0),"^"),?50,"Age: "_AG K AG
|
|
D ^SOWKDB2 Q
|
|
HDR U IO W:PG'=0!($E(IOST)["C") @IOF Q:$E(IOST)["C" F Q=1:1:5 W !
|
|
F Q=1:1:80 W "_"
|
|
S PG=PG+1 W !?20,"SOCIAL WORK SERVICE-REPORTS AND SUMMARIES",?65,"PAGE: "_PG_"."
|
|
F E=1:1:2 W ! F W=1:1:80 W "_"
|
|
W ! Q
|