| [613] | 1 | FSCELID ;SLC/STAFF-NOIS Edit Log ID ;5/2/98 20:41
|
|---|
| 2 | ;;1.1;NOIS;;Sep 06, 1998
|
|---|
| 3 | ;
|
|---|
| 4 | ID(SITE,RDATE,CALLID,CALLNUM,OK) ; from FSCED, FSCEL
|
|---|
| 5 | N DIC,DIR,GOOD,SITE0,X,Y K DIC,DIR,Y S OK=0
|
|---|
| 6 | S DIC="^FSC(""SITE"",",DIC(0)="AEMQZ",DIC("A")="Select Reporting Location: ",DIC("S")="I '$P(^(0),U,2)"
|
|---|
| 7 | D ^DIC K DIC
|
|---|
| 8 | Q:$D(DTOUT) Q:Y<1
|
|---|
| 9 | S SITE=+Y,SITE0=Y(0)
|
|---|
| 10 | S GOOD=1,RDATE=DT I $$ASKDATE D I 'GOOD Q
|
|---|
| 11 | .S DIR(0)="DAO^0:"_DT_":EX",DIR("A")="Date of Problem: ",DIR("B")="TODAY"
|
|---|
| 12 | .S DIR("?",1)="This is the date the problem is reported."
|
|---|
| 13 | .S DIR("?",2)="This date is used to create the call ID."
|
|---|
| 14 | .S DIR("?")="^D HELP^%DTC,HELP^FSCU(.DIR)"
|
|---|
| 15 | .S DIR("??")="FSC U1 NOIS"
|
|---|
| 16 | .D ^DIR K DIR
|
|---|
| 17 | .I $D(DIRUT) S GOOD=0 Q
|
|---|
| 18 | .S RDATE=+Y
|
|---|
| 19 | D CALLNUM^FSCUC(SITE0,RDATE,.CALLID,.OK)
|
|---|
| 20 | I 'OK Q
|
|---|
| 21 | S OK=0
|
|---|
| 22 | N DA,DIC,DIE,DLAYGO,DR,EPTYPE,ISC,X,Y K DIC
|
|---|
| 23 | S DIC=7100,DIC(0)="XL",DLAYGO=7100,X=CALLID
|
|---|
| 24 | D ^DIC K DIC,DLAYGO
|
|---|
| 25 | I Y<1 Q
|
|---|
| 26 | I $$ACCESS^FSCU(DUZ,"SPEC") S EPTYPE=$O(^FSC("EPTYPE","B","SPECIALIST",0))
|
|---|
| 27 | E S EPTYPE=$O(^FSC("EPTYPE","B","NON-SPECIALIST",0))
|
|---|
| 28 | S CALLNUM=+Y,OK=1
|
|---|
| 29 | S DA=CALLNUM,DIE="^FSCD(""CALL"",",DR="2///`"_SITE_";10///"_RDATE_";120///NOW;5.2///`"_DUZ_";5.3///"_EPTYPE_";101///`"_CALLNUM
|
|---|
| 30 | S ISC=+$P($G(^FSC("SITE",SITE,0)),U,11) I ISC S DR=DR_";2.3///`"_ISC
|
|---|
| 31 | L +^FSCD("CALL",CALLNUM)
|
|---|
| 32 | D ^DIE
|
|---|
| 33 | L -^FSCD("CALL",CALLNUM)
|
|---|
| 34 | D MRE^FSCMR(DUZ,CALLNUM)
|
|---|
| 35 | D STATUS^FSCES(CALLNUM,"",1)
|
|---|
| 36 | Q
|
|---|
| 37 | ;
|
|---|
| 38 | ASKDATE() ;
|
|---|
| 39 | I $$ACCESS^FSCU(DUZ,"SPEC") Q 1
|
|---|
| 40 | Q 0
|
|---|
