FSCECD.m

FSCECD ;SLC/STAFF-NOIS List Edit Close Data ;12/15/96  17:18

 ;;1.1;NOIS;;Sep 06, 1998

 ;

CDATE(CALL,CDATE,OK) ; from FSCEC, FSCEDC

 N DIR,ODATE,X,Y K DIR

 S OK=1,CDATE=$S($G(CDATE):$$FMTE^XLFDT(CDATE),$L($G(CDATE)):CDATE,1:"TODAY")

 S ODATE=$P($G(^FSCD("CALL",+$G(CALL),0)),U,3) I 'ODATE S ODATE=DT

 S DIR(0)="DA^"_ODATE_":DT:EPX",DIR("A")="Date resolved: " S:$L(CDATE) DIR("B")=CDATE

 S DIR("?",1)="Enter the date the call was closed."

 S DIR("?",2)="Date must be from "_$$FMTE^XLFDT(ODATE)_" to TODAY."

 S DIR("?",3)="Enter '^' to exit or '??' for more help."

 S DIR("?")="^D HELP^%DTC,HELP^FSCU(.DIR)"

 S DIR("??")="FSC U1 NOIS"

 D ^DIR K DIR

 I $D(DIRUT) S OK=0 Q

 S CDATE=Y

 Q

 ;

FUNC(FUNC,OK) ; from FSCEC

 N DIC,X,Y K DIC

 S OK=1,FUNC=$S($G(FUNC):$$VALUE^FSCGET(FUNC,7106.4,.01),$L($G(FUNC)):FUNC,1:"SUPPORT")

 S DIC=7106.4,DIC(0)="AEMOQ",DIC("A")="Functional Area: ",DIC("B")=FUNC,DIC("S")="I '$P(^(0),U,2)"

 D ^DIC K DIC

 I Y<1 S FUNC="",OK=0 Q

 S FUNC=+Y

 Q

 ;

TASK(TASK,OK) ; from FSCEC

 N DIC,X,Y K DIC

 S OK=1,TASK=$S($G(TASK):$$VALUE^FSCGET(TASK,7106.3,.01),$L($G(TASK)):TASK,1:"PROBLEM RESOLUTION")

 S DIC=7106.3,DIC(0)="AEMOQ",DIC("A")="Task: ",DIC("B")=TASK,DIC("S")="I '$P(^(0),U,2)"

 D ^DIC K DIC

 I Y<1 S TASK="",OK=0 Q

 S TASK=+Y

 Q

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---FSCECD   1290     printed  Sep 02, 2024@19:02:42                                                                                                                                                                                                      Page 2

FSCECD    ;SLC/STAFF-NOIS List Edit Close Data ;12/15/96  17:18

 +1       ;;1.1;NOIS;;Sep 06, 1998

 +2       ;

CDATE(CALL,CDATE,OK) ; from FSCEC, FSCEDC

 +1        NEW DIR,ODATE,X,Y

           KILL DIR

 +2        SET OK=1

           SET CDATE=$SELECT($GET(CDATE):$$FMTE^XLFDT(CDATE),$LENGTH($GET(CDATE)):CDATE,1:"TODAY")

 +3        SET ODATE=$PIECE($GET(^FSCD("CALL",+$GET(CALL),0)),U,3)

           IF 'ODATE

               SET ODATE=DT

 +4        SET DIR(0)="DA^"_ODATE_":DT:EPX"

           SET DIR("A")="Date resolved: "

           if $LENGTH(CDATE)

               SET DIR("B")=CDATE

 +5        SET DIR("?",1)="Enter the date the call was closed."

 +6        SET DIR("?",2)="Date must be from "_$$FMTE^XLFDT(ODATE)_" to TODAY."

 +7        SET DIR("?",3)="Enter '^' to exit or '??' for more help."

 +8        SET DIR("?")="^D HELP^%DTC,HELP^FSCU(.DIR)"

 +9        SET DIR("??")="FSC U1 NOIS"

 +10       DO ^DIR

           KILL DIR

 +11       IF $DATA(DIRUT)

               SET OK=0

               QUIT 

 +12       SET CDATE=Y

 +13       QUIT 

 +14      ;

FUNC(FUNC,OK) ; from FSCEC

 +1        NEW DIC,X,Y

           KILL DIC

 +2        SET OK=1

           SET FUNC=$SELECT($GET(FUNC):$$VALUE^FSCGET(FUNC,7106.4,.01),$LENGTH($GET(FUNC)):FUNC,1:"SUPPORT")

 +3        SET DIC=7106.4

           SET DIC(0)="AEMOQ"

           SET DIC("A")="Functional Area: "

           SET DIC("B")=FUNC

           SET DIC("S")="I '$P(^(0),U,2)"

 +4        DO ^DIC

           KILL DIC

 +5        IF Y<1

               SET FUNC=""

               SET OK=0

               QUIT 

 +6        SET FUNC=+Y

 +7        QUIT 

 +8       ;

TASK(TASK,OK) ; from FSCEC

 +1        NEW DIC,X,Y

           KILL DIC

 +2        SET OK=1

           SET TASK=$SELECT($GET(TASK):$$VALUE^FSCGET(TASK,7106.3,.01),$LENGTH($GET(TASK)):TASK,1:"PROBLEM RESOLUTION")

 +3        SET DIC=7106.3

           SET DIC(0)="AEMOQ"

           SET DIC("A")="Task: "

           SET DIC("B")=TASK

           SET DIC("S")="I '$P(^(0),U,2)"

 +4        DO ^DIC

           KILL DIC

 +5        IF Y<1

               SET TASK=""

               SET OK=0

               QUIT 

 +6        SET TASK=+Y

 +7        QUIT