Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Routine: FSCEF

FSCEF.m

Go to the documentation of this file.
  1. FSCEF ;SLC/STAFF-NOIS List Edit File ;1/13/98 11:25
  1. ;;1.1;NOIS;;Sep 06, 1998
  1. ;
  1. NOTE(CALL,TYPE) ; from FSCEB, FSCEDC, FSCEL, FSCEN, FSCLMPES
  1. N CNT,LINE,NUM
  1. S NUM=$P(^FSCD("CALL",CALL,120),U,7)+1,$P(^(120),U,7)=NUM
  1. S LINE="("_NUM_") "_$$FMTE^XLFDT($$NOW^XLFDT),LINE=$$SETSTR^VALM1($$VALUE^FSCGET(DUZ,7107.1,1),LINE,35,$L(LINE))
  1. L +^FSCD("CALL",CALL,50):30 I '$T Q ; *** needs ok
  1. I '$D(^FSCD("CALL",CALL,50,0)) S ^(0)="^^0^0^"_DT_U
  1. S CNT=1+$O(^FSCD("CALL",CALL,50,"A"),-1)
  1. S $P(^FSCD("CALL",CALL,120),U,6)=CNT
  1. S ^FSCD("CALL",CALL,50,CNT,0)=LINE
  1. 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)
  1. S CNT=CNT+1,^FSCD("CALL",CALL,50,CNT,0)=""
  1. S $P(^FSCD("CALL",CALL,50,0),U,3,4)=CNT_U_CNT
  1. L -^FSCD("CALL",CALL,50)
  1. D MRE^FSCMR(DUZ,CALL)
  1. Q
  1. ;
  1. CLOSE(CALL,TYPE,CDATE,FUNC,TASK) ; from FSCEB, FSCEC, FSCEDC
  1. N CNT,DA,DIE,DR,LINE
  1. S DA=CALL,DIE="^FSCD(""CALL"",",DR="81///`"_DUZ_";82///"_CDATE_";8///`"_FUNC_";9///`"_TASK
  1. L +^FSCD("CALL",CALL):30 I '$T Q ; *** needs ok
  1. D ^DIE
  1. 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)
  1. S ^FSCD("CALL",CALL,80,0)="^^"_CNT_U_CNT_U_DT_U
  1. L -^FSCD("CALL",CALL)
  1. D MRE^FSCMR(DUZ,CALL)
  1. Q