ESPORO.m

ESPORO ;DALISC/CKA-OPEN A CLOSED OFFENSE REPORT;11/92

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

EN ;

 D DT^DICRW

OR S DIC(0)="AEMZ",DIC("A")="UOR#: ",DIC("S")="I $D(^(5)),$P(^(5),U,5),$P(^(0),U,8)=""C""",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),(ESPOFN,ESPID)=+Y

OP ;OPEN CLOSED REPORT

 D NOW^%DTC

 S NOW=X,$P(^ESP(912,ESPID,0),U,8)="O",$P(^(5),U,5)="R"

 W !?5,$C(7),"This report is now open and may be edited."

 ;COPY REOPENED REPORT TO A NEW ID # IN OFFENSE REPORT FILE

 K DD,D0 S DIC="^ESP(912,",DIC(0)="L",DLAYGO=912 D OFF^ESPOID D FILE^DICN

 S ESPOFN=+Y

 L +^ESP(912,ESPOFN):1 I '$T W !,"Another user is editing this record!!"

 S %X="^ESP(912,"_ESPID_",",%Y="^ESP(912,"_ESPOFN_"," D %XY^%RCR

 S $P(^ESP(912,ESPOFN,0),U)=ESPOFN,$P(^(5),U,5)=1,$P(^(6),U)=ESPID,$P(^(6),U,2)=NOW,$P(^(6),U,3)=DUZ

 ;CROSS REFERENCES SET

 S DIK="^ESP(912,",DA=ESPOFN D IX1^DIK K DIK,DA

 L -^ESP(912,ESPOFN)

EDIT ;CALL TO ESPOFFE TO PRINT/EDIT REPORT

 S ESPVAR=2,ESPID=ESPOFN D PRT^ESPOFFE

EXIT K %ZIS,DA,DIE,DIR,DIRUT,DR,ESPID,ESPN,ESPOFN,ESPVAR,NOW,POP,Y,ZTDESC,ZTRTN,ZTSAVE Q

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---ESPORO   1144     printed  Apr 09, 2024@21:33:25                                                                                                                                                                                                      Page 2

ESPORO    ;DALISC/CKA-OPEN A CLOSED OFFENSE REPORT;11/92

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

EN        ;

 +1        DO DT^DICRW

OR         SET DIC(0)="AEMZ"

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

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

           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 (ESPOFN,ESPID)=+Y

OP        ;OPEN CLOSED REPORT

 +1        DO NOW^%DTC

 +2        SET NOW=X

           SET $PIECE(^ESP(912,ESPID,0),U,8)="O"

           SET $PIECE(^(5),U,5)="R"

 +3        WRITE !?5,$CHAR(7),"This report is now open and may be edited."

 +4       ;COPY REOPENED REPORT TO A NEW ID # IN OFFENSE REPORT FILE

 +5        KILL DD,D0

           SET DIC="^ESP(912,"

           SET DIC(0)="L"

           SET DLAYGO=912

           DO OFF^ESPOID

           DO FILE^DICN

 +6        SET ESPOFN=+Y

 +7        LOCK +^ESP(912,ESPOFN):1

           IF '$TEST

               WRITE !,"Another user is editing this record!!"

 +8        SET %X="^ESP(912,"_ESPID_","

           SET %Y="^ESP(912,"_ESPOFN_","

           DO %XY^%RCR

 +9        SET $PIECE(^ESP(912,ESPOFN,0),U)=ESPOFN

           SET $PIECE(^(5),U,5)=1

           SET $PIECE(^(6),U)=ESPID

           SET $PIECE(^(6),U,2)=NOW

           SET $PIECE(^(6),U,3)=DUZ

 +10      ;CROSS REFERENCES SET

 +11       SET DIK="^ESP(912,"

           SET DA=ESPOFN

           DO IX1^DIK

           KILL DIK,DA

 +12       LOCK -^ESP(912,ESPOFN)

EDIT      ;CALL TO ESPOFFE TO PRINT/EDIT REPORT

 +1        SET ESPVAR=2

           SET ESPID=ESPOFN

           DO PRT^ESPOFFE

EXIT       KILL %ZIS,DA,DIE,DIR,DIRUT,DR,ESPID,ESPN,ESPOFN,ESPVAR,NOW,POP,Y,ZTDESC,ZTRTN,ZTSAVE

           QUIT