Ok, I broke it down smaller for testing. Below is what I have. I login to a Citrix Desktop Session and I get as far as "Getting Ready to Check". No mapping from the Citrixmap.kix take place.

(BEGIN CODE)
;TESTING LOGIN SCRIPT
; Determine if Logging into Citrix or Local

Function ProductSuite ($Product)
Dim $Product
Select
Case $Product = "None" $x=0
Case $Product = "Small Business" $x=1
Case $Product = "Enterprise" $x=2
Case $Product = "BackOffice" $x=4
Case $Product = "CommunicationsServer" $x=8
Case $Product = "Terminal Server" $x=16
Case $Product = "Small Business (Restricted)" $x=32
Case $Product = "Embedded NT" $x=64
Case $Product = "DataCenter" $x=128
Case $Product = "Single User Terminal Server" $x=256
Case $Product = "Home Edition" $x=512
Case $Product = "Blade Server" $x=1024
;Case 1 $RC=MessageBox ("Invalid parameter used in function") ProductSuite($Product)",48
;WriteLog("Invalid parameter used in function") ProductSuite ($Product)")

Endselect

$ProdcutSuite = $x & val (@ProductSuite)
EndFunction
?"Getting ready to check"
Sleep 6
If ProductSuite("Terminal Server") and not ProductSuit("Single User Terminal Server")
?"IM at the ProductSuite line here"
sleep 10
CallScript("\\norit-americas.com\netlogon\Citrixmap.kix")

EXIT 0
(END CODE)


*****************************HERE is the CALLED SCRIPT CODE
(BEGIN CODE)
;Drive Mappings for Citrix Users - NO Trackit

CLS
?"Running Citrix Mapping now"
Sleep 5
$section=1 ;Section 1
Color c+/n
Box (0,0,24,79,single)

Color r+/n
At (10,30) "Welcome to the"
At (12,32) @domain
At (12,37) "Domain"
At (14,30) "NORIT Americas Inc."
At (16,30) @fullname
At (18,20) "Intended for NORIT Employee use only."
At (20,20) "All intruders will be prosecuted to"
At (21,23) "the fullest extent of the law."
At (22,20) "THIS SCRIPT RUNNING FOR CITRIX USERS ONLY"
Sleep 3

Small
Color b+/n
Box (0,0,24,79,GRID) ; 'background grid'
Color b/n
Box (8,21,18,61,Å) ; 'shadow' of the box
Color g+/n
Box (7,20,17,60,FULL)
0
SetTime $Server3

Color w+/n
At ( 9,25) "Userid : " ; display some text strings
At (10,25) "Full name : "
At (11,25) "Privilege : "
At (12,25) "Workstation : "
At (13,25) "Domain : "
At (14,25) "Logon Server : "
At (15,25) "Current Time : "
At (16,25) "Today's Date : "

Color y+/n
At ( 9,40) @userid ; ...and some macro's
At (10,40) @fullname
At (11,40) @priv
At (12,40) @wksta
At (13,40) @domain
At (14,40) @lserver
At (15,40) @time
At (16,40) @DATE
Sleep 3

:set_vars
$section=$section+1 ; Section 2
Use "*" /delete
$h="\\wmcfps02\@userid"
;$s="\\wmcfps01\@PRIMARYGROUP"

CLS
At (12,30) "Mapping Drives"
Sleep 3

; For Marshall

if ingroup("XX-Everyone")
use h: /delete/persistent
use g: /delete/persistent
use l: /delete/persistent
use p: /delete/persistent
use h: "\\xx-fs\Marshall\home\%username%"
use g: "\\xx-fs\Marshall\depts"
use l: "\\xx-fs\Enterprise"
use p: "\\xx-fs\Marshall\policies"
use f: /delete/persistent
use f: "\\xx-fs\marshall"
endif


; PRYOR
if ingroup("OK-Everyone")
use h: /delete/persistent
use g: /delete/persistent
use l: /delete/persistent
use p: /delete/persistent
use h: "\\xx-fs\Pryor\home\%username%"
use g: "\\xx-fs\Pryor\depts"
use l: "\\xx-fs\Enterprise"
;use p: "\\xx-fs\Marshall\policies"
use f: /delete/persistent
use f: "\\xx-fs\Pryor"
endif


(END CODE)