source: FOIAVistA/trunk/r/POLICE_AND_SECURITY-ES/ESPUOR.m@ 1757

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

initial load of FOIAVistA 6/30/08 version

File size: 611 bytes
Line 
1ESPUOR ;DALISC/CKA - converts Date/Time Received to UOR#;10/92
2 ;;1.0;POLICE & SECURITY;;Mar 31, 1994
3 ;Extrinsic function, Call with string, Returns converted string
4CONV(X) ;This program takes the Date/Time Received -.02 in file 912-Offense filein internal form and converts it to UOR#
5 ;UOR #= The last digit of the year-2 digit month-2 digit day-military time; example 2921031.1500 UOR#=210301500
6 S X=$E(X,3,7)_$TR($E($P(X,".",2)_"ZZZZ",1,4),"Z",0)
7 Q X
8 ;
9PRT(X) ;This prints the UOR# in format YR-MO-DY-TIME
10 S X=$E(X,2,3)_"-"_$E(X,4,5)_"-"_$E(X,6,7)_"-"_$TR($E($P(X,".",2)_"ZZZZZ",1,4),"Z",0)
11QUIT Q X
Note: See TracBrowser for help on using the repository browser.