iSharkFly-Open
/
VistA-ccr
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

correcting for nul actors

This commit is contained in:
george 2008-11-18 15:57:13 +00:00
parent 751a121be2
commit 1bee3f5da6
1 changed files with 2 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
p/GPLACTOR.m
View File

@ -43,6 +43,8 @@ EXTRACT(IPXML,ALST,AXML) ; EXTRACT ACTOR FROM ALST INTO PROVIDED XML TEMPLATE
. S AOID=$P(@ALST@(I),"^",1) ; ACTOR OBJECT ID
. S ATYP=$P(@ALST@(I),"^",2) ; ACTOR TYPE
. S AIEN=$P(@ALST@(I),"^",3) ; ACTOR RECORD NUMBER
. I AIEN="" D Q ; IEN CAN'T BE NULL
. . W "WARING NUL ACTOR: ",ATYP,!
. I ATYP="" Q ; NOT A VALID ACTOR
. ;
. I DEBUG W AOID_" "_ATYP_" "_AIEN,!