OOPSCSN.m

OOPSCSN ;HINES CIOFO/WAA-Finding case number for stub record ;3/5/98

 ;;2.0;ASISTS;;Jun 03, 2002

 ;;

FYEAR(DATE) ; FIND CURRENT FISCAL YEAR FOR A GIVEN DATE

 ; DATE IS THE DATE THAT THE DATE WAS PASSED IN.

 N FYEAR,FYDATE

 S FYEAR=1700+$E(DATE,1,3)

 S FYDATE=$E(DATE,1,3)_"1001" ;FISICAL DATE IF CURRENT YEAR

 I DATE'<FYDATE S FYEAR=FYEAR+1

 Q FYEAR

 ;

NEWR(FYEAR) ;

 N NUM,SEQ

 S NUM="",NUM=$O(^OOPS(2260,"B",NUM),-1)

 I $E(NUM,1,4)'=FYEAR S NUM=FYEAR_"-00000"

 S SEQ=+$E(NUM,6,10)

 S SEQ=SEQ+1 F I=1:1:5-$L(SEQ) S SEQ=0_SEQ

 S NUM=$E(NUM,1,5)_SEQ

 Q NUM

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---OOPSCSN   575     printed  Apr 09, 2024@20:44:57                                                                                                                                                                                                      Page 2

OOPSCSN   ;HINES CIOFO/WAA-Finding case number for stub record ;3/5/98

 +1       ;;2.0;ASISTS;;Jun 03, 2002

 +2       ;;

FYEAR(DATE) ; FIND CURRENT FISCAL YEAR FOR A GIVEN DATE

 +1       ; DATE IS THE DATE THAT THE DATE WAS PASSED IN.

 +2        NEW FYEAR,FYDATE

 +3        SET FYEAR=1700+$EXTRACT(DATE,1,3)

 +4       ;FISICAL DATE IF CURRENT YEAR

           SET FYDATE=$EXTRACT(DATE,1,3)_"1001"

 +5        IF DATE'<FYDATE

               SET FYEAR=FYEAR+1

 +6        QUIT FYEAR

 +7       ;

NEWR(FYEAR) ;

 +1        NEW NUM,SEQ

 +2        SET NUM=""

           SET NUM=$ORDER(^OOPS(2260,"B",NUM),-1)

 +3        IF $EXTRACT(NUM,1,4)'=FYEAR

               SET NUM=FYEAR_"-00000"

 +4        SET SEQ=+$EXTRACT(NUM,6,10)

 +5        SET SEQ=SEQ+1

           FOR I=1:1:5-$LENGTH(SEQ)

               SET SEQ=0_SEQ

 +6        SET NUM=$EXTRACT(NUM,1,5)_SEQ

 +7        QUIT NUM