FSCLMPOE.m

FSCLMPOE ;SLC/STAFF-NOIS List Manager Protocol Other Edit ;1/11/98  18:36

 ;;1.1;NOIS;;Sep 06, 1998

 ;

EDITS(CALL) ; from FSCLMPO

 N CNT,LINE,NUM,OK,STATUS0,ZERO

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

 W !,"It's been ",+$P(ZERO,U,18)," days since this call was first entered."

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

 W !,"The last status change was ",+$P(ZERO,U,23)," days ago."

 S CNT=4

 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

 W !,"Status History:" S CNT=CNT+1

 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

 .W !,LINE

 .S CNT=CNT+1 I CNT'<(IOSL-1) S CNT=1 D PAUSE^FSCU(.OK) I 'OK Q

 I 'OK Q

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

 .W !,"Audit History:"

 .S CNT=CNT+1

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

 ..W !,LINE

 ..S CNT=CNT+1 I CNT'<(IOSL-1) S CNT=1 D PAUSE^FSCU(.OK) I 'OK Q

 I 'OK Q

 D PAUSE^FSCU(.OK)

 Q

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---FSCLMPOE   1172     printed  Apr 09, 2024@21:21:59                                                                                                                                                                                                    Page 2

FSCLMPOE  ;SLC/STAFF-NOIS List Manager Protocol Other Edit ;1/11/98  18:36

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

 +2       ;

EDITS(CALL) ; from FSCLMPO

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

 +2        SET OK=1

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

           SET STATUS0=^(120)

 +3        WRITE !,"It's been ",+$PIECE(ZERO,U,18)," days since this call was first entered."

 +4        WRITE !,"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),"."

 +5        WRITE !,"The last status change was ",+$PIECE(ZERO,U,23)," days ago."

 +6        SET CNT=4

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

               IF $PIECE(ZERO,U,3)

                   WRITE !,"The number of days from reported until closed was ",$$FMDIFF^XLFDT($PIECE(ZERO,U,4),$PIECE(ZERO,U,3),1)," days."

                   SET CNT=CNT+1

 +8        WRITE !,"Status History:"

           SET CNT=CNT+1

 +9        SET OK=1

           SET NUM=0

           FOR 

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

               if NUM<1

                   QUIT 

               SET LINE=^(NUM,0)

               Begin DoDot:1

 +10               WRITE !,LINE

 +11               SET CNT=CNT+1

                   IF CNT'<(IOSL-1)

                       SET CNT=1

                       DO PAUSE^FSCU(.OK)

                       IF 'OK

                           QUIT 

               End DoDot:1

               IF 'OK

                   QUIT 

 +12       IF 'OK

               QUIT 

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

               Begin DoDot:1

 +14               WRITE !,"Audit History:"

 +15               SET CNT=CNT+1

 +16               SET NUM=0

                   FOR 

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

                       if NUM<1

                           QUIT 

                       SET LINE=^(NUM,0)

                       Begin DoDot:2

 +17                       WRITE !,LINE

 +18                       SET CNT=CNT+1

                           IF CNT'<(IOSL-1)

                               SET CNT=1

                               DO PAUSE^FSCU(.OK)

                               IF 'OK

                                   QUIT 

                       End DoDot:2

                       IF 'OK

                           QUIT 

               End DoDot:1

 +19       IF 'OK

               QUIT 

 +20       DO PAUSE^FSCU(.OK)

 +21       QUIT