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 ---[H[J[2J[HESPCRJO 936 printed Oct 16, 2024@18:30:20 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
