Last change
on this file since 1150 was 613, checked in by George Lilly, 15 years ago |
initial load of WorldVistAEHR
|
File size:
796 bytes
|
Rev | Line | |
---|
[613] | 1 | NURSAWCK ;HIRMFO/RM-CHECK SO EVERY MAS WARD HAS A NURSING LOCATION ;AUGUST 1986
|
---|
| 2 | ;;4.0;NURSING SERVICE;;Apr 25, 1997
|
---|
| 3 | EN1 ; CALLED BY ROUTINE NURSCPL & NURSCPLU, RETURNS NURSBAD (1 if MAS Ward has no
|
---|
| 4 | ; Nursing equivalent, 0 if it does.), and BADWARD("MAS Ward") for
|
---|
| 5 | ; the ward in question.
|
---|
| 6 | S NURSX=$O(^DIC(42,"B",X,"")),NURSBAD=1 I NURSX'="" F NURSZLOC=0:0 S NURSZLOC=$O(^NURSF(211.4,"C",NURSX,NURSZLOC)) Q:NURSZLOC'>0 I $S('$D(^NURSF(211.4,NURSZLOC,"I")):1,$P(^("I"),"^")="A":1,1:0) S NURSBAD=0
|
---|
| 7 | K NURSX,NURSZLOC I NURSBAD S BADWARD(X)=""
|
---|
| 8 | Q
|
---|
| 9 | BADWARD ; ERROR MESSAGE IF THERE IS AN INVALID WARD
|
---|
| 10 | W $C(7),!!!,"The following MAS Wards do not have corresponding NURSING Locations: "
|
---|
| 11 | S NURSWR42="" F NURSZ=0:0 S NURSWR42=$O(BADWARD(NURSWR42)) Q:NURSWR42="" W !,?20,NURSWR42
|
---|
| 12 | K NURSWR42,NURSZ
|
---|
| 13 | Q
|
---|
Note:
See
TracBrowser
for help on using the repository browser.