- 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 Feb 18, 2025@23:51:27 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
