Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Routine: FSCLMPES

FSCLMPES.m

Go to the documentation of this file.
  1. FSCLMPES ;SLC/STAFF-NOIS List Manager Protocol Edit Status ;5/14/97 10:16
  1. ;;1.1;NOIS;;Sep 06, 1998
  1. ;
  1. STATUS ; from FSCLMP
  1. N CALLNUM,OK,OLDSTAT,REOPEN,STATUS
  1. S CALLNUM=$$CALL^FSCLMPE1(FSCCNT)
  1. S OLDSTAT=$$STATCALL^FSCESU(CALLNUM)
  1. I '$$ACCESS(DUZ,CALLNUM,+OLDSTAT) D Q
  1. .W !,"You do not have access to change the status of this call." H 2
  1. I 'OLDSTAT D STATUS^FSCES(CALLNUM,"",1) D UPDATE^FSCEU(CALLNUM) W !,"This call did not have a complete status. The status is now OPEN.",$C(7) H 2 Q
  1. W !,"Current Status is ",$P(OLDSTAT,U,3)
  1. S STATUS=+OLDSTAT
  1. D ASK(.STATUS,.REOPEN,.OK)
  1. I 'OK Q
  1. I STATUS=2 D RES^FSCLMPE1 Q
  1. I REOPEN D REOPEN(.OK) I 'OK Q
  1. I REOPEN D GOODWKLD^FSCEWKLD(CALLNUM)
  1. D STATUS^FSCES(CALLNUM,+OLDSTAT,STATUS,REOPEN)
  1. I STATUS=6 D PATCH(CALLNUM,.OK) I 'OK D UPDATE^FSCEU(CALLNUM) Q
  1. D NOTE(.OK) I OK D
  1. .N OPER
  1. .D DATA^FSCEN("ACTION",.OPER)
  1. .I OPER="TIMEOUT" Q
  1. .I OPER="QUIT" Q
  1. .I OPER="ACCEPT" D NOTE^FSCEF(CALLNUM,"ACTION")
  1. I STATUS=99 D BADWKLD^FSCEWKLD(CALLNUM)
  1. E D WKLD^FSCEWKLD(CALLNUM,1)
  1. D UPDATE^FSCEU(CALLNUM)
  1. Q
  1. ;
  1. ACCESS(USER,CALL,STATUS) ; $$(user,call,status) -> 1 to allow editing else 0
  1. I $$ACCESS^FSCU(USER,"SPEC") Q 1
  1. I '(STATUS=2!(STATUS=99)) Q 0
  1. I USER=$P($G(^FSCD("CALL",CALL,0)),U,6) Q 1
  1. I USER=$P($G(^FSCD("CALL",CALL,120)),U,20) Q 1
  1. Q 0
  1. ;
  1. PATCH(DA,OK) ;
  1. N DIE,DR,X,Y S OK=1
  1. S DIE="^FSCD(""CALL"",",DR=7
  1. D ^DIE
  1. I $D(DTOUT) S OK=0
  1. Q
  1. ;
  1. NOTE(OK) ;
  1. N DIR,X,Y K DIR S OK=0
  1. S DIR(0)="YAO",DIR("A")="Include a note with this status change? ",DIR("B")="NO"
  1. S DIR("?",1)="Enter YES to make a note on this call."
  1. S DIR("?",2)="Enter NO change the status without making a note."
  1. S DIR("?")="^D HELP^FSCU(.DIR)"
  1. S DIR("??")="FSC U1 NOIS"
  1. D ^DIR K DIR
  1. I $D(DIRUT) Q
  1. I Y=1 S OK=1
  1. Q
  1. ;
  1. ASK(STATUS,REOPEN,OK) ;
  1. N DIC,X,Y K DIC
  1. S (OK,REOPEN)=0
  1. I '$G(STATUS) Q
  1. I STATUS=2!(STATUS=99) S (OK,REOPEN,STATUS)=1 Q ; closed or cancelled can only be reopened
  1. S DIC=7106.1,DIC(0)="AEMOQ",DIC("A")="Select Status: "
  1. S DIC("S")="I $D(^FSC(""STATUS"",STATUS,1,""B"",+Y))"
  1. D ^DIC K DIC
  1. I Y<1 Q
  1. S OK=1,STATUS=+Y
  1. Q
  1. ;
  1. REOPEN(OK) ;
  1. N DIR,X,Y K DIR S OK=0
  1. S DIR(0)="YAO",DIR("A")="Are you sure you want to REOPEN this call? ",DIR("B")="NO"
  1. S DIR("?",1)="Enter YES to reopen this call. The status will return to open"
  1. S DIR("?",2)="allowing editing, referrals, etc."
  1. S DIR("?",3)="Enter NO or '^' to exit without reopening the call, '??' for more help."
  1. S DIR("?")="^D HELP^FSCU(.DIR)"
  1. S DIR("??")="FSC U1 NOIS"
  1. D ^DIR K DIR
  1. I $D(DIRUT) Q
  1. I Y=1 S OK=1
  1. Q