| 1 | FSCAUDIT ;SLC/STAFF-NOIS Audit ;9/6/98 20:28
|
|---|
| 2 | ;;1.1;NOIS;;Sep 06, 1998
|
|---|
| 3 | ;
|
|---|
| 4 | AUDIT(CALL,OLDV,NEWV) ; from FSCLMPE1, FSCRPCEB, FSCRPCEC, FSCRPCW
|
|---|
| 5 | ; Call is the internal entry number from 7100
|
|---|
| 6 | ; OLDV will be a subscripted variable OLDV(DATENAME)=VALUE
|
|---|
| 7 | ; NEWV will be a subscripted variable NEWV(DATENAME)=VALUE
|
|---|
| 8 | ;
|
|---|
| 9 | I '$G(CALL) Q
|
|---|
| 10 | N ABBREV,CNT,LASTLINE,OK,STR K STR
|
|---|
| 11 | S CNT=0,ABBREV="" F S ABBREV=$O(OLDV(ABBREV)) Q:ABBREV="" D
|
|---|
| 12 | .I OLDV(ABBREV)'=NEWV(ABBREV) D
|
|---|
| 13 | ..I 'CNT S CNT=CNT+1,STR(CNT)="*** "_$$FMTE^XLFDT($$NOW^XLFDT)_" "_$$VALUE^FSCGET(DUZ,7100,5)
|
|---|
| 14 | ..S CNT=CNT+1
|
|---|
| 15 | ..I ABBREV="SUBJECT" S STR(CNT)=$P($G(^FSC("FLD",+$O(^FSC("FLD","AC",ABBREV,0)),0)),U)_": changed from "_OLDV(ABBREV)_" to "_NEWV(ABBREV) Q ; treated separate because no 2nd piece since '^' is allowed in value
|
|---|
| 16 | ..S STR(CNT)=$P($G(^FSC("FLD",+$O(^FSC("FLD","AC",ABBREV,0)),0)),U)_": changed from "
|
|---|
| 17 | ..I $L(STR(CNT))+$L($P(OLDV(ABBREV),U,2))+4<245 S STR(CNT)=STR(CNT)_$P(OLDV(ABBREV),U,2)_" to "
|
|---|
| 18 | ..E S CNT=CNT+1,STR(CNT)=$P(OLDV(ABBREV),U,2)_" to "
|
|---|
| 19 | ..I $L(STR(CNT))+$L($P(NEWV(ABBREV),U,2))<245 S STR(CNT)=STR(CNT)_$P(NEWV(ABBREV),U,2)
|
|---|
| 20 | ..E S CNT=CNT+1,STR(CNT)=$P(NEWV(ABBREV),U,2)
|
|---|
| 21 | I CNT D I 'OK Q
|
|---|
| 22 | .S OK=1
|
|---|
| 23 | .S CNT=CNT+1,STR(CNT)="" ; add an extra line
|
|---|
| 24 | .L +^FSCD("CALL",CALL):30 I '$T S OK=0 Q
|
|---|
| 25 | .S LASTLINE=+$O(^FSCD("CALL",CALL,100,"A"),-1)
|
|---|
| 26 | .S CNT=0 F S CNT=$O(STR(CNT)) Q:CNT<1 D
|
|---|
| 27 | ..S LASTLINE=LASTLINE+1
|
|---|
| 28 | ..S ^FSCD("CALL",CALL,100,LASTLINE,0)=STR(CNT)
|
|---|
| 29 | .S ^FSCD("CALL",CALL,100,0)="^^"_LASTLINE_U_LASTLINE_U_DT_U
|
|---|
| 30 | .L -^FSCD("CALL",CALL)
|
|---|
| 31 | D UPDATE(CALL)
|
|---|
| 32 | K STR
|
|---|
| 33 | Q
|
|---|
| 34 | ;
|
|---|
| 35 | DESC(CALL,OLDV,NEWV) ; from FSCLMPE1, FSCRPCEC, FSCRPCEF
|
|---|
| 36 | I '$G(CALL) Q
|
|---|
| 37 | N ABBREV,CNT,LASTLINE,OK,STR K STR
|
|---|
| 38 | S CNT=0,ABBREV="" F S ABBREV=$O(OLDV(ABBREV)) Q:ABBREV="" D
|
|---|
| 39 | .I OLDV(ABBREV)'=NEWV(ABBREV) D
|
|---|
| 40 | ..I 'CNT S CNT=CNT+1,STR(CNT)="*** "_$$FMTE^XLFDT($$NOW^XLFDT)_" "_$$VALUE^FSCGET(DUZ,7100,5)
|
|---|
| 41 | ..S CNT=CNT+1
|
|---|
| 42 | ..S STR(CNT)=$P($G(^FSC("FLD",+$O(^FSC("FLD","AC",ABBREV,0)),0)),U)_": edited."
|
|---|
| 43 | I CNT D I 'OK Q
|
|---|
| 44 | .S OK=1
|
|---|
| 45 | .S CNT=CNT+1,STR(CNT)="" ; add an extra line
|
|---|
| 46 | .L +^FSCD("CALL",CALL):30 I '$T S OK=0 Q
|
|---|
| 47 | .S LASTLINE=+$O(^FSCD("CALL",CALL,100,"A"),-1)
|
|---|
| 48 | .S CNT=0 F S CNT=$O(STR(CNT)) Q:CNT<1 D
|
|---|
| 49 | ..S LASTLINE=LASTLINE+1
|
|---|
| 50 | ..S ^FSCD("CALL",CALL,100,LASTLINE,0)=STR(CNT)
|
|---|
| 51 | .S ^FSCD("CALL",CALL,100,0)="^^"_LASTLINE_U_LASTLINE_U_DT_U
|
|---|
| 52 | .L -^FSCD("CALL",CALL)
|
|---|
| 53 | D UPDATE(CALL)
|
|---|
| 54 | K STR
|
|---|
| 55 | Q
|
|---|
| 56 | ;
|
|---|
| 57 | UPDATE(DA) ; from FSCEB, FSCEU, FSCRPCEB, FSCRPCEC, FSCRPCEN, FSCRPCF
|
|---|
| 58 | N DIE,DR
|
|---|
| 59 | S DIE="^FSCD(""CALL"",",DR="123///NOW;124///`"_DUZ
|
|---|
| 60 | L +^FSCD("CALL",CALL):30 I '$T Q ; *** needs ok
|
|---|
| 61 | D ^DIE
|
|---|
| 62 | L -^FSCD("CALL",CALL)
|
|---|
| 63 | Q
|
|---|
