| [613] | 1 | FSCEF ;SLC/STAFF-NOIS List Edit File ;1/13/98 11:25
|
|---|
| 2 | ;;1.1;NOIS;;Sep 06, 1998
|
|---|
| 3 | ;
|
|---|
| 4 | NOTE(CALL,TYPE) ; from FSCEB, FSCEDC, FSCEL, FSCEN, FSCLMPES
|
|---|
| 5 | N CNT,LINE,NUM
|
|---|
| 6 | S NUM=$P(^FSCD("CALL",CALL,120),U,7)+1,$P(^(120),U,7)=NUM
|
|---|
| 7 | S LINE="("_NUM_") "_$$FMTE^XLFDT($$NOW^XLFDT),LINE=$$SETSTR^VALM1($$VALUE^FSCGET(DUZ,7107.1,1),LINE,35,$L(LINE))
|
|---|
| 8 | L +^FSCD("CALL",CALL,50):30 I '$T Q ; *** needs ok
|
|---|
| 9 | I '$D(^FSCD("CALL",CALL,50,0)) S ^(0)="^^0^0^"_DT_U
|
|---|
| 10 | S CNT=1+$O(^FSCD("CALL",CALL,50,"A"),-1)
|
|---|
| 11 | S $P(^FSCD("CALL",CALL,120),U,6)=CNT
|
|---|
| 12 | S ^FSCD("CALL",CALL,50,CNT,0)=LINE
|
|---|
| 13 | S LINE=0 F S LINE=$O(^TMP("FSC TEXT",$J,TYPE,LINE)) Q:LINE<1 S CNT=CNT+1,^FSCD("CALL",CALL,50,CNT,0)=^(LINE,0)
|
|---|
| 14 | S CNT=CNT+1,^FSCD("CALL",CALL,50,CNT,0)=""
|
|---|
| 15 | S $P(^FSCD("CALL",CALL,50,0),U,3,4)=CNT_U_CNT
|
|---|
| 16 | L -^FSCD("CALL",CALL,50)
|
|---|
| 17 | D MRE^FSCMR(DUZ,CALL)
|
|---|
| 18 | Q
|
|---|
| 19 | ;
|
|---|
| 20 | CLOSE(CALL,TYPE,CDATE,FUNC,TASK) ; from FSCEB, FSCEC, FSCEDC
|
|---|
| 21 | N CNT,DA,DIE,DR,LINE
|
|---|
| 22 | S DA=CALL,DIE="^FSCD(""CALL"",",DR="81///`"_DUZ_";82///"_CDATE_";8///`"_FUNC_";9///`"_TASK
|
|---|
| 23 | L +^FSCD("CALL",CALL):30 I '$T Q ; *** needs ok
|
|---|
| 24 | D ^DIE
|
|---|
| 25 | S (CNT,LINE)=0 F S LINE=$O(^TMP("FSC TEXT",$J,TYPE,LINE)) Q:LINE<1 S CNT=CNT+1,^FSCD("CALL",CALL,80,CNT,0)=^(LINE,0)
|
|---|
| 26 | S ^FSCD("CALL",CALL,80,0)="^^"_CNT_U_CNT_U_DT_U
|
|---|
| 27 | L -^FSCD("CALL",CALL)
|
|---|
| 28 | D MRE^FSCMR(DUZ,CALL)
|
|---|
| 29 | Q
|
|---|
