Last change
on this file since 1639 was 613, checked in by George Lilly, 15 years ago |
initial load of WorldVistAEHR
|
File size:
670 bytes
|
Rev | Line | |
---|
[613] | 1 | FSCESU ;SLC/STAFF-NOIS Edit Status Utility ;10/17/96 15:35
|
---|
| 2 | ;;1.1;NOIS;;Sep 06, 1998
|
---|
| 3 | ;
|
---|
| 4 | STATCALL(CALL) ; $$(call) -> status #^status abrev^status^sup #^dev #
|
---|
| 5 | N DEV,SUP
|
---|
| 6 | S SUP=$P($G(^FSCD("CALL",CALL,0)),U,2),DEV=$P($G(^(0)),U,17)
|
---|
| 7 | Q $$STAT(SUP,DEV)_U_SUP_U_DEV
|
---|
| 8 | ;
|
---|
| 9 | STAT(SUP,DEV) ; $$(status, ref status) -> status #^status abbrev^status
|
---|
| 10 | I 'SUP Q ""
|
---|
| 11 | I SUP=1 Q "1^O^OPEN"
|
---|
| 12 | I SUP=2 Q "2^C^CLOSED"
|
---|
| 13 | I DEV=1 Q "3^R^REFERRED"
|
---|
| 14 | I SUP=4 Q "4^V^VENDOR"
|
---|
| 15 | I DEV=5 Q "5^E^REFER TO EP"
|
---|
| 16 | I DEV=6 Q "6^P^AWAITING PATCH"
|
---|
| 17 | I DEV=7 Q "7^N^NEXT RELEASE"
|
---|
| 18 | I DEV=8 Q "8^F^FUTURE RELEASE"
|
---|
| 19 | I DEV=9 Q "9^W^REFER TO VACO"
|
---|
| 20 | I SUP=10 Q "10^I^IMPLEMENTATION"
|
---|
| 21 | I SUP=99 Q "99^X^CANCELLED"
|
---|
| 22 | Q ""
|
---|
Note:
See
TracBrowser
for help on using the repository browser.