ESPORR.m

ESPORR ;DALISC/CKA - REVIEW COMPLETED OFFENSE REPORT;12/92

 ;;1.0;POLICE & SECURITY;;Mar 31, 1994

 ;Locked with ESP SUPERVISOR key

EN ;ASK UOR #- can choose only completed reports

 ;If hold ESP CHIEF key then can see confidential reports too

 ;ESPVAR=4

 D DT^DICRW S ESPVAR=4

 I $D(^XUSEC("ESP CHIEF",DUZ)) G ORC

OR S DIC(0)="QAEMZ",DIC("A")="UOR#: ",DIC("S")="I $D(^(5)),$P(^(5),U,2),'$P(^(5),U,4),$P(^(5),U,5),$P(^(0),U,8)=""O""",DIC="^ESP(912,"

 D ^DIC

 G:$D(DTOUT)!($D(DUOUT))!(X="") EXIT

 G:Y<0 OR S ESPDTR=$P(^ESP(912,+Y,0),U,2),(ESPID,ESPOFN)=+Y

 G PRT

ORC S DIC(0)="QAEMZ",DIC("A")="UOR#: ",DIC("S")="I $P(^(5),U,2),$P(^(5),U,5),$P(^(0),U,8)=""O""",DIC="^ESP(912,"

 D ^DIC G:$D(DTOUT)!($D(DUOUT))!(X="") EXIT G:Y<0 ORC S ESPDTR=$P(^ESP(912,+Y,0),U,2),(ESPID,ESPOFN)=+Y

PRT G PRT^ESPOFFE

EXIT K DIC,ESPDTR,ESPID,ESPOFN,ESPUOR,ESPVAR

 QUIT

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---ESPORR   864     printed  Apr 09, 2024@21:32:08                                                                                                                                                                                                       Page 2

ESPORR    ;DALISC/CKA - REVIEW COMPLETED OFFENSE REPORT;12/92

 +1       ;;1.0;POLICE & SECURITY;;Mar 31, 1994

 +2       ;Locked with ESP SUPERVISOR key

EN        ;ASK UOR #- can choose only completed reports

 +1       ;If hold ESP CHIEF key then can see confidential reports too

 +2       ;ESPVAR=4

 +3        DO DT^DICRW

           SET ESPVAR=4

 +4        IF $DATA(^XUSEC("ESP CHIEF",DUZ))

               GOTO ORC

OR         SET DIC(0)="QAEMZ"

           SET DIC("A")="UOR#: "

           SET DIC("S")="I $D(^(5)),$P(^(5),U,2),'$P(^(5),U,4),$P(^(5),U,5),$P(^(0),U,8)=""O"""

           SET DIC="^ESP(912,"

 +1        DO ^DIC

 +2        if $DATA(DTOUT)!($DATA(DUOUT))!(X="")

               GOTO EXIT

 +3        if Y<0

               GOTO OR

           SET ESPDTR=$PIECE(^ESP(912,+Y,0),U,2)

           SET (ESPID,ESPOFN)=+Y

 +4        GOTO PRT

ORC        SET DIC(0)="QAEMZ"

           SET DIC("A")="UOR#: "

           SET DIC("S")="I $P(^(5),U,2),$P(^(5),U,5),$P(^(0),U,8)=""O"""

           SET DIC="^ESP(912,"

 +1        DO ^DIC

           if $DATA(DTOUT)!($DATA(DUOUT))!(X="")

               GOTO EXIT

           if Y<0

               GOTO ORC

           SET ESPDTR=$PIECE(^ESP(912,+Y,0),U,2)

           SET (ESPID,ESPOFN)=+Y

PRT        GOTO PRT^ESPOFFE

EXIT       KILL DIC,ESPDTR,ESPID,ESPOFN,ESPUOR,ESPVAR

 +1        QUIT