source: WorldVistAEHR/trunk/r/NOIS-FSC/FSCECD.m@ 1593

Last change on this file since 1593 was 613, checked in by George Lilly, 15 years ago

initial load of WorldVistAEHR

File size: 1.2 KB
RevLine 
[613]1FSCECD ;SLC/STAFF-NOIS List Edit Close Data ;12/15/96 17:18
2 ;;1.1;NOIS;;Sep 06, 1998
3 ;
4CDATE(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 ;
19FUNC(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 ;
28TASK(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
Note: See TracBrowser for help on using the repository browser.