| [613] | 1 | FSCRPCOE ;SLC/STAFF-NOIS RPC Other Edits ;1/18/97 15:46
|
|---|
| 2 | ;;1.1;NOIS;;Sep 06, 1998
|
|---|
| 3 | ;
|
|---|
| 4 | EDITS(IN,OUT) ; from FSCRPX (RPCCallEdits)
|
|---|
| 5 | N CALL,CNT,LINE,NUM,STATUS0,ZERO
|
|---|
| 6 | S CALL=+$G(^TMP("FSCRPC",$J,"INPUT",1))
|
|---|
| 7 | I 'CALL Q
|
|---|
| 8 | S CNT=0,ZERO=^FSCD("CALL",CALL,0),STATUS0=^(120)
|
|---|
| 9 | S CNT=CNT+1,^TMP("FSCRPC",$J,"OUTPUT",CNT)="It's been "_+$P(ZERO,U,18)_" days since this call was first entered."
|
|---|
| 10 | S CNT=CNT+1,^TMP("FSCRPC",$J,"OUTPUT",CNT)="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)_"."
|
|---|
| 11 | S CNT=CNT+1,^TMP("FSCRPC",$J,"OUTPUT",CNT)="The last status change was "_+$P(ZERO,U,23)_" days ago."
|
|---|
| 12 | I $P(ZERO,U,4),$P(ZERO,U,3) S CNT=CNT+1,^TMP("FSCRPC",$J,"OUTPUT",CNT)="The number of days from reported until closed was "_$$FMDIFF^XLFDT($P(ZERO,U,4),$P(ZERO,U,3),1)_" days."
|
|---|
| 13 | S CNT=CNT+1,^TMP("FSCRPC",$J,"OUTPUT",CNT)="Status History:"
|
|---|
| 14 | S NUM=0 F S NUM=$O(^FSCD("CALL",CALL,110,NUM)) Q:NUM<1 S LINE=^(NUM,0) D
|
|---|
| 15 | .S CNT=CNT+1,^TMP("FSCRPC",$J,"OUTPUT",CNT)=LINE
|
|---|
| 16 | I $O(^FSCD("CALL",CALL,100,0)) D
|
|---|
| 17 | .S CNT=CNT+1,^TMP("FSCRPC",$J,"OUTPUT",CNT)="Audit History:"
|
|---|
| 18 | .S NUM=0 F S NUM=$O(^FSCD("CALL",CALL,100,NUM)) Q:NUM<1 S LINE=^(NUM,0) D
|
|---|
| 19 | ..S CNT=CNT+1,^TMP("FSCRPC",$J,"OUTPUT",CNT)=LINE
|
|---|
| 20 | Q
|
|---|
