| 1 | FSCRS ;SLC/STAFF-NOIS Report Special ;1/13/98 16:54
|
|---|
| 2 | ;;1.1;NOIS;;Sep 06, 1998
|
|---|
| 3 | ;
|
|---|
| 4 | SUMMARY ; executed from NOIS FORMAT file
|
|---|
| 5 | N FORMAT K FORMAT ; CALLNUM,LATLINE,LISTNUM,STYLE,TYPE available for use
|
|---|
| 6 | S FORMAT(1)="",FORMAT(1,1)="",FORMAT(1,2)=" This is simply a test to show a format for call # "_CALLNUM
|
|---|
| 7 | I TYPE["VIEW" D VIEW^FSCFORMU(LISTNUM,CALLNUM,.FORMAT,STYLE,.LASTLINE,TYPE) Q
|
|---|
| 8 | D SETUP^FSCFORMU(LISTNUM,CALLNUM,.FORMAT,STYLE,.LASTLINE,TYPE)
|
|---|
| 9 | Q
|
|---|
| 10 | ;
|
|---|
| 11 | STATHIST ;
|
|---|
| 12 | N CNT,DATETIME,DIFF,FORMAT,LINE,LINECNT,LINECNT1,SEQ,START,STATUS,STOP K FORMAT,SEQ
|
|---|
| 13 | S FORMAT(1)=""
|
|---|
| 14 | S (SEQ,LINECNT)=0 F S LINECNT=$O(^FSCD("CALL",CALLNUM,110,LINECNT)) Q:LINECNT<1 S LINE=^(LINECNT,0) D
|
|---|
| 15 | .S SEQ=SEQ+1
|
|---|
| 16 | .D INFO(LINE,.STATUS,.DATETIME)
|
|---|
| 17 | .S SEQ(SEQ)=STATUS_U_DATETIME
|
|---|
| 18 | .S LINECNT1=$O(^FSCD("CALL",CALLNUM,110,LINECNT)) I LINECNT1'<1 S LINE=$G(^(LINECNT1,0))
|
|---|
| 19 | .I LINECNT1<1 D
|
|---|
| 20 | ..S SEQ(SEQ)=SEQ(SEQ)_U_$$FMTE^XLFDT($$NOW^XLFDT)
|
|---|
| 21 | .E D
|
|---|
| 22 | ..D INFO(LINE,.STATUS,.DATETIME)
|
|---|
| 23 | ..S SEQ(SEQ)=SEQ(SEQ)_U_DATETIME
|
|---|
| 24 | S (CNT,SEQ)=0 F S SEQ=$O(SEQ(SEQ)) Q:SEQ<1 D
|
|---|
| 25 | .S LINE=SEQ(SEQ),STATUS=$P(LINE,U),START=$P(LINE,U,2),STOP=$P(LINE,U,3)
|
|---|
| 26 | .S START=$$EXTFM(START),STOP=$$EXTFM(STOP),DIFF=$$FMDIFF^XLFDT(STOP,START,3)
|
|---|
| 27 | .I '$L(DIFF) S DIFF="00:00:00"
|
|---|
| 28 | .S CNT=CNT+1,FORMAT(1,CNT)=STATUS_": "_DIFF
|
|---|
| 29 | I TYPE["VIEW" D VIEW^FSCFORMU(LISTNUM,CALLNUM,.FORMAT,STYLE,.LASTLINE,TYPE) Q
|
|---|
| 30 | D SETUP^FSCFORMU(LISTNUM,CALLNUM,.FORMAT,STYLE,.LASTLINE,TYPE)
|
|---|
| 31 | Q
|
|---|
| 32 | ;
|
|---|
| 33 | INFO(LINE,STATUS,DATETIME) ;
|
|---|
| 34 | S STATUS=$P(LINE," on ")
|
|---|
| 35 | I STATUS["Changed from" S STATUS=$P(STATUS," to ",2)
|
|---|
| 36 | I $E(STATUS,1,2)=" " S STATUS=$E(STATUS,3,99)
|
|---|
| 37 | S DATETIME=$P(LINE," on ",2),DATETIME=$P(DATETIME," by ")
|
|---|
| 38 | Q
|
|---|
| 39 | ;
|
|---|
| 40 | EXTFM(DATETIME) ; $$(external date@time) -> fmdate.time
|
|---|
| 41 | N DATE,MON,NEW,TIME
|
|---|
| 42 | S DATE=$P(DATETIME,"@"),TIME=$P(DATETIME,"@",2)
|
|---|
| 43 | S NEW=$P(DATE," ",3)-1700
|
|---|
| 44 | S MON=$P(DATE," "),MON=$S(MON="Jan":"01",MON="Feb":"02",MON="Mar":"03",MON="Apr":"04",MON="May":"05",MON="Jun":"06",MON="Jul":"07",MON="Aug":"08",MON="Sep":"09",MON="Oct":"10",MON="Nov":"11",1:"12")
|
|---|
| 45 | S NEW=NEW_MON_$P($P(DATE," ",2),",")
|
|---|
| 46 | I $L(TIME) S NEW=NEW_"."_$TR(TIME,":","")
|
|---|
| 47 | Q NEW
|
|---|
