Home Package List Routine Alphabetical List Global Alphabetical List FileMan Files List FileMan Sub-Files List Package Component Lists Package-Namespace Mapping
Routine: ESPVEH

ESPVEH.m

Go to the documentation of this file.

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  Apr 09, 2024@21:33:27                                                                                                                                                                                                       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