source: FOIAVistA/trunk/r/POLICE_AND_SECURITY-ES/ESPVEH.m@ 1783

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

initial load of FOIAVistA 6/30/08 version

File size: 267 bytes
Line 
1ESPVEH ;DALISC/CKA - VEHICLE INQUIRY ;12/91
2 ;;1.0;POLICE & SECURITY;;Mar 31, 1994
3START S DIC="^ESP(910.2,",DIC("A")="Select Vehicle Registration: ",DIC(0)="AEMQ",DIC("S")="I $P(^(0),""^"",4)=1" D ^DIC K DIC I Y<0 G Q
4 S DIC="^ESP(910.2,",DA=+Y D EN^DIQ G START
5Q Q
Note: See TracBrowser for help on using the repository browser.