| 1 | FSCLMPOE ;SLC/STAFF-NOIS List Manager Protocol Other Edit ;1/11/98 18:36
|
|---|
| 2 | ;;1.1;NOIS;;Sep 06, 1998
|
|---|
| 3 | ;
|
|---|
| 4 | EDITS(CALL) ; from FSCLMPO
|
|---|
| 5 | N CNT,LINE,NUM,OK,STATUS0,ZERO
|
|---|
| 6 | S OK=1,ZERO=^FSCD("CALL",CALL,0),STATUS0=^(120)
|
|---|
| 7 | W !,"It's been ",+$P(ZERO,U,18)," days since this call was first entered."
|
|---|
| 8 | W !,"This call was last edited on ",$P($$FMTE^XLFDT($P(STATUS0,U,4),1),":",1,2)," (",+$P(ZERO,U,19)," days ago) by ",$$VALUE^FSCGET($P(STATUS0,U,5),7100,124),"."
|
|---|
| 9 | W !,"The last status change was ",+$P(ZERO,U,23)," days ago."
|
|---|
| 10 | S CNT=4
|
|---|
| 11 | I $P(ZERO,U,4),$P(ZERO,U,3) W !,"The number of days from reported until closed was ",$$FMDIFF^XLFDT($P(ZERO,U,4),$P(ZERO,U,3),1)," days." S CNT=CNT+1
|
|---|
| 12 | W !,"Status History:" S CNT=CNT+1
|
|---|
| 13 | S OK=1,NUM=0 F S NUM=$O(^FSCD("CALL",CALL,110,NUM)) Q:NUM<1 S LINE=^(NUM,0) D I 'OK Q
|
|---|
| 14 | .W !,LINE
|
|---|
| 15 | .S CNT=CNT+1 I CNT'<(IOSL-1) S CNT=1 D PAUSE^FSCU(.OK) I 'OK Q
|
|---|
| 16 | I 'OK Q
|
|---|
| 17 | I $O(^FSCD("CALL",CALL,100,0)) D
|
|---|
| 18 | .W !,"Audit History:"
|
|---|
| 19 | .S CNT=CNT+1
|
|---|
| 20 | .S NUM=0 F S NUM=$O(^FSCD("CALL",CALL,100,NUM)) Q:NUM<1 S LINE=^(NUM,0) D I 'OK Q
|
|---|
| 21 | ..W !,LINE
|
|---|
| 22 | ..S CNT=CNT+1 I CNT'<(IOSL-1) S CNT=1 D PAUSE^FSCU(.OK) I 'OK Q
|
|---|
| 23 | I 'OK Q
|
|---|
| 24 | D PAUSE^FSCU(.OK)
|
|---|
| 25 | Q
|
|---|
