PRSAUD ; HISC/REL-File Audit Record ;8/30/95 09:48
;;4.0;PAID;**132**;Sep 21, 1995;Build 13
I AUT'="H" S DIR(0)="F^3:60",DIR("A")="Corrected Time Card Remarks" W ! D ^DIR S AUR(7)=Y I Y["^" W !!,"Abort. Correction is not being filed." Q
I '$D(^PRST(458,PPI,"E",DFN,"X")) S ^PRST(458,PPI,"E",DFN,"X",0)="^458.1101A^^"
L +^PRST(458,PPI,"E",DFN,"X",0) S AUN=$P(^PRST(458,PPI,"E",DFN,"X",0),"^",3)+1,$P(^(0),"^",3,4)=AUN_"^"_AUN L -^PRST(458,PPI,"E",DFN,"X",0)
S ^PRST(458,PPI,"E",DFN,"X",AUN,0)=AUN_"^"_NOW_"^"_DUZ_"^"_AUT_"^"_AUS
F AUDN=1:1:8 I $D(AUR(AUDN)) S ^PRST(458,PPI,"E",DFN,"X",AUN,AUDN)=AUR(AUDN)
S:"ARS"[AUS ^PRST(458,"AX"_AUS,DFN,PPI,AUN)="" D UPD^PRSASAL:AUS="R",APP^PRSASAL:AUS="S"
K AUDN,AUN,AUT,AUR,AUS Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HPRSAUD 738 printed Dec 13, 2024@02:24:56 Page 2
PRSAUD ; HISC/REL-File Audit Record ;8/30/95 09:48
+1 ;;4.0;PAID;**132**;Sep 21, 1995;Build 13
+2 IF AUT'="H"
SET DIR(0)="F^3:60"
SET DIR("A")="Corrected Time Card Remarks"
WRITE !
DO ^DIR
SET AUR(7)=Y
IF Y["^"
WRITE !!,"Abort. Correction is not being filed."
QUIT
+3 IF '$DATA(^PRST(458,PPI,"E",DFN,"X"))
SET ^PRST(458,PPI,"E",DFN,"X",0)="^458.1101A^^"
+4 LOCK +^PRST(458,PPI,"E",DFN,"X",0)
SET AUN=$PIECE(^PRST(458,PPI,"E",DFN,"X",0),"^",3)+1
SET $PIECE(^(0),"^",3,4)=AUN_"^"_AUN
LOCK -^PRST(458,PPI,"E",DFN,"X",0)
+5 SET ^PRST(458,PPI,"E",DFN,"X",AUN,0)=AUN_"^"_NOW_"^"_DUZ_"^"_AUT_"^"_AUS
+6 FOR AUDN=1:1:8
IF $DATA(AUR(AUDN))
SET ^PRST(458,PPI,"E",DFN,"X",AUN,AUDN)=AUR(AUDN)
+7 if "ARS"[AUS
SET ^PRST(458,"AX"_AUS,DFN,PPI,AUN)=""
if AUS="R"
DO UPD^PRSASAL
if AUS="S"
DO APP^PRSASAL
+8 KILL AUDN,AUN,AUT,AUR,AUS
QUIT
