Changeset 285 for ccr/trunk


Ignore:
Timestamp:
Nov 18, 2008, 10:57:13 AM (16 years ago)
Author:
George Lilly
Message:

correcting for nul actors

File:
1 edited

Legend:

Unmodified
Added
Removed

  • ccr/trunk/p/GPLACTOR.m

    r284 r285  
    4444 . S ATYP=$P(@ALST@(I),"^",2) ; ACTOR TYPE
    4545 . S AIEN=$P(@ALST@(I),"^",3) ; ACTOR RECORD NUMBER
     46 . I AIEN="" D  Q  ; IEN CAN'T BE NULL
     47 . . W "WARING NUL ACTOR: ",ATYP,!
    4648 . I ATYP="" Q  ; NOT A VALID ACTOR
    4749 . ;
Note: See TracChangeset for help on using the changeset viewer.