source:
WorldVistAEHR/trunk/r/POLICE_AND_SECURITY-ES/ESPVEH.m@
1384
| Last change on this file since 1384 was 613, checked in by , 15 years ago | |
|---|---|
| File size: 267 bytes | |
| Rev | Line | |
|---|---|---|
| [613] | 1 | ESPVEH ;DALISC/CKA - VEHICLE INQUIRY ;12/91 |
| 2 | ;;1.0;POLICE & SECURITY;;Mar 31, 1994 | |
| 3 | START 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 | |
| 5 | Q Q |
Note:
See TracBrowser
for help on using the repository browser.
