| [613] | 1 | FSCECD ;SLC/STAFF-NOIS List Edit Close Data ;12/15/96 17:18
|
|---|
| 2 | ;;1.1;NOIS;;Sep 06, 1998
|
|---|
| 3 | ;
|
|---|
| 4 | CDATE(CALL,CDATE,OK) ; from FSCEC, FSCEDC
|
|---|
| 5 | N DIR,ODATE,X,Y K DIR
|
|---|
| 6 | S OK=1,CDATE=$S($G(CDATE):$$FMTE^XLFDT(CDATE),$L($G(CDATE)):CDATE,1:"TODAY")
|
|---|
| 7 | S ODATE=$P($G(^FSCD("CALL",+$G(CALL),0)),U,3) I 'ODATE S ODATE=DT
|
|---|
| 8 | S DIR(0)="DA^"_ODATE_":DT:EPX",DIR("A")="Date resolved: " S:$L(CDATE) DIR("B")=CDATE
|
|---|
| 9 | S DIR("?",1)="Enter the date the call was closed."
|
|---|
| 10 | S DIR("?",2)="Date must be from "_$$FMTE^XLFDT(ODATE)_" to TODAY."
|
|---|
| 11 | S DIR("?",3)="Enter '^' to exit or '??' for more help."
|
|---|
| 12 | S DIR("?")="^D HELP^%DTC,HELP^FSCU(.DIR)"
|
|---|
| 13 | S DIR("??")="FSC U1 NOIS"
|
|---|
| 14 | D ^DIR K DIR
|
|---|
| 15 | I $D(DIRUT) S OK=0 Q
|
|---|
| 16 | S CDATE=Y
|
|---|
| 17 | Q
|
|---|
| 18 | ;
|
|---|
| 19 | FUNC(FUNC,OK) ; from FSCEC
|
|---|
| 20 | N DIC,X,Y K DIC
|
|---|
| 21 | S OK=1,FUNC=$S($G(FUNC):$$VALUE^FSCGET(FUNC,7106.4,.01),$L($G(FUNC)):FUNC,1:"SUPPORT")
|
|---|
| 22 | S DIC=7106.4,DIC(0)="AEMOQ",DIC("A")="Functional Area: ",DIC("B")=FUNC,DIC("S")="I '$P(^(0),U,2)"
|
|---|
| 23 | D ^DIC K DIC
|
|---|
| 24 | I Y<1 S FUNC="",OK=0 Q
|
|---|
| 25 | S FUNC=+Y
|
|---|
| 26 | Q
|
|---|
| 27 | ;
|
|---|
| 28 | TASK(TASK,OK) ; from FSCEC
|
|---|
| 29 | N DIC,X,Y K DIC
|
|---|
| 30 | S OK=1,TASK=$S($G(TASK):$$VALUE^FSCGET(TASK,7106.3,.01),$L($G(TASK)):TASK,1:"PROBLEM RESOLUTION")
|
|---|
| 31 | S DIC=7106.3,DIC(0)="AEMOQ",DIC("A")="Task: ",DIC("B")=TASK,DIC("S")="I '$P(^(0),U,2)"
|
|---|
| 32 | D ^DIC K DIC
|
|---|
| 33 | I Y<1 S TASK="",OK=0 Q
|
|---|
| 34 | S TASK=+Y
|
|---|
| 35 | Q
|
|---|
