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 ---[H[J[2J[HPRCAI78 453 printed Dec 13, 2024@01:40:08 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
