ESPVEH ;DALISC/CKA - VEHICLE INQUIRY ;12/91
;;1.0;POLICE & SECURITY;;Mar 31, 1994
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
S DIC="^ESP(910.2,",DA=+Y D EN^DIQ G START
Q Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HESPVEH 272 printed Dec 13, 2024@02:30:56 Page 2
ESPVEH ;DALISC/CKA - VEHICLE INQUIRY ;12/91
+1 ;;1.0;POLICE & SECURITY;;Mar 31, 1994
START SET DIC="^ESP(910.2,"
SET DIC("A")="Select Vehicle Registration: "
SET DIC(0)="AEMQ"
SET DIC("S")="I $P(^(0),""^"",4)=1"
DO ^DIC
KILL DIC
IF Y<0
GOTO Q
+1 SET DIC="^ESP(910.2,"
SET DA=+Y
DO EN^DIQ
GOTO START
Q QUIT
