| 1 | ESPCRJO ;DALISC/SED - CREATE DAILY OPERATIONS JOURNAL ;3/99
|
|---|
| 2 | ;;1.0;POLICE & SECURITY;**27,37,39**;Mar 31, 1994
|
|---|
| 3 | EN ;
|
|---|
| 4 | D DT^DICRW
|
|---|
| 5 | FAC K DIC
|
|---|
| 6 | S DIC("A")="Select Facility: ",DIC(0)="QAEMZ",DIC="^DG(40.8,"
|
|---|
| 7 | D ^DIC
|
|---|
| 8 | G:$D(DTOUT)!($D(DUOUT))!(+Y'>0) EXIT
|
|---|
| 9 | K DIC
|
|---|
| 10 | S:+Y>0 DIC("S")="I $P(^(0),U,2)="_+Y
|
|---|
| 11 | S ESPFAC=+Y
|
|---|
| 12 | JOU S DIC(0)="QAEMZL",DIC="^ESP(916,",DLAYGO=916
|
|---|
| 13 | D ^DIC
|
|---|
| 14 | G:$D(DTOUT)!($D(DUOUT))!(X="") FAC
|
|---|
| 15 | I X?4N S X="" W !!,$C(7),"*********Must key a full date, (Month, Day, Year) ***********",! G JOU
|
|---|
| 16 | I Y<0 W !,$C(7),"DATE not found. Please try again." G JOU
|
|---|
| 17 | K DIC
|
|---|
| 18 | S DA=+Y
|
|---|
| 19 | S DR="[ESP CREATE JOURNAL]",DIE="^ESP(916,"
|
|---|
| 20 | D ^DIE
|
|---|
| 21 | EXIT K DIC,DIE,X,Y,DA
|
|---|
| 22 | Q
|
|---|
| 23 | SET(NEWKEY,TYPE) ;PULL BADGE/RANK FOR SHIFT OFFICERS
|
|---|
| 24 | S HESPN=DA,DIC="^VA(200,",DA=NEWKEY,DR="910.1;910.2",DIQ(0)="E",DIQ="POLINF" D EN^DIQ1
|
|---|
| 25 | S:TYPE=1 SX=POLINF(200,DA,910.1,"E") S:TYPE=2 SX=POLINF(200,DA,910.2,"E")
|
|---|
| 26 | S DA=HESPN
|
|---|
| 27 | K DIC,DIQ,POLINF,HESPN
|
|---|
| 28 | Q SX
|
|---|
