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 ---[H[J[2J[HFSCLMPOE 1172 printed Dec 13, 2024@02:18:28 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
