FSCELSNS ;SLC/STAFF-NOIS Edit Log Setup Non Specialist ;10/13/96 23:56
;;1.1;NOIS;;Sep 06, 1998
;
NEW(CALLID,CALLNUM) ; from FSCEL
N ACTION,DA,DIE,DONE,DR,PH,X,Y
S ACTION="",DONE=0,PH=$$PH^FSCELS(DUZ)
S DA=CALLNUM,DIE="^FSCD(""CALL"","
S DR="2.1T///`"_DUZ_";3T;1T;30Request Description;2.2T"_$S($L(PH):"//"_PH,1:"")_";6T//ROUTINE"
F D I DONE Q
.L +^FSCD("CALL",CALLNUM):30 I '$T D SOMEONE^FSCLMPE1 S DONE=1 Q
.D ^DIE
.L -^FSCD("CALL",CALLNUM)
.I $D(DTOUT) S ACTION="TIMEOUT",DONE=1 Q
.N DIR,X,Y K DIR
.S DIR(0)="SAMO^EDIT:EDIT;CANCEL:CANCEL;FILE:FILE"
.S DIR("A",1)=""
.S DIR("A")="Further action - (E)dit, (C)ancel, or (F)ile: "
.S DIR("?",1)="Enter E to be re-edit this information."
.S DIR("?",2)="Enter C to be cancel this call."
.S DIR("?",3)="Enter F or '^' to file this information."
.S DIR("?",4)="Enter '??' for additional help."
.S DIR("?")="^D HELP^FSCU(.DIR)"
.S DIR("??")="FSC U1 NOIS"
.S DIR("B")=$$DEFAULT(CALLNUM)
.I DIR("B")="EDIT" W !,"Warning - a Module\Version # should be entered.",$C(7)
.D ^DIR
.I Y="EDIT" S DR="3T;1T;30Request Description;2.2T;6T" Q
.S ACTION=Y,DONE=1
.I $D(DTOUT) S ACTION="TIMEOUT"
K DIR
I ACTION="CANCEL" D Q
.;D STATUS^FSCES(CALLNUM,"",1)
.D UPDATE^FSCTASK(CALLNUM)
.D STATUS^FSCES(CALLNUM,1,99)
.D UPDATE^FSCTASK(CALLNUM)
.W !,"This call ("_CALLID_") has been cancelled."
D OPEN^FSCEL(CALLID,CALLNUM)
N NSALERT S NSALERT=$$NSALERT^FSCUP
I NSALERT="F" D
.N CALLS K CALLS S CALLS(CALLNUM)=""
.D BENOTIFY^FSCLMPNB(DUZ,.CALLS,"ALERT","EDITED")
.W !,"You will be alerted whenever this call is edited."
I ACTION="TIMEOUT" Q
I NSALERT'="P" Q
N DIR,X,Y K DIR
S DIR(0)="SAMO^EDITED:EDITED;STATUS CHANGED:STATUS CHANGED;NONE:NONE"
S DIR("A",1)=""
S DIR("A",2)="You can be alerted whenever this request is acted on."
S DIR("A")="Receive notification when (E)dited, (S)tatus changed, or (N)one: ",DIR("B")="EDITED"
S DIR("?",1)="Enter E to be alerted when this request is edited."
S DIR("?",2)="Enter S to be alerted when this requests status changes."
S DIR("?",3)="Enter N to not receive alerts."
S DIR("?",4)="Enter '??' for additional help."
S DIR("?")="^D HELP^FSCU(.DIR)"
S DIR("??")="FSC U1 NOIS"
D ^DIR K DIR
I Y="EDITED"!(Y="STATUS CHANGED") D
.N CALLS K CALLS S CALLS(CALLNUM)=""
.D BENOTIFY^FSCLMPNB(DUZ,.CALLS,"ALERT",Y)
Q ; *** remove this line to allow E3Rs
N DIR,X,Y K DIR
S DIR(0)="SAMO^PROBLEM:PROBLEM;ENHANCEMENT:ENHANCEMENT",DIR("A")="This request concerns a (P)roblem or (E)nhancement? ",DIR("B")="PROBLEM"
S DIR("?",1)="Enter P to log a problem."
S DIR("?",2)="Enter E to log an enhnacement request."
S DIR("?",3)="Enter '??' for additional help."
S DIR("?")="^D HELP^FSCU(.DIR)"
S DIR("??")="FSC U1 NOIS"
D ^DIR K DIR
I Y="PROBLEM"!$D(DIRUT) D OPEN^FSCEL(CALLID,CALLNUM) Q
;D STATUS^FSCES(CALLNUM,"",1)
D UPDATE^FSCTASK(CALLNUM)
D STATUS^FSCES(CALLNUM,1,3)
D UPDATE^FSCTASK(CALLNUM)
D STATUS^FSCES(CALLNUM,3,5)
D UPDATE^FSCTASK(CALLNUM)
Q
;
DEFAULT(CALL) ;
I '$L($G(^FSCD("CALL",CALL,1))),'$P($G(^(0)),U,8),'$O(^(30,0)) Q "CANCEL"
I '$P($G(^FSCD("CALL",CALL,0)),U,8) Q "EDIT"
Q "FILE"
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HFSCELSNS 3205 printed Oct 16, 2024@18:18:14 Page 2
FSCELSNS ;SLC/STAFF-NOIS Edit Log Setup Non Specialist ;10/13/96 23:56
+1 ;;1.1;NOIS;;Sep 06, 1998
+2 ;
NEW(CALLID,CALLNUM) ; from FSCEL
+1 NEW ACTION,DA,DIE,DONE,DR,PH,X,Y
+2 SET ACTION=""
SET DONE=0
SET PH=$$PH^FSCELS(DUZ)
+3 SET DA=CALLNUM
SET DIE="^FSCD(""CALL"","
+4 SET DR="2.1T///`"_DUZ_";3T;1T;30Request Description;2.2T"_$SELECT($LENGTH(PH):"//"_PH,1:"")_";6T//ROUTINE"
+5 FOR
Begin DoDot:1
+6 LOCK +^FSCD("CALL",CALLNUM):30
IF '$TEST
DO SOMEONE^FSCLMPE1
SET DONE=1
QUIT
+7 DO ^DIE
+8 LOCK -^FSCD("CALL",CALLNUM)
+9 IF $DATA(DTOUT)
SET ACTION="TIMEOUT"
SET DONE=1
QUIT
+10 NEW DIR,X,Y
KILL DIR
+11 SET DIR(0)="SAMO^EDIT:EDIT;CANCEL:CANCEL;FILE:FILE"
+12 SET DIR("A",1)=""
+13 SET DIR("A")="Further action - (E)dit, (C)ancel, or (F)ile: "
+14 SET DIR("?",1)="Enter E to be re-edit this information."
+15 SET DIR("?",2)="Enter C to be cancel this call."
+16 SET DIR("?",3)="Enter F or '^' to file this information."
+17 SET DIR("?",4)="Enter '??' for additional help."
+18 SET DIR("?")="^D HELP^FSCU(.DIR)"
+19 SET DIR("??")="FSC U1 NOIS"
+20 SET DIR("B")=$$DEFAULT(CALLNUM)
+21 IF DIR("B")="EDIT"
WRITE !,"Warning - a Module\Version # should be entered.",$CHAR(7)
+22 DO ^DIR
+23 IF Y="EDIT"
SET DR="3T;1T;30Request Description;2.2T;6T"
QUIT
+24 SET ACTION=Y
SET DONE=1
+25 IF $DATA(DTOUT)
SET ACTION="TIMEOUT"
End DoDot:1
IF DONE
QUIT
+26 KILL DIR
+27 IF ACTION="CANCEL"
Begin DoDot:1
+28 ;D STATUS^FSCES(CALLNUM,"",1)
+29 DO UPDATE^FSCTASK(CALLNUM)
+30 DO STATUS^FSCES(CALLNUM,1,99)
+31 DO UPDATE^FSCTASK(CALLNUM)
+32 WRITE !,"This call ("_CALLID_") has been cancelled."
End DoDot:1
QUIT
+33 DO OPEN^FSCEL(CALLID,CALLNUM)
+34 NEW NSALERT
SET NSALERT=$$NSALERT^FSCUP
+35 IF NSALERT="F"
Begin DoDot:1
+36 NEW CALLS
KILL CALLS
SET CALLS(CALLNUM)=""
+37 DO BENOTIFY^FSCLMPNB(DUZ,.CALLS,"ALERT","EDITED")
+38 WRITE !,"You will be alerted whenever this call is edited."
End DoDot:1
+39 IF ACTION="TIMEOUT"
QUIT
+40 IF NSALERT'="P"
QUIT
+41 NEW DIR,X,Y
KILL DIR
+42 SET DIR(0)="SAMO^EDITED:EDITED;STATUS CHANGED:STATUS CHANGED;NONE:NONE"
+43 SET DIR("A",1)=""
+44 SET DIR("A",2)="You can be alerted whenever this request is acted on."
+45 SET DIR("A")="Receive notification when (E)dited, (S)tatus changed, or (N)one: "
SET DIR("B")="EDITED"
+46 SET DIR("?",1)="Enter E to be alerted when this request is edited."
+47 SET DIR("?",2)="Enter S to be alerted when this requests status changes."
+48 SET DIR("?",3)="Enter N to not receive alerts."
+49 SET DIR("?",4)="Enter '??' for additional help."
+50 SET DIR("?")="^D HELP^FSCU(.DIR)"
+51 SET DIR("??")="FSC U1 NOIS"
+52 DO ^DIR
KILL DIR
+53 IF Y="EDITED"!(Y="STATUS CHANGED")
Begin DoDot:1
+54 NEW CALLS
KILL CALLS
SET CALLS(CALLNUM)=""
+55 DO BENOTIFY^FSCLMPNB(DUZ,.CALLS,"ALERT",Y)
End DoDot:1
+56 ; *** remove this line to allow E3Rs
QUIT
+57 NEW DIR,X,Y
KILL DIR
+58 SET DIR(0)="SAMO^PROBLEM:PROBLEM;ENHANCEMENT:ENHANCEMENT"
SET DIR("A")="This request concerns a (P)roblem or (E)nhancement? "
SET DIR("B")="PROBLEM"
+59 SET DIR("?",1)="Enter P to log a problem."
+60 SET DIR("?",2)="Enter E to log an enhnacement request."
+61 SET DIR("?",3)="Enter '??' for additional help."
+62 SET DIR("?")="^D HELP^FSCU(.DIR)"
+63 SET DIR("??")="FSC U1 NOIS"
+64 DO ^DIR
KILL DIR
+65 IF Y="PROBLEM"!$DATA(DIRUT)
DO OPEN^FSCEL(CALLID,CALLNUM)
QUIT
+66 ;D STATUS^FSCES(CALLNUM,"",1)
+67 DO UPDATE^FSCTASK(CALLNUM)
+68 DO STATUS^FSCES(CALLNUM,1,3)
+69 DO UPDATE^FSCTASK(CALLNUM)
+70 DO STATUS^FSCES(CALLNUM,3,5)
+71 DO UPDATE^FSCTASK(CALLNUM)
+72 QUIT
+73 ;
DEFAULT(CALL) ;
+1 IF '$LENGTH($GET(^FSCD("CALL",CALL,1)))
IF '$PIECE($GET(^(0)),U,8)
IF '$ORDER(^(30,0))
QUIT "CANCEL"
+2 IF '$PIECE($GET(^FSCD("CALL",CALL,0)),U,8)
QUIT "EDIT"
+3 QUIT "FILE"
