source: WorldVistAEHR/trunk/r/POLICE_AND_SECURITY-ES/ESPCRJO.m@ 1006

Last change on this file since 1006 was 613, checked in by George Lilly, 15 years ago

initial load of WorldVistAEHR

File size: 908 bytes
Line 
1ESPCRJO ;DALISC/SED - CREATE DAILY OPERATIONS JOURNAL ;3/99
2 ;;1.0;POLICE & SECURITY;**27,37,39**;Mar 31, 1994
3EN ;
4 D DT^DICRW
5FAC 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
12JOU 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
21EXIT K DIC,DIE,X,Y,DA
22 Q
23SET(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
Note: See TracBrowser for help on using the repository browser.