PRCAI78.m

PRCAI78 ;WISC/RFJ-patch 78 post init ;1 Sep 99

 ;;4.5;Accounts Receivable;**78**;Mar 20, 1995

 ;;Per VHA Directive 10-93-142, this routine should not be modified.

 Q

 ;

 ;

POST ;  start post init

 ;

 ;  approval in DBIA 2903

 ;  set write identifiers for file 433 (removes old id that references calm)

 S ^DD(433,0,"ID","WR1")="I +$P(^(0),U,4)<2 D EN^DDIOL(""  TRANSACTION STATUS: INCOMPLETE"","""",""?0"")"

 K ^DD(433,0,"ID","WR2")

 ;

 Q

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---PRCAI78   453     printed  Apr 09, 2024@20:45:34                                                                                                                                                                                                      Page 2

PRCAI78   ;WISC/RFJ-patch 78 post init ;1 Sep 99

 +1       ;;4.5;Accounts Receivable;**78**;Mar 20, 1995

 +2       ;;Per VHA Directive 10-93-142, this routine should not be modified.

 +3        QUIT 

 +4       ;

 +5       ;

POST      ;  start post init

 +1       ;

 +2       ;  approval in DBIA 2903

 +3       ;  set write identifiers for file 433 (removes old id that references calm)

 +4        SET ^DD(433,0,"ID","WR1")="I +$P(^(0),U,4)<2 D EN^DDIOL(""  TRANSACTION STATUS: INCOMPLETE"","""",""?0"")"

 +5        KILL ^DD(433,0,"ID","WR2")

 +6       ;

 +7        QUIT