source: WorldVistAEHR/trunk/r/NOIS-FSC/FSCESU.m@ 1046

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

initial load of WorldVistAEHR

File size: 670 bytes
Line 
1FSCESU ;SLC/STAFF-NOIS Edit Status Utility ;10/17/96 15:35
2 ;;1.1;NOIS;;Sep 06, 1998
3 ;
4STATCALL(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 ;
9STAT(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.