- FSCEF ;SLC/STAFF-NOIS List Edit File ;1/13/98 11:25
- ;;1.1;NOIS;;Sep 06, 1998
- ;
- NOTE(CALL,TYPE) ; from FSCEB, FSCEDC, FSCEL, FSCEN, FSCLMPES
- N CNT,LINE,NUM
- S NUM=$P(^FSCD("CALL",CALL,120),U,7)+1,$P(^(120),U,7)=NUM
- S LINE="("_NUM_") "_$$FMTE^XLFDT($$NOW^XLFDT),LINE=$$SETSTR^VALM1($$VALUE^FSCGET(DUZ,7107.1,1),LINE,35,$L(LINE))
- L +^FSCD("CALL",CALL,50):30 I '$T Q ; *** needs ok
- I '$D(^FSCD("CALL",CALL,50,0)) S ^(0)="^^0^0^"_DT_U
- S CNT=1+$O(^FSCD("CALL",CALL,50,"A"),-1)
- S $P(^FSCD("CALL",CALL,120),U,6)=CNT
- S ^FSCD("CALL",CALL,50,CNT,0)=LINE
- 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)
- S CNT=CNT+1,^FSCD("CALL",CALL,50,CNT,0)=""
- S $P(^FSCD("CALL",CALL,50,0),U,3,4)=CNT_U_CNT
- L -^FSCD("CALL",CALL,50)
- D MRE^FSCMR(DUZ,CALL)
- Q
- ;
- CLOSE(CALL,TYPE,CDATE,FUNC,TASK) ; from FSCEB, FSCEC, FSCEDC
- N CNT,DA,DIE,DR,LINE
- S DA=CALL,DIE="^FSCD(""CALL"",",DR="81///`"_DUZ_";82///"_CDATE_";8///`"_FUNC_";9///`"_TASK
- L +^FSCD("CALL",CALL):30 I '$T Q ; *** needs ok
- D ^DIE
- 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)
- S ^FSCD("CALL",CALL,80,0)="^^"_CNT_U_CNT_U_DT_U
- L -^FSCD("CALL",CALL)
- D MRE^FSCMR(DUZ,CALL)
- Q
- --- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HFSCEF 1294 printed Feb 18, 2025@23:43:59 Page 2
- FSCEF ;SLC/STAFF-NOIS List Edit File ;1/13/98 11:25
- +1 ;;1.1;NOIS;;Sep 06, 1998
- +2 ;
- NOTE(CALL,TYPE) ; from FSCEB, FSCEDC, FSCEL, FSCEN, FSCLMPES
- +1 NEW CNT,LINE,NUM
- +2 SET NUM=$PIECE(^FSCD("CALL",CALL,120),U,7)+1
- SET $PIECE(^(120),U,7)=NUM
- +3 SET LINE="("_NUM_") "_$$FMTE^XLFDT($$NOW^XLFDT)
- SET LINE=$$SETSTR^VALM1($$VALUE^FSCGET(DUZ,7107.1,1),LINE,35,$LENGTH(LINE))
- +4 ; *** needs ok
- LOCK +^FSCD("CALL",CALL,50):30
- IF '$TEST
- QUIT
- +5 IF '$DATA(^FSCD("CALL",CALL,50,0))
- SET ^(0)="^^0^0^"_DT_U
- +6 SET CNT=1+$ORDER(^FSCD("CALL",CALL,50,"A"),-1)
- +7 SET $PIECE(^FSCD("CALL",CALL,120),U,6)=CNT
- +8 SET ^FSCD("CALL",CALL,50,CNT,0)=LINE
- +9 SET LINE=0
- FOR
- SET LINE=$ORDER(^TMP("FSC TEXT",$JOB,TYPE,LINE))
- if LINE<1
- QUIT
- SET CNT=CNT+1
- SET ^FSCD("CALL",CALL,50,CNT,0)=^(LINE,0)
- +10 SET CNT=CNT+1
- SET ^FSCD("CALL",CALL,50,CNT,0)=""
- +11 SET $PIECE(^FSCD("CALL",CALL,50,0),U,3,4)=CNT_U_CNT
- +12 LOCK -^FSCD("CALL",CALL,50)
- +13 DO MRE^FSCMR(DUZ,CALL)
- +14 QUIT
- +15 ;
- CLOSE(CALL,TYPE,CDATE,FUNC,TASK) ; from FSCEB, FSCEC, FSCEDC
- +1 NEW CNT,DA,DIE,DR,LINE
- +2 SET DA=CALL
- SET DIE="^FSCD(""CALL"","
- SET DR="81///`"_DUZ_";82///"_CDATE_";8///`"_FUNC_";9///`"_TASK
- +3 ; *** needs ok
- LOCK +^FSCD("CALL",CALL):30
- IF '$TEST
- QUIT
- +4 DO ^DIE
- +5 SET (CNT,LINE)=0
- FOR
- SET LINE=$ORDER(^TMP("FSC TEXT",$JOB,TYPE,LINE))
- if LINE<1
- QUIT
- SET CNT=CNT+1
- SET ^FSCD("CALL",CALL,80,CNT,0)=^(LINE,0)
- +6 SET ^FSCD("CALL",CALL,80,0)="^^"_CNT_U_CNT_U_DT_U
- +7 LOCK -^FSCD("CALL",CALL)
- +8 DO MRE^FSCMR(DUZ,CALL)
- +9 QUIT