source: FOIAVistA/trunk/r/SOCIAL_WORK-SOW-SWBH-SWFG/SOWKHIRM.m@ 1002

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

initial load of FOIAVistA 6/30/08 version

File size: 530 bytes
Line 
1SOWKHIRM ;B'HAM ISC/SAB-ROUTINE TO EDIT/START HIGH RISK PROFILES ; 15 Jun 93 / 10:16 AM [ 04/02/96 8:58 AM ]
2 ;;3.0; Social Work ;**1,42**;27 Apr 93
3BEG S DIR(0)="YO",DIR("A")="Do you want to screen Now (One to seven days)",DIR("B")="YES",DIR("?")="Enter 'YES' to run current date or up to seven days in the past." D ^DIR
4 I X=""!Y=1 D ^SOWKHRM
5CLO K DIR,DIRUT,DUOUT,DTOUT,X,Y
6 Q
7HOMELESS(DFN) ;homeless API
8 N X,FLAG
9 S (FLAG,X)=0 F S X=$O(^SOWK(650,"P",DFN,X)) Q:'X!(FLAG=1) I $P(^SOWK(650,X,0),U,14)=4 S FLAG=1
10 Q FLAG
Note: See TracBrowser for help on using the repository browser.