source: FOIAVistA/trunk/r/NOIS-FSC/FSCELID.m

Last change on this file was 628, checked in by George Lilly, 15 years ago

initial load of FOIAVistA 6/30/08 version

File size: 1.4 KB
Line 
1FSCELID ;SLC/STAFF-NOIS Edit Log ID ;5/2/98 20:41
2 ;;1.1;NOIS;;Sep 06, 1998
3 ;
4ID(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 ;
38ASKDATE() ;
39 I $$ACCESS^FSCU(DUZ,"SPEC") Q 1
40 Q 0
Note: See TracBrowser for help on using the repository browser.