RCRCPRE.m

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 ---RCRCPRE   736     printed  Mar 13, 2025@20:52:21                                                                                                                                                                                                      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