- 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 Mar 13, 2025@21:23:26 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
