|
Last change
on this file since 893 was 613, checked in by George Lilly, 16 years ago |
|
initial load of WorldVistAEHR
|
|
File size:
530 bytes
|
| Line | |
|---|
| 1 | SOWKHIRM ;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
|
|---|
| 3 | BEG 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
|
|---|
| 5 | CLO K DIR,DIRUT,DUOUT,DTOUT,X,Y
|
|---|
| 6 | Q
|
|---|
| 7 | HOMELESS(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.
