- 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 ---[H[J[2J[HFSCECD 1290 printed Feb 18, 2025@23:43:56 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