RCRCPRE ;WASH-ISC@ALTOONA,PA/LDB-Pre-init for RC RC SERV ;9/23/98 9:07 AM
V ;;4.5;Accounts Receivable;**122,147**;Mar 20, 1995
;;Per VHA Directive 10-93-142, this routine should not be modified.
EN ;Entry point to set SERVER ACTION field in RC RC SERV option
N DIC,RCRC,X,Y
S DIC="^DIC(19,",X="RC RC SERV",DIC(0)="MO" D ^DIC
Q:Y=-1
S RCRC=$P($G(^DIC(19,+Y,220)),"^",2) Q:RCRC=""
S ^TMP("RCRCPRE",$J)=RCRC
S $P(^DIC(19,+Y,220),"^",2)="N"
Q
;
END ;Entry point to reset SERVER ACTION field in RC RC SERV OPTION
N DIC,RCRC,X,Y
S DIC="^DIC(19,",X="RC RC SERV",DIC(0)="MO" D ^DIC
Q:Y=-1
S RCRC=^TMP("RCRCPRE",$J) Q:RCRC=""
Q:'$D(^DIC(19,+Y,220))
S $P(^DIC(19,+Y,220),"^",2)=RCRC
K ^TMP("RCRCPRE",$J)
Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HRCRCPRE 736 printed Nov 22, 2024@16:57:53 Page 2
RCRCPRE ;WASH-ISC@ALTOONA,PA/LDB-Pre-init for RC RC SERV ;9/23/98 9:07 AM
V ;;4.5;Accounts Receivable;**122,147**;Mar 20, 1995
+1 ;;Per VHA Directive 10-93-142, this routine should not be modified.
EN ;Entry point to set SERVER ACTION field in RC RC SERV option
+1 NEW DIC,RCRC,X,Y
+2 SET DIC="^DIC(19,"
SET X="RC RC SERV"
SET DIC(0)="MO"
DO ^DIC
+3 if Y=-1
QUIT
+4 SET RCRC=$PIECE($GET(^DIC(19,+Y,220)),"^",2)
if RCRC=""
QUIT
+5 SET ^TMP("RCRCPRE",$JOB)=RCRC
+6 SET $PIECE(^DIC(19,+Y,220),"^",2)="N"
+7 QUIT
+8 ;
END ;Entry point to reset SERVER ACTION field in RC RC SERV OPTION
+1 NEW DIC,RCRC,X,Y
+2 SET DIC="^DIC(19,"
SET X="RC RC SERV"
SET DIC(0)="MO"
DO ^DIC
+3 if Y=-1
QUIT
+4 SET RCRC=^TMP("RCRCPRE",$JOB)
if RCRC=""
QUIT
+5 if '$DATA(^DIC(19,+Y,220))
QUIT
+6 SET $PIECE(^DIC(19,+Y,220),"^",2)=RCRC
+7 KILL ^TMP("RCRCPRE",$JOB)
+8 QUIT
