FSCRPCOE.m

FSCRPCOE ;SLC/STAFF-NOIS RPC Other Edits ;1/18/97  15:46

 ;;1.1;NOIS;;Sep 06, 1998

 ;

EDITS(IN,OUT) ; from FSCRPX (RPCCallEdits)

 N CALL,CNT,LINE,NUM,STATUS0,ZERO

 S CALL=+$G(^TMP("FSCRPC",$J,"INPUT",1))

 I 'CALL Q

 S CNT=0,ZERO=^FSCD("CALL",CALL,0),STATUS0=^(120)

 S CNT=CNT+1,^TMP("FSCRPC",$J,"OUTPUT",CNT)="It's been "_+$P(ZERO,U,18)_" days since this call was first entered."

 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)_"."

 S CNT=CNT+1,^TMP("FSCRPC",$J,"OUTPUT",CNT)="The last status change was "_+$P(ZERO,U,23)_" days ago."

 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."

 S CNT=CNT+1,^TMP("FSCRPC",$J,"OUTPUT",CNT)="Status History:"

 S NUM=0 F  S NUM=$O(^FSCD("CALL",CALL,110,NUM)) Q:NUM<1  S LINE=^(NUM,0) D

 .S CNT=CNT+1,^TMP("FSCRPC",$J,"OUTPUT",CNT)=LINE

 I $O(^FSCD("CALL",CALL,100,0)) D

 .S CNT=CNT+1,^TMP("FSCRPC",$J,"OUTPUT",CNT)="Audit History:"

 .S NUM=0 F  S NUM=$O(^FSCD("CALL",CALL,100,NUM)) Q:NUM<1  S LINE=^(NUM,0) D

 ..S CNT=CNT+1,^TMP("FSCRPC",$J,"OUTPUT",CNT)=LINE

 Q

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---FSCRPCOE   1297     printed  Apr 09, 2024@21:21:26                                                                                                                                                                                                    Page 2

FSCRPCOE  ;SLC/STAFF-NOIS RPC Other Edits ;1/18/97  15:46

 +1       ;;1.1;NOIS;;Sep 06, 1998

 +2       ;

EDITS(IN,OUT) ; from FSCRPX (RPCCallEdits)

 +1        NEW CALL,CNT,LINE,NUM,STATUS0,ZERO

 +2        SET CALL=+$GET(^TMP("FSCRPC",$JOB,"INPUT",1))

 +3        IF 'CALL

               QUIT 

 +4        SET CNT=0

           SET ZERO=^FSCD("CALL",CALL,0)

           SET STATUS0=^(120)

 +5        SET CNT=CNT+1

           SET ^TMP("FSCRPC",$JOB,"OUTPUT",CNT)="It's been "_+$PIECE(ZERO,U,18)_" days since this call was first entered."

 +6        SET CNT=CNT+1

           SET ^TMP("FSCRPC",$JOB,"OUTPUT",CNT)="This call was last edited on "_$PIECE($$FMTE^XLFDT($PIECE(STATUS0,U,4),1),":",1,2)_" ("_+$PIECE(ZERO,U,19)_" days ago) by "_$$VALUE^FSCGET($PIECE(STATUS0,U,5),7100,124)_"."

 +7        SET CNT=CNT+1

           SET ^TMP("FSCRPC",$JOB,"OUTPUT",CNT)="The last status change was "_+$PIECE(ZERO,U,23)_" days ago."

 +8        IF $PIECE(ZERO,U,4)

               IF $PIECE(ZERO,U,3)

                   SET CNT=CNT+1

                   SET ^TMP("FSCRPC",$JOB,"OUTPUT",CNT)="The number of days from reported until closed was "_$$FMDIFF^XLFDT($PIECE(ZERO,U,4),$PIECE(ZERO,U,3),1)_" days."

 +9        SET CNT=CNT+1

           SET ^TMP("FSCRPC",$JOB,"OUTPUT",CNT)="Status History:"

 +10       SET NUM=0

           FOR 

               SET NUM=$ORDER(^FSCD("CALL",CALL,110,NUM))

               if NUM<1

                   QUIT 

               SET LINE=^(NUM,0)

               Begin DoDot:1

 +11               SET CNT=CNT+1

                   SET ^TMP("FSCRPC",$JOB,"OUTPUT",CNT)=LINE

               End DoDot:1

 +12       IF $ORDER(^FSCD("CALL",CALL,100,0))

               Begin DoDot:1

 +13               SET CNT=CNT+1

                   SET ^TMP("FSCRPC",$JOB,"OUTPUT",CNT)="Audit History:"

 +14               SET NUM=0

                   FOR 

                       SET NUM=$ORDER(^FSCD("CALL",CALL,100,NUM))

                       if NUM<1

                           QUIT 

                       SET LINE=^(NUM,0)

                       Begin DoDot:2

 +15                       SET CNT=CNT+1

                           SET ^TMP("FSCRPC",$JOB,"OUTPUT",CNT)=LINE

                       End DoDot:2

               End DoDot:1

 +16       QUIT