PRSAUD.m

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 ---PRSAUD   738     printed  Apr 09, 2024@21:29:14                                                                                                                                                                                                       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