FSCESU.m

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 ---FSCESU   692     printed  Apr 09, 2024@21:20:55                                                                                                                                                                                                       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 ""