- 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 Feb 18, 2025@23:44:07 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 ""
