ESPCRJO.m

ESPCRJO ;DALISC/SED - CREATE DAILY OPERATIONS JOURNAL ;3/99

 ;;1.0;POLICE & SECURITY;**27,37,39**;Mar 31, 1994

EN ;

 D DT^DICRW

FAC K DIC

 S DIC("A")="Select Facility: ",DIC(0)="QAEMZ",DIC="^DG(40.8,"

 D ^DIC

 G:$D(DTOUT)!($D(DUOUT))!(+Y'>0) EXIT

 K DIC

 S:+Y>0 DIC("S")="I $P(^(0),U,2)="_+Y

 S ESPFAC=+Y

JOU S DIC(0)="QAEMZL",DIC="^ESP(916,",DLAYGO=916

 D ^DIC

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

 I X?4N S X="" W !!,$C(7),"*********Must key a full date, (Month, Day, Year) ***********",! G JOU

 I Y<0 W !,$C(7),"DATE not found.  Please try again." G JOU

 K DIC

 S DA=+Y

 S DR="[ESP CREATE JOURNAL]",DIE="^ESP(916,"

 D ^DIE

EXIT K DIC,DIE,X,Y,DA

 Q

SET(NEWKEY,TYPE) ;PULL BADGE/RANK FOR SHIFT OFFICERS

 S HESPN=DA,DIC="^VA(200,",DA=NEWKEY,DR="910.1;910.2",DIQ(0)="E",DIQ="POLINF" D EN^DIQ1

 S:TYPE=1 SX=POLINF(200,DA,910.1,"E") S:TYPE=2 SX=POLINF(200,DA,910.2,"E")

 S DA=HESPN

 K DIC,DIQ,POLINF,HESPN

 Q SX

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---ESPCRJO   936     printed  Apr 09, 2024@21:32:03                                                                                                                                                                                                      Page 2

ESPCRJO   ;DALISC/SED - CREATE DAILY OPERATIONS JOURNAL ;3/99

 +1       ;;1.0;POLICE & SECURITY;**27,37,39**;Mar 31, 1994

EN        ;

 +1        DO DT^DICRW

FAC        KILL DIC

 +1        SET DIC("A")="Select Facility: "

           SET DIC(0)="QAEMZ"

           SET DIC="^DG(40.8,"

 +2        DO ^DIC

 +3        if $DATA(DTOUT)!($DATA(DUOUT))!(+Y'>0)

               GOTO EXIT

 +4        KILL DIC

 +5        if +Y>0

               SET DIC("S")="I $P(^(0),U,2)="_+Y

 +6        SET ESPFAC=+Y

JOU        SET DIC(0)="QAEMZL"

           SET DIC="^ESP(916,"

           SET DLAYGO=916

 +1        DO ^DIC

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

               GOTO FAC

 +3        IF X?4N

               SET X=""

               WRITE !!,$CHAR(7),"*********Must key a full date, (Month, Day, Year) ***********",!

               GOTO JOU

 +4        IF Y<0

               WRITE !,$CHAR(7),"DATE not found.  Please try again."

               GOTO JOU

 +5        KILL DIC

 +6        SET DA=+Y

 +7        SET DR="[ESP CREATE JOURNAL]"

           SET DIE="^ESP(916,"

 +8        DO ^DIE

EXIT       KILL DIC,DIE,X,Y,DA

 +1        QUIT 

SET(NEWKEY,TYPE) ;PULL BADGE/RANK FOR SHIFT OFFICERS

 +1        SET HESPN=DA

           SET DIC="^VA(200,"

           SET DA=NEWKEY

           SET DR="910.1;910.2"

           SET DIQ(0)="E"

           SET DIQ="POLINF"

           DO EN^DIQ1

 +2        if TYPE=1

               SET SX=POLINF(200,DA,910.1,"E")

           if TYPE=2

               SET SX=POLINF(200,DA,910.2,"E")

 +3        SET DA=HESPN

 +4        KILL DIC,DIQ,POLINF,HESPN

 +5        QUIT SX