FSCESU ;SLC/STAFF-NOIS Edit Status Utility ;10/17/96 15:35
;;1.1;NOIS;;Sep 06, 1998
;
STATCALL(CALL) ; $$(call) -> status #^status abrev^status^sup #^dev #
N DEV,SUP
S SUP=$P($G(^FSCD("CALL",CALL,0)),U,2),DEV=$P($G(^(0)),U,17)
Q $$STAT(SUP,DEV)_U_SUP_U_DEV
;
STAT(SUP,DEV) ; $$(status, ref status) -> status #^status abbrev^status
I 'SUP Q ""
I SUP=1 Q "1^O^OPEN"
I SUP=2 Q "2^C^CLOSED"
I DEV=1 Q "3^R^REFERRED"
I SUP=4 Q "4^V^VENDOR"
I DEV=5 Q "5^E^REFER TO EP"
I DEV=6 Q "6^P^AWAITING PATCH"
I DEV=7 Q "7^N^NEXT RELEASE"
I DEV=8 Q "8^F^FUTURE RELEASE"
I DEV=9 Q "9^W^REFER TO VACO"
I SUP=10 Q "10^I^IMPLEMENTATION"
I SUP=99 Q "99^X^CANCELLED"
Q ""
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HFSCESU 692 printed Nov 22, 2024@17:27:40 Page 2
FSCESU ;SLC/STAFF-NOIS Edit Status Utility ;10/17/96 15:35
+1 ;;1.1;NOIS;;Sep 06, 1998
+2 ;
STATCALL(CALL) ; $$(call) -> status #^status abrev^status^sup #^dev #
+1 NEW DEV,SUP
+2 SET SUP=$PIECE($GET(^FSCD("CALL",CALL,0)),U,2)
SET DEV=$PIECE($GET(^(0)),U,17)
+3 QUIT $$STAT(SUP,DEV)_U_SUP_U_DEV
+4 ;
STAT(SUP,DEV) ; $$(status, ref status) -> status #^status abbrev^status
+1 IF 'SUP
QUIT ""
+2 IF SUP=1
QUIT "1^O^OPEN"
+3 IF SUP=2
QUIT "2^C^CLOSED"
+4 IF DEV=1
QUIT "3^R^REFERRED"
+5 IF SUP=4
QUIT "4^V^VENDOR"
+6 IF DEV=5
QUIT "5^E^REFER TO EP"
+7 IF DEV=6
QUIT "6^P^AWAITING PATCH"
+8 IF DEV=7
QUIT "7^N^NEXT RELEASE"
+9 IF DEV=8
QUIT "8^F^FUTURE RELEASE"
+10 IF DEV=9
QUIT "9^W^REFER TO VACO"
+11 IF SUP=10
QUIT "10^I^IMPLEMENTATION"
+12 IF SUP=99
QUIT "99^X^CANCELLED"
+13 QUIT ""
