Changeset 636 for FOIAVistA/tag/r/POLICE_AND_SECURITY-ES

Timestamp:

Dec 4, 2009, 8:26:01 PM (15 years ago)

Author:

George Lilly

Message:

WorldVistAEHR overlayed on FOIAVistA

Location:

FOIAVistA/tag/r

Files:

• . (copied) (copied from FOIAVistA/trunk/r )
• POLICE_AND_SECURITY-ES/ESPQNC.m (modified) (2 diffs)

FOIAVistA/tag/r/POLICE_AND_SECURITY-ES/ESPQNC.m

@@ -1 @@
-ESPQNC ;Albany/VAD - QUICK NAME CHECK ; 11/27/07 2:15pm
- ;;1.0;POLICE & SECURITY;**2,18,21,29,45**;Mar 31, 1994;Build 1
+ESPQNC ;Albany/VAD - QUICK NAME CHECK ;Nov 3, 1999
+ ;;1.0;POLICE & SECURITY;**2,18,21,29**;Mar 31, 1994
 START W !! S DIC("A")="Select Name: ",DIC="^ESP(910,",DIC(0)="AEMQZ" D ^DIC I Y<0 G EXIT
  S ESPNAM=+Y W !?5,"SEX: ",$P(^ESP(910,ESPNAM,0),"^",8),?20,"RACE: ",$S($D(^DIC(10,+$P(^(0),"^",9),0)):$P(^DIC(10,+$P(^ESP(910,ESPNAM,0),"^",9),0),"^",1),1:""),!!
@@ -56 +56 @@
  D ^DIR S ESPX=X W !
  I $D(DTOUT) S ESPSTP=1 Q
- I X["^" S ESPSTP=1 Q
+ I X="^" S ESPSTP=1 Q
  I X=""&'ESPLAST S ESPSTP=0,ESPCNT=0 Q
  I X=""&ESPLAST S ESPSTP=1 Q